Wolfteam AimBot Kodlanışı


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: B3YAZ    2 Yorum    399 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 27.11.2015, 23:21:51 #1
B3YAZ Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorumları:12 Konuları:2 Kayıt Tarihi:25.07.2015 Rep Puanı: 0

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--

Kod:
1
2
3
4
5
6
If CheckBox1.Checked = True Then
            Timer1.Start()
        End If
        If CheckBox1.Checked = False Then
            Timer1.Stop()
        End If




--Timer1'e Girilecek Kodlar--

Kod:
WritePointerInteger("Wolfteam.bin", Label1.Text + &H28A44C, "1", 20, &H120, &H464)
      WritePointerInteger("Wolfteam.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 [Wolfteam.bin Çekilen Labeli Girin.]

--Buttona Girilecek Kodlar[EĞER VİSUAL STUDİO 2013 EXPRESS KULLANIYORSANIZ BUNLARI GİRİCEKSİNİZ.]--

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("WolfTeam.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:
1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim enumerator As IEnumerator
        Dim process As Process = process.GetProcessesByName("WolfTeam.bin")(0)
        Try
            enumerator = process.Modules.GetEnumerator
            Do While enumerator.MoveNext
                Dim current As ProcessModule = DirectCast(enumerator.Current, ProcessModule)
                If (current.FileName.IndexOf("WolfTeam.bin") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            
        End Try


--İndirme Linki--
Projeyi İndirmek İçin 
Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın

Alternatif Link İçin Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın
Sitemize kayıtlı değilseniz linkleri görebilmeniz İçin Kayıt Olun veya Giriş Yapın


Son Düzenleme: 28.11.2015, 10:21:04, Düzenleyen: nader11ndeu.

Paylaşım Tarihi: 27.11.2015, 23:47:37 #2
Leaver Delikanlı
Onaylı Uye
Status: Çevrimdışı Yorumları:59 Konuları:10 Kayıt Tarihi:30.09.2015 Rep Puanı: 21

Konu Yazısıyla,boyutuyla,rengiyle Süper olmuş eline sağlık Smile

Paylaşım Tarihi: 28.11.2015, 10:20:13 #3
nader11ndeu Valar Morghulis
Kurucu
Status: Çevrimdışı Yorumları:1,882 Konuları:147 Kayıt Tarihi:20.06.2015 Rep Puanı: 6,280

Videoda *** var...

Kullanıcı İmzası
Resim http://i.hizliresim.com/7A7YmW.png
"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










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

Konuyu Okuyanlar:
1 Ziyaretçi