Hi everyone i just got sick of misstimeing my Walljumps so i coded a little app for it.
Precompiled: Framework2 req.
[Only registered and activated users can see links. Click Here To Register...]
If anyone could virus check it. Too lazy right now.
Usage
Run Jump!.exe and Pres Winkey+A ingame to make a straight forward jump
THIS TOOL MAY GET YOUR ACCOUNT BANNED! SO DONT BLAME ME! RENAME IT AND PROTECT IT VIA PROCESS GUARD AND STUFF TO LOWER THE RISK!
For all of you who want to look at the code. You simply need VB.NET 2005 Express (FREE)
Precompiled: Framework2 req.
[Only registered and activated users can see links. Click Here To Register...]
If anyone could virus check it. Too lazy right now.
Usage
Run Jump!.exe and Pres Winkey+A ingame to make a straight forward jump
THIS TOOL MAY GET YOUR ACCOUNT BANNED! SO DONT BLAME ME! RENAME IT AND PROTECT IT VIA PROCESS GUARD AND STUFF TO LOWER THE RISK!
For all of you who want to look at the code. You simply need VB.NET 2005 Express (FREE)
Code:
Public Class Form1
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtrainfo As Integer)
Private Declare Function GlobalAddAtom Lib "kernel32.dll" Alias "GlobalAddAtomA" ( _
ByVal lpString As String) As Int32
Private Declare Function GlobalDeleteAtom Lib "kernel32.dll" ( _
ByVal nAtom As Int32) As Int32
Private Declare Function RegisterHotKey Lib "user32.dll" ( _
ByVal hwnd As IntPtr, _
ByVal id As Int32, _
ByVal fsModifiers As modKeys, _
ByVal vk As Keys) As Int32
Private Declare Function UnregisterHotKey Lib "user32.dll" ( _
ByVal hwnd As IntPtr, _
ByVal id As Int32) As Int32
Private Enum modKeys As Int32
ALT = &H1
CONTROL = &H2
SHIFT = &H4
WIN = &H8
End Enum
Private Const WM_HOTKEY As Int32 = &H312
Private hotkeyID As Int32
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_HOTKEY
If m.WParam.ToInt32 = hotkeyID Then
keybd_event(Keys.W, 0, 0, 0)
keybd_event(Keys.Space, 0, 0, 0)
keybd_event(Keys.W, 0, 2, 0)
keybd_event(Keys.Space, 0, 2, 0)
End If
End Select
MyBase.WndProc(m)
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim retval As Int32 = UnregisterHotKey(Me.Handle, hotkeyID)
GlobalDeleteAtom(hotkeyID)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
hotkeyID = GlobalAddAtom("Win+A")
Dim retval As Int32 = RegisterHotKey(Me.Handle, hotkeyID, modKeys.WIN, Keys.A)
End Sub
End Class