3 réponses
Hello
commen créer un patch offset vb6
par example offset
0040F22C /0F84 4E010000 JE ScreenRe.0040F380
0040F22C /0F85 4E010000 JNZ ScreenRe.0040F380
offset = E62C
byte to change = 84 to 85
merci
commen créer un patch offset vb6
par example offset
0040F22C /0F84 4E010000 JE ScreenRe.0040F380
0040F22C /0F85 4E010000 JNZ ScreenRe.0040F380
offset = E62C
byte to change = 84 to 85
merci
Utilisateur anonyme
9 févr. 2013 à 12:55
9 févr. 2013 à 12:55
Bonjour,
Si personne n'a répondu la première fois, c'est que ta question n'est pas claire. Il faut la reformuler plutôt que de la recopier.
Si personne n'a répondu la première fois, c'est que ta question n'est pas claire. Il faut la reformuler plutôt que de la recopier.
corexion code patch
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Exe File|*.exe "
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName
End If
HFILE = FreeFile
OFFST = &HE62C
Data = &H85
Dim original As String
original = labe12.Caption
Open original For Binary As HFILE
Put HFILE, OFFST + 1, Data
Close HFILE
Me.Enabled = False
MSgFrm.Show
MSgFrm.TitleLbl.Caption = "Done !..."
MSgFrm.MsgLbl.Caption = "Patch done succesfuly !!"
Exit Sub
error:
Me.Enabled = False
MSgFrm.Show
MSgFrm.TitleLbl.Caption = "Error"
MSgFrm.MsgLbl.Caption = "Error...File in Use !!"
End Sub
http://www.mediafire.com/?860687oqd56r53f
Private Sub Command1_Click()
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Exe File|*.exe "
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Text1.Text = CommonDialog1.FileName
End If
HFILE = FreeFile
OFFST = &HE62C
Data = &H85
Dim original As String
original = labe12.Caption
Open original For Binary As HFILE
Put HFILE, OFFST + 1, Data
Close HFILE
Me.Enabled = False
MSgFrm.Show
MSgFrm.TitleLbl.Caption = "Done !..."
MSgFrm.MsgLbl.Caption = "Patch done succesfuly !!"
Exit Sub
error:
Me.Enabled = False
MSgFrm.Show
MSgFrm.TitleLbl.Caption = "Error"
MSgFrm.MsgLbl.Caption = "Error...File in Use !!"
End Sub
http://www.mediafire.com/?860687oqd56r53f