wolftü tuşlu always yardım

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Onaylı Üye
Katılım
2 Kas 2016
Mesajlar
114
Tepki puanı
1
9 HİZMET YILI
Merhaba , Arkadaşlar tuşlu always kodladım açma tuşunu "y" olarak ayarladım ama "y" tuşuna tekrar bastımda pasif olmuyor. Lütfen bilen biri yardım edebilirmi bi tuşla hem aktif hemde pasif nasıl edebilirim ?

Kullandıgım kod :

Kod:
On Error Resume Next
      If GetAsyncKeyState(Keys.Y) Then
          Dim obj As Process = Process.GetProcessesByName("wolftü.bin")(0)
          For Each moz As System.Diagnostics.ProcessModule In obj.Modules
              If moz.FileName.IndexOf("obj") <> -1 Then
                  Label3.Text = moz.BaseAddress.ToString
              End If
          Next
         WriteLong("wolftü.bin", label3.Text + &H83125 , "1566441904") 'HeadShout On
      End If
 
Onaylı Üye
Katılım
8 Tem 2018
Mesajlar
89
Tepki puanı
9
Ödüller
5
Yaş
26
7 HİZMET YILI
dropyols bulabilirsem sana ben atabilirim
 
Ne Mutlu Türküm Diyene
Seçkin Üye
Katılım
18 Şub 2016
Mesajlar
306
Tepki puanı
33
Ödüller
9
10 HİZMET YILI
Tekrar if komutu ile aynı şekilde getasync komutunu kullanarak bu sefer U tuşuna basılınca olacak şekilde ayarla ve off komutunu gir
Örnek :
On Error Resume Next
If GetAsyncKeyState(Keys.Y) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566441904") 'Always HeadShout On
End If
If GetAsyncKeyState(Keys.U) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566490674") 'Always HeadShout Of
End If
End Sub

Bak bu şekilde yapabilisin ben böyle kodladım böyle kullanıyorum :)
 
Üye
Katılım
12 May 2018
Mesajlar
3
Tepki puanı
0
Yaş
30
8 HİZMET YILI
Beyler bendede aynı sorun var mesela name esp hilesini aktif ediyorum ama checkboxtan tiki kaldırınca kapanmıyor
 
Ultra Üye
Katılım
23 Ağu 2018
Mesajlar
1,502
Çözümler
5
Tepki puanı
174
Ödüller
10
7 HİZMET YILI
Tekrar if komutu ile aynı şekilde getasync komutunu kullanarak bu sefer U tuşuna basılınca olacak şekilde ayarla ve off komutunu gir
Örnek :
On Error Resume Next
If GetAsyncKeyState(Keys.Y) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566441904") 'Always HeadShout On
End If
If GetAsyncKeyState(Keys.U) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566490674") 'Always HeadShout Of
End If
End Sub

Bak bu şekilde yapabilisin ben böyle kodladım böyle kullanıyorum :)
Teşekkürler banada lazımdı :)
 
Üye
Katılım
12 May 2018
Mesajlar
3
Tepki puanı
0
Yaş
30
8 HİZMET YILI
Arkadaşlar bilen yokmu bu sorunun çözümünü hileyi aktif ediyorum ama kapatmaya gelince kapanmıyor ? :/ :/
 
Üye
Katılım
16 Kas 2016
Mesajlar
7
Tepki puanı
0
Ödüller
7
9 HİZMET YILI
Tekrar if komutu ile aynı şekilde getasync komutunu kullanarak bu sefer U tuşuna basılınca olacak şekilde ayarla ve off komutunu gir
Örnek :
On Error Resume Next
If GetAsyncKeyState(Keys.Y) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566441904") 'Always HeadShout On
End If
If GetAsyncKeyState(Keys.U) Then
WriteLong("wolftü.bin", Label3.Text + &H83125, "1566490674") 'Always HeadShout Of
End If
End Sub

Bak bu şekilde yapabilisin ben böyle kodladım böyle kullanıyorum :)

SEN VAR YA ADAMIN DİBİSİN <3
 
Are You Ready?
Onaylı Üye
Katılım
11 Nis 2018
Mesajlar
128
Tepki puanı
11
Ödüller
5
8 HİZMET YILI
Beyler bendede aynı sorun var mesela name esp hilesini aktif ediyorum ama checkboxtan tiki kaldırınca kapanmıyor
VB.Net:
If CheckBox1.Checked = True Then
Timer1.Start()
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
End If
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst