تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن تعديل الكود التالي
#1
السلام عليكم 

رايد تعديل هذا الكود 

كود :
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

وقمت بكسر البرنامج الن البرنامج قديم او لا يعمل على التحديث الجديد 

وقمت بالتعديل علية ولاكن واجهتني صعوبة بتديل هذا الكود والارقام الموجودة هية عبارة عن شفرات 
باتل فيلد 2


وشكرا
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم