Evet arkadaşlar bugün AimBot Kodlamasını öğrenicez.
--İlk olarak gerekli malzemeler--
1 : 1 adet Checkbox
2 : 1 Adet Timer
2 : 1 Adet Button ve Label
--CheckBox1'a Girilecek Kodlar--
--Timer1'e Girilecek Kodlar--
Düzenlenicek Yerler = &H28A44C [Yamadan Yamaya Değişecektir.]
Düzenlenicek Yerler = &H292FC8 [Yamadan Yamaya Değişecektir.]
Düzenlenicek Yerler = Label1.Text [wolftü.bin Çekilen Labeli Girin.]
--Buttona Girilecek Kodlar[EĞER VİSUAL STUDİO 2013 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--
--Buttona Girilecek Kodlar[EĞER VİSUAL BASİC 2010 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--
--İndirme Linki--
Projeyi İndirmek İçin
Alternatif Link İçin
--İlk olarak gerekli malzemeler--
1 : 1 adet Checkbox
2 : 1 Adet Timer
2 : 1 Adet Button ve Label
--CheckBox1'a Girilecek Kodlar--
Kod:
If CheckBox1.Checked = True Then
Timer1.Start()
End If
If CheckBox1.Checked = False Then
Timer1.Stop()
End If--Timer1'e Girilecek Kodlar--
Kod:
WritePointerInteger("wolftü.bin", Label1.Text + &H28A44C, "1", 20, &H120, &H464)
WritePointerInteger("wolftü.bin", Label1.Text + &H292FC8, "1", 20, &H120, &H464)Düzenlenicek Yerler = &H28A44C [Yamadan Yamaya Değişecektir.]
Düzenlenicek Yerler = &H292FC8 [Yamadan Yamaya Değişecektir.]
Düzenlenicek Yerler = Label1.Text [wolftü.bin Çekilen Labeli Girin.]
--Buttona Girilecek Kodlar[EĞER VİSUAL STUDİO 2013 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--
Kod:
Dim enumerator As IEnumerator
Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.Label1.Text = current.BaseAddress.ToString
End If
Loop
Finally
If TypeOf enumerator Is IDisposable Then
TryCast(enumerator, IDisposable).Dispose()
End If
End Try--Buttona Girilecek Kodlar[EĞER VİSUAL BASİC 2010 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--
Kod:
Dim enumerator As IEnumerator
Dim process As Process = process.GetProcessesByName("wolftü.bin")(0)
Try
enumerator = process.Modules.GetEnumerator
Do While enumerator.MoveNext
Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
If (current.FileName.IndexOf("wolftü.bin") <> -1) Then
Me.Label1.Text = current.BaseAddress.ToString
End If
Loop
Finally
End Try--İndirme Linki--
Projeyi İndirmek İçin
Bağlantıları görmek için lütfen
Giriş Yap
Alternatif Link İçin
Bağlantıları görmek için lütfen
Giriş Yap
Bağlantıları görmek için lütfen
Giriş Yap