21-09-17, 06:34 PM
السلام عليكم
رايد تعديل هذا الكود
كود :
Try
Dim enumerator As IEnumerator
Dim process As Process = Process.GetProcessesByName("BF2")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("RendDX9.dll") <> -1) Then
Me.rendBase = Conversions.ToInteger(current.BaseAddress.ToString)
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator,IDisposable).Dispose
End If
End Try
Catch exception1 As Exception
ProjectData.SetProjectError(exception1)
Dim exception As Exception = exception1
MessageBox.Show("Please start the game first!", "BF2 Hack", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
Me.Close
ProjectData.ClearProjectError
End Try
Me.Adr_Nametags = (&H12D882 + Me.rendBase)
Me.Adr_Nametags2 = (&H12BACD + Me.rendBase)
Me.Adr_DistanceTags = (&H12EDF3 + Me.rendBase)
Me.Adr_Minimap1 = &H764F99
Me.Adr_Minimap2 = &H764FBF
Me.Adr_Minimap3 = &H764FE5
Me.Adr_Minimap4 = &H765075
Me.Adr_Minimap5 = &H76509B
Me.Adr_Minimap6 = &H7650BE
Me.Adr_Minimap7 = &H7650D8
Me.Adr_Minimap8 = &H76FFC9
Me.Adr_3DMap = (&H12D1CD + Me.rendBase)
Me.Adr_EnemyMines = (&H12D521 + Me.rendBase)
Me.Adr_LockCrosshair1 = &H5EC31C
Me.Adr_LockCrosshair2 = &H5EC31F
Me.Adr_LockCrosshair3 = &H5EC322
Me.Adr_LockCrosshair4 = &H5EC325
Me.Adr_NoFog1 = (&H4FA29 + Me.rendBase)
Me.Adr_Unlocks1 = &H45B96E
Me.Adr_Unlocks2 = &H4EABE5
Me.Adr_HealthTags1 = (&H1B21CD + Me.rendBase)
Me.Adr_HealthTags2 = (&H1B22FE + Me.rendBase)
Me.Adr_HealthTags3 = (&H1B234C + Me.rendBase)
Me.Adr_NoSky = (&H3003A + Me.rendBase)
Me.Adr_NoSmoke = (&H3018B + Me.rendBase)
Me.Adr_NoTrees = (&H2FECD + Me.rendBase)
Me.Adr_NoGrass = (&H2FF7D + Me.rendBase)
Me.Adr_KitIcons1 = (&H12CD1A + Me.rendBase)
Me.Adr_KitIcons2 = (&H12CD61 + Me.rendBase)
Me.Adr_KitIcons3 = (&H12CD80 + Me.rendBase)
Me.Adr_NoOverheat = &H5C56D6
Me.Adr_NoFlash = &H65E6F4
Me.Adr_UnlimitedAmmo = &H603FC6
Me.Adr_GodMode = &H66E7A3
Me.Adr_ViewDistance = (&H11200 + Me.rendBase)
Me.Adr_Commander = &H623E00
Me.Adr_Supply = &H79F1E1
Me.Adr_Arti = &H77F2C8
Me.Adr_Vehicle1 = &H79F00E
Me.Adr_Vehicle2 = &H79E4E6
Me.Adr_Stamina = &H65E133
Me.tmrRefresh.Enabled = True
End Sub
وقمت بكسر البرنامج الن البرنامج قديم او لا يعمل على التحديث الجديد
وقمت بالتعديل علية ولاكن واجهتني صعوبة بتديل هذا الكود والارقام الموجودة هية عبارة عن شفرات
باتل فيلد 2
وشكرا
وشكرا