C++ dword gibi oyunu aşağı almadan menü nasıl gösterilir

Fenasi Hack' Alıntı:

Al kardeşim kendimde D3D MENÜ KODLUYORUM YANİ OYUNU ASSAĞIYA ALMADAN INSERT TUSUYLA ACILAN MENU


Form1`in Özellikleri:

FormBorderStyle = None
BackKolor = Black
ShowIcon = False
ShowIn Taskbar = False


Label`lerin Dizilmesi Gereken Hali:

Label1    (Name ESP)/////////////Label3  ( [OFF] )              
Label2    (No Spread)/////////////Label4  ( [OFF] )
Label6    (No Fall Damage)///////Label5  ( [OFF] )
Label7    (Slot 0 SP)///////////////Label18  ( [OFF] )
Label8    (Early Respawn)////////Label19  ( [OFF] )
Label9    (CrossHair)///////////////Label20  ( [OFF] )
Label10  (WolfAbility)/////////////Label21  ( [OFF] )
Label11  (Inf Ammo)//////////////Label22  ( [OFF] )
Label12  (No Reload)/////////////Label23  ( [OFF] )
Label13  (Rapid Fire)//////////////Label24  ( [OFF] )
Label14  (WallShot)///////////////Label25  ( [OFF] )
Label15  (Takla)//////////////////// Label26  ( [OFF] )  
Label16  (Always Head Shot)//////Label27  ( [OFF] )
Label17  (YP Booster)///////////////Label28  ( [OFF] )


19 Adet Timer Ekleyin. Üstteki Label Dizilişini Yaptıktan Sonra Form`unuzu Aşağıya Doğru Büyütüp O Boş Yere 3 Adet Label Ekleyin Ve Büyüttüğünüz Yeri Tekrardan Kapatın Sonradan Eklenen 3 Labelin Sayıları 29,30,31 Olsun Farklı Olursa CSH,BİN,OBJ Cekemez.Labelleri Verdiğim Sayılara Göre Dizdikten Sonra Yanlarındaki Parantezde Ne yazıyosa İsmini Öle Yapın.  1,2,17,18,19 Timer`lerin Enabled`leri True Olsun Diğer Timer`lerin False Olsun.Label1`in ForeColor`u " Orange " Solda Kalan Diğer Label`ler " White " Sağdaki Label`lerin Hepsi " Red " Yapın.

PHP:

Public Class Form1

  Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
      Try
          Interaction.AppActivate("wolftü.bin")
          Me.TopMost = True
      Catch
          Me.TopMost = True
      End Try
  End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      If GetAsyncKeyState(Keys.Down) = -32767 Then


          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label17.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Up) = -32767 Then
          If Label17.ForeColor = Color.Orange Then
              Label17.ForeColor = Color.White
              Label16.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label16.ForeColor = Color.White
              Label15.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label15.ForeColor = Color.White
              Label14.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label14.ForeColor = Color.White
              Label13.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label13.ForeColor = Color.White
              Label12.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label12.ForeColor = Color.White
              Label11.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label11.ForeColor = Color.White
              Label10.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label10.ForeColor = Color.White
              Label9.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label9.ForeColor = Color.White
              Label8.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label8.ForeColor = Color.White
              Label7.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label7.ForeColor = Color.White
              Label6.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label6.ForeColor = Color.Orange Then
              Label6.ForeColor = Color.White
              Label2.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label2.ForeColor = Color.Orange Then
              Label2.ForeColor = Color.White
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If

          If Label1.ForeColor = Color.Orange Then
              Label1.ForeColor = Color.Orange
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Insert) = -32767 Then
          If Label1.Visible = False Then
              Label1.Visible = True
              Me.Show()
              Exit Sub
          End If
          If Label1.Visible = True Then
              Label1.Visible = False
              Me.Hide()
              Exit Sub
          End If
      End If
      If GetAsyncKeyState(Keys.Delete) = -32767 Then
          Application.Exit()
          Exit Sub
      End If
  End Sub

  Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
      If GetAsyncKeyState(Keys.Right) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Green
              Label3.Text = "[ON]"
              Timer3.Enabled = True
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Green
              Label4.Text = "[ON]"
              Timer4.Enabled = True
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Green
              Label5.Text = "[ON]"
              Timer5.Enabled = True
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Green
              Label18.Text = "[ON]"
              Timer6.Enabled = True
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Green
              Label19.Text = "[ON]"
              Timer7.Enabled = True
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Green
              Label20.Text = "[ON]"
              Timer8.Enabled = True
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Green
              Label21.Text = "[ON]"
              Timer9.Enabled = True
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Green
              Label22.Text = "[ON]"
              Timer10.Enabled = True
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Green
              Label23.Text = "[ON]"
              Timer11.Enabled = True
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Green
              Label24.Text = "[ON]"
              Timer12.Enabled = True
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Green
              Label25.Text = "[ON]"
              Timer13.Enabled = True
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Green
              Label26.Text = "[ON]"
              Timer14.Enabled = True
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Green
              Label27.Text = "[ON]"
              Timer15.Enabled = True
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Green
              Label28.Text = "[ON]"
              Timer16.Enabled = True
              Exit Sub
          End If
      End If

      If GetAsyncKeyState(Keys.Left) = -32767 Then
          If Label1.ForeColor = Color.Orange Then
              Label3.ForeColor = Color.Red
              Label3.Text = "[OFF]"
              Timer3.Enabled = False
              Exit Sub
          End If
          If Label2.ForeColor = Color.Orange Then
              Label4.ForeColor = Color.Red
              Label4.Text = "[OFF]"
              Timer4.Enabled = False
              Exit Sub
          End If
          If Label6.ForeColor = Color.Orange Then
              Label5.ForeColor = Color.Red
              Label5.Text = "[OFF]"
              Timer5.Enabled = False
              Exit Sub
          End If

          If Label7.ForeColor = Color.Orange Then
              Label18.ForeColor = Color.Red
              Label18.Text = "[OFF]"
              Timer6.Enabled = False
              Exit Sub
          End If

          If Label8.ForeColor = Color.Orange Then
              Label19.ForeColor = Color.Red
              Label19.Text = "[OFF]"
              Timer7.Enabled = False
              Exit Sub
          End If

          If Label9.ForeColor = Color.Orange Then
              Label20.ForeColor = Color.Red
              Label20.Text = "[OFF]"
              Timer8.Enabled = False
              Exit Sub
          End If

          If Label10.ForeColor = Color.Orange Then
              Label21.ForeColor = Color.Red
              Label21.Text = "[OFF]"
              Timer9.Enabled = False
              Exit Sub
          End If

          If Label11.ForeColor = Color.Orange Then
              Label22.ForeColor = Color.Red
              Label22.Text = "[OFF]"
              Timer10.Enabled = False
              Exit Sub
          End If

          If Label12.ForeColor = Color.Orange Then
              Label23.ForeColor = Color.Red
              Label23.Text = "[OFF]"
              Timer11.Enabled = False
              Exit Sub
          End If

          If Label13.ForeColor = Color.Orange Then
              Label24.ForeColor = Color.Red
              Label24.Text = "[OFF]"
              Timer12.Enabled = False
              Exit Sub
          End If

          If Label14.ForeColor = Color.Orange Then
              Label25.ForeColor = Color.Red
              Label25.Text = "[OFF]"
              Timer13.Enabled = False
              Exit Sub
          End If

          If Label15.ForeColor = Color.Orange Then
              Label26.ForeColor = Color.Red
              Label26.Text = "[OFF]"
              Timer14.Enabled = False
              Exit Sub
          End If

          If Label16.ForeColor = Color.Orange Then
              Label27.ForeColor = Color.Red
              Label27.Text = "[OFF]"
              Timer15.Enabled = False
              Exit Sub
          End If

          If Label17.ForeColor = Color.Orange Then
              Label28.ForeColor = Color.Red
              Label28.Text = "[OFF]"
              Timer16.Enabled = False
              Exit Sub
          End If
      End If
  End Sub

  Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
      WriteLong("wolftü.bin", Label29.Text + &H357E00, "2251829620")
  End Sub

  Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
      WriteLong("wolftü.bin", Label29.Text + &H13ACF3, "1301090420")
  End Sub

  Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
      WriteLong("wolftü.bin", Label29.Text + &HFE261, "12616719")
  End Sub

  Private Sub Timer6_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
      WriteLong("wolftü.bin", Label29.Text + &H1952F3, "3071218292")
  End Sub

  Private Sub Timer7_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
      WriteLong("wolftü.bin", Label29.Text + &H855D0, "1574503796")
  End Sub

  Private Sub Timer8_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
      WriteLong("wolftü.bin", Label29.Text + &H692478, "550")
  End Sub

  Private Sub Timer9_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
      WritePointerInteger("wolftü.bin", Label29.Text + &H61200C, "19601", &H18)
  End Sub

  Private Sub Timer10_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer10.Tick
      WriteLong("wolftü.bin", Label29.Text + &H128BC0, "2114045827")
  End Sub

  Private Sub Timer11_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer11.Tick
      WriteLong("wolftü.bin", Label29.Text + &H1232FE, "2257258100")
  End Sub

  Private Sub Timer12_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer12.Tick
      WriteLong("wolftü.bin", Label29.Text + &H1252FB, "1574503796")
  End Sub

  Private Sub Timer13_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer13.Tick
      WriteLong("wolftü.bin", Label30.Text + &H4D510, "5")
  End Sub

  Private Sub Timer14_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer14.Tick
      WriteLong("wolftü.bin", Label31.Text + &H1BD65, "378215541")
  End Sub

  Private Sub Timer15_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer15.Tick
      WriteLong("wolftü.bin", Label31.Text + &H71715, "1566441904")
  End Sub

  Private Sub Timer16_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer16.Tick
      WriteLong("wolftü.bin", Label31.Text + &HE073B, "3224568693")
  End Sub

  Private Sub Timer17_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer17.Tick
      Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("csh") <> -1 Then
              Label29.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer18_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer18.Tick
      Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("bin") <> -1 Then
              Label30.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub

  Private Sub Timer19_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer19.Tick
      Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
      For Each moz As System.Diagnostics.ProcessModule In p.Modules
          If moz.FileName.IndexOf("obj") <> -1 Then
              Label31.Text = moz.BaseAddress.ToString
          End If
      Next
  End Sub
End Class

Genişletmek için tıklayın ...