SaLDarkBlue' Alıntı:sanırsam öyle bişi mümkün değil istediğin gibi ayarlama.
kardesım sen ayakta uyuyon galiba tuslu hile onceden var ama kodlamayı bılmıyodum buldum onuda konuda paylastım bakarsın ogrenırsın
tsk ederım baskanFufuker' Alıntı:
<Runtime.InteropServices.DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
End FunctionIf GetAsyncKeyState(Keys.Q) Then
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
WriteLong("wolftü.bin", Label3.Text +&HPOINTER, "VALUE")
End IfIf GetAsyncKeyState(Keys.F7) Then
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
WriteLong("wolftü.bin", Label3.Text +&HPOINTER, "VALUE")
End IfK0RAY' Alıntı:Public class altına:
PHP:<Runtime.InteropServices.DllImport("user32.dll")> _ Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short End Function
Base Return(Timer'e yazılıcak):
PHP:If GetAsyncKeyState(Keys.Q) Then 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 WriteLong("wolftü.bin", Label3.Text +&HPOINTER, "VALUE") End If
TeamKill(Timere yazılıcak):
POİNTER VE VALUE KISMINI POİNTER KATEGORİSİNDEN BULABİLİRSİN.PHP:If GetAsyncKeyState(Keys.F7) Then 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 WriteLong("wolftü.bin", Label3.Text +&HPOINTER, "VALUE") End If
İyi Forumlar.
eyw koray basgan
