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
Kod:
If CheckBox2.Checked = True Then
Timer2.Start()
End If
If CheckBox2.Checked = False Then
Timer2.Stop()
End IfTimer1'e Girilecek Kodlar
Kod:
Dim hack As Integer = Label1.Text + &H10190
WriteLong("wolftü.bin", hack, "3102510019")
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 TryButtona 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
