[kalach]

السلام عليكم ورحمة الله وبركاته

اخي Ahmed_Mansoor

لقد قمت بجميع طرق لكن الكو د يغير القيمة لقبل القيمة لانا طلب منو شكرا للمتابعة وسرعة الرد انتظر الرد بحرارة


Private Function HexToString(ByVal HexToStr As String) As String

Dim StrTemp As String
Dim StrReturn As String
Dim I As Long

For I = 1 To Len(HexToStr) Step 2

StrTemp = Chr$(Val("&H" & Mid$(HexToStr, I, 2)))
StrReturn = StrReturn & StrTemp

Next I

HexToString = StrReturn

End Function

Private Sub Command1_Click()

Dim FileBytes As String
Dim F As Integer
Dim OffSet As Double
Dim NewValue As String

'موقع بداية التغيير
OffSet = 1F4
OffSet = 1F5
OffSet = 1F6

'القيم الجديدة التي تريد إستبدالها بالقديمة
NewValue = "45"
NewValue = "7A"
NewValue = "F2"

F = FreeFile
Open "C:\MyFile.exe" For Binary As #F
FileBytes = Space$(LOF(F))
Get #F, , FileBytes
Close #F

NewValue = HexToString(NewValue)

'عدد القيم المراد تغييرها 3
Mid$(FileBytes, OffSet, 3) = NewValue

F = FreeFile
Open "C:\MyFile.exe" For Binary As #F
Put #F, 1, FileBytes
Close #F

MsgBox "تم تعديل القيم بنجاح"

End Sub