WolfTü Combobox Lu Kurt Hack Pointleri (08.04.2018)

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üye
Katılım
8 Nis 2018
Mesajlar
13
Tepki puanı
4
Yaş
25
8 HİZMET YILI
If ınfluenceComboBox8.SelectedItem = "Güç Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "1")
End If
If ınfluenceComboBox8.SelectedItem = "Gardiyan Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "2")
End If
If ınfluenceComboBox8.SelectedItem = "Hayalet Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "3")
End If
If ınfluenceComboBox8.SelectedItem = "Vahşi Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "4")
End If
If ınfluenceComboBox8.SelectedItem = "Zeki Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "5")
End If
If ınfluenceComboBox8.SelectedItem = "Hayalet2" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "6")
End If
If ınfluenceComboBox8.SelectedItem = "Buz Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "7")
End If
If ınfluenceComboBox8.SelectedItem = "Deli Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "8")
End If
If ınfluenceComboBox8.SelectedItem = "Normal Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "9")
End If
If ınfluenceComboBox8.SelectedItem = "Kral Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "10")
End If
If ınfluenceComboBox8.SelectedItem = "Asmon Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "11")
End If
If ınfluenceComboBox8.SelectedItem = "Lavinhan Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "12")
End If
If ınfluenceComboBox8.SelectedItem = "Bahama Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "13")
End If
If ınfluenceComboBox8.SelectedItem = "Reinhard Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "15")
End If
If ınfluenceComboBox8.SelectedItem = "Hamadah Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "16")
End If
If ınfluenceComboBox8.SelectedItem = "Christopher Smith Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "17")
End If
If ınfluenceComboBox8.SelectedItem = "Pedro Gomes Kurt" Then
WriteLong("wolftü.bin", Label1.Text + &H71DCF0, "18")
End If​
 
Onaylı Üye
Katılım
3 Nis 2018
Mesajlar
52
Tepki puanı
5
Ödüller
7
Yaş
23
8 HİZMET YILI
kardeş bana güncel point atarmısın forumdaki bazı pointler fix güncelleri varsa atamrısın envanter csh obj poi,ntleri falan
 
  • Konuyu başlatan
  • Yasaklandı
  • #4
Üye
Katılım
8 Nis 2018
Mesajlar
13
Tepki puanı
4
Yaş
25
8 HİZMET YILI
wall shot fix...
 
Üye
Katılım
28 Mar 2018
Mesajlar
45
Tepki puanı
4
Ödüller
6
Yaş
30
8 HİZMET YILI
BEYLER D3D MENÜLÜ HİLEDE OYUN İÇİNDE TIKLAMA ÖZELLİĞİ NASIL EKLEYEBİLİRİM TIKLADIĞIMDA OYUNU ALTA ALIYOR KENDİ İHİLEM
 
Üye
Katılım
24 Eyl 2016
Mesajlar
40
Tepki puanı
4
9 HİZMET YILI
BEYLER D3D MENÜLÜ HİLEDE OYUN İÇİNDE TIKLAMA ÖZELLİĞİ NASIL EKLEYEBİLİRİM TIKLADIĞIMDA OYUNU ALTA ALIYOR KENDİ İHİLEM

Kod:
  Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                SuspendThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub


    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                ResumeThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub
 
Üye
Katılım
28 Mar 2018
Mesajlar
45
Tepki puanı
4
Ödüller
6
Yaş
30
8 HİZMET YILI
Kod:
  Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                SuspendThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub


    Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
        For Each t As ProcessThread In process.Threads
            Dim th As IntPtr
            th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
            If th <> IntPtr.Zero Then
                ResumeThread(th)
                CloseHandle(th)
            End If
        Next
    End Sub


Aga Yapıyorum Menüye Tıkladığımda Gene Alta Alıyor
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst