Wolfteam AimBot Kodlanışı


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

Yazar: B3YAZ    2 Yorum    339 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 27.11.2015, 23:21:51 #1
B3YAZ Yeğen
Kayıtlı Üye
Status: Çevrimdışı Yorum Sayısı:12 Konu Sayısı:2 Üyelik 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:
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:
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:
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 
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.

Alternatif Link İçin linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.


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ışı Yorum Sayısı:59 Konu Sayısı:10 Üyelik 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 Siktirgit gelme ben mevlana değilim
Kurucu
Status: Çevrimdışı Yorum Sayısı:1,369 Konu Sayısı:118 Üyelik Tarihi:20.06.2015 Rep Puanı: 4,354

Videoda var...

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

















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

Konuyu görüntüleyenler:
1 Misafir