beyler böyle kodluyorum oyuna girince ilk el hiç bi sıkıntı yok sorunsuz çalişio ama 2.oyuna girince oyundan atio neyapmalıyım yardm edebilcek varmı
On Error Resume Next
If GetAsyncKeyState(Keys.LShiftKey) Then
Timer8.Start()
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
On Error Resume Next
WriteLong("wolftü.bin", Label3.Text + &value, "1566441904") 'Always Headshout On
Else
On Error Resume Next
WriteLong("wolftü.bin", Label3.Text + &value, "1566490674") 'Always Headshout Off
End If
On Error Resume Next
If GetAsyncKeyState(Keys.LShiftKey) Then
Timer8.Start()
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
On Error Resume Next
WriteLong("wolftü.bin", Label3.Text + &value, "1566441904") 'Always Headshout On
Else
On Error Resume Next
WriteLong("wolftü.bin", Label3.Text + &value, "1566490674") 'Always Headshout Off
End If