• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Anti AHH Yapılışı

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

murrat256

Onaylı Üye
Katılım
21 Nis 2016
Mesajlar
74
Beğeni Puanı
2
Konuya girmeden önce alıntı olduğunu belirteyim arayanlar için lazım olacaklar için paylaşıyorum.


İlk olarak gerekli malzemeler
1 : 2 adet Checkbox
2 : 2 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
CheckBox2'a Girilecek Kodlar


Kod:
If CheckBox2.Checked = True Then
            Timer2.Start()
        End If
        If CheckBox2.Checked = False Then
            Timer2.Stop()
        End If

Timer1'e Girilecek Kodlar


Kod:
Dim hack As Integer = Label1.Text + &H10190
        WriteLong("wolftü.bin", hack, "3102510019")
Timer2'ye Girilecek Kodlar


Kod:
Dim hack As Integer = Label1.Text + &H1A1190
        WriteLong("wolftü.bin", hack, "3102510019")

Düzenlenicek Yerler = &H123321
Düzenlenicek Yerler = Label1.Text [OBJ Ç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("csh") <> -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("csh") <> -1) Then
                    Me.Label1.Text = current.BaseAddress.ToString
                End If
            Loop
        Finally
            
        End Try
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt