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


C ve C++ Programlama    C ve C++ Programlama İle İlgili Paylaşım Kategorisi

Yazar: Vabartum    3 Yorum    283 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 17.07.2016, 19:54:34 #1
Vabartum Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:108 Konu Sayısı:22 Üyelik Tarihi:09.05.2016 Rep Puanı: 9

c++ da dword gibi oyunu aşağı almdan menü nasıl gösterilir ? arkdaşlar ayarları nedir ilgilene +rep verilir.
Paylaşım Tarihi: 17.07.2016, 20:15:24 #2
Fenasi Hack Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:25 Konu Sayısı:1 Üyelik Tarihi:12.05.2016 Rep Puanı: 0

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 Kod:
Public Class Form1

  Private 
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
      Try
          Interaction
.AppActivate("Wolfteam.bin")
 
         Me.TopMost True
      Catch
          Me
.TopMost True
      End 
Try
 
 End Sub

  Private Sub Timer1_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Timer3.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H357E00"2251829620")
 
 End Sub

  Private Sub Timer4_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer4.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H13ACF3"1301090420")
 
 End Sub

  Private Sub Timer5_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer5.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &HFE261"12616719")
 
 End Sub

  Private Sub Timer6_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer6.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1952F3"3071218292")
 
 End Sub

  Private Sub Timer7_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer7.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H855D0"1574503796")
 
 End Sub

  Private Sub Timer8_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer8.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H692478"550")
 
 End Sub

  Private Sub Timer9_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer9.Tick
      WritePointerInteger
("Wolfteam.bin"Label29.Text + &H61200C"19601", &H18)
 
 End Sub

  Private Sub Timer10_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer10.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H128BC0"2114045827")
 
 End Sub

  Private Sub Timer11_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer11.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1232FE"2257258100")
 
 End Sub

  Private Sub Timer12_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer12.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1252FB"1574503796")
 
 End Sub

  Private Sub Timer13_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer13.Tick
      WriteLong
("WolfTeam.bin"Label30.Text + &H4D510"5")
 
 End Sub

  Private Sub Timer14_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer14.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &H1BD65"378215541")
 
 End Sub

  Private Sub Timer15_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer15.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &H71715"1566441904")
 
 End Sub

  Private Sub Timer16_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer16.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &HE073B"3224568693")
 
 End Sub

  Private Sub Timer17_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer17.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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.ObjectByVal e As System.EventArgsHandles Timer18.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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.ObjectByVal e As System.EventArgsHandles Timer19.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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 
Son Düzenleme: 17.07.2016, 22:25:01, Düzenleyen: LeftSpace.
Paylaşım Tarihi: 17.07.2016, 21:36:47 #3
nader11ndeu Siktirgit gelme ben mevlana değilim
Kurucu
Status: Çevrimdışı Yorum Sayısı:1,379 Konu Sayısı:118 Üyelik Tarihi:20.06.2015 Rep Puanı: 4,396

Directx menü diye araştır.

Kullanıcı İmzası
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.

İmage

There is only one way, we have to kill them all!

"Kendilerine biz hilecilerin kralıyız, en iyi hile forumu bizim forumumuz, bizden iyi hile yapan vs. yok diyerek sizi uyutan ve sizi kandıran, sabahlara kadar boktan hileler yayınlayan lamer forumlarından sıkıldıysanız, bu forum size göre dostum. Bizde yalan yok, biz en iyisiyiz."
DWORD HACK TEAM @ 2016
Leftspace,MaskeliHileci,CauS,Nader11ndeu










Paylaşım Tarihi: 17.07.2016, 23:07:57 #4
secolayabak Ağabey
Onaylı Uye
Status: Çevrimdışı Yorum Sayısı:317 Konu Sayısı:41 Üyelik Tarihi:15.04.2016 Rep Puanı: 30

(17.07.2016, 20:15:24)Fenasi Hack Nickli Kullanıcıdan Alıntı: linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir. 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 Kod:
Public Class Form1

  Private 
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
  Private Sub Form1_Load
(ByVal sender As ObjectByVal e As EventArgsHandles MyBase.Load
      Try
          Interaction
.AppActivate("Wolfteam.bin")
 
         Me.TopMost True
      Catch
          Me
.TopMost True
      End 
Try
 
 End Sub

  Private Sub Timer1_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles Timer3.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H357E00"2251829620")
 
 End Sub

  Private Sub Timer4_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer4.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H13ACF3"1301090420")
 
 End Sub

  Private Sub Timer5_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer5.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &HFE261"12616719")
 
 End Sub

  Private Sub Timer6_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer6.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1952F3"3071218292")
 
 End Sub

  Private Sub Timer7_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer7.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H855D0"1574503796")
 
 End Sub

  Private Sub Timer8_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer8.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H692478"550")
 
 End Sub

  Private Sub Timer9_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer9.Tick
      WritePointerInteger
("Wolfteam.bin"Label29.Text + &H61200C"19601", &H18)
 
 End Sub

  Private Sub Timer10_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer10.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H128BC0"2114045827")
 
 End Sub

  Private Sub Timer11_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer11.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1232FE"2257258100")
 
 End Sub

  Private Sub Timer12_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer12.Tick
      WriteLong
("WolfTeam.bin"Label29.Text + &H1252FB"1574503796")
 
 End Sub

  Private Sub Timer13_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer13.Tick
      WriteLong
("WolfTeam.bin"Label30.Text + &H4D510"5")
 
 End Sub

  Private Sub Timer14_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer14.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &H1BD65"378215541")
 
 End Sub

  Private Sub Timer15_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer15.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &H71715"1566441904")
 
 End Sub

  Private Sub Timer16_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer16.Tick
      WriteLong
("WolfTeam.bin"Label31.Text + &HE073B"3224568693")
 
 End Sub

  Private Sub Timer17_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer17.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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.ObjectByVal e As System.EventArgsHandles Timer18.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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.ObjectByVal e As System.EventArgsHandles Timer19.Tick
      Dim p 
As Process Process.GetProcessesByName("WolfTeam.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 

Adam C++ Sormuş Bu Kodlarla VB. İle Kodlayabilirsin

Kullanıcı İmzası
Seni Severim Seni Seveni`de Severim Seni Ben`den Daha Çok Seveni`de Kurşuna Dizerim
İmage









Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir