M.Kemal ATATÜRK
Süper Üye
ÖNCE GEREKENLER
----------------------------------------------------
1-3 Tane Timer
2-3 Tane Label
----------------------------------------------------
SONRA AYARLAR
----------------------------------------------------
3 Timerde Endable True Olacak
VE GELEİM KODLAMAYA
----------------------------------------------------
1. Timere
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("csh") <> -1 Then
Label1.Text = moz.BaseAddress.ToString
End If
Next
2. Timere
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("obj") <> -1 Then
Label3.Text = moz.BaseAddress.ToString
End If
Next
3.timere
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("wolftü.bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
+1 REP YOUTUBE KANALIMA ABONE OLMAYI UNUTMAYIN
