CSH **
***************
on error resume next
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
BİN
*********
on error resume next
Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
For Each moz As System.Diagnostics.ProcessModule In p.Modules
If moz.FileName.IndexOf("bin") <> -1 Then
Label2.Text = moz.BaseAddress.ToString
End If
Next
Obj
*********
on error resume next
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
hepsini ayrı ayrı timere yapıştır bu 3 timerin enabled = true yap interval 1 yap oyun açılırken otomatik çeker buttonla falan uğraşmaz bendeki bu ama o tek kodla çekeni görmüştüm fakat forumda bulamadım kaldırılmadıysa bulursam veririm burada