Bunny Hopper- Auto Jumper

Okies so im using visual basic 2008 to make my Bunnyhopper But the thing gets really fked up lol umm i just need a perfect tut from one of you's ive used the other tut and fking hell its not that great also i would like to have a hot key with it

Code:

Dim Hop As String
Hop = " "
SendKeys.Send(Hop)

Add that to timer

Originally Posted by Iamazn

Code:

Dim Hop As String
Hop = " "
SendKeys.Send(Hop)

Add that to timer

Will that work in VB 06??

Omg, neither of that worked...

Isn't 08 better than 06 Pixie?

Originally Posted by Katie_Perry

Isn't 08 better than 06 Pixie?

For making combat arms spammer for me, no, for other stuff, yeah, cause for me, VB 08 wont work with hotkeys

Wow..No hotkeys >.<

I learnt something =D

Originally Posted by Pixie

Will that work in VB 06??

Omg, neither of that worked...

works in .NET
dont know about VB6

(For those people who dont know what .NET is, Its VB 2002+)

and resigner a shortkey?

I think i have an idea of making one.
Make it exactly liek a spammer but just spam a key.
What is the Name of the key for the spacebar

Bkuz
SendKeys.Send("{ENTER}")
What would you put instead of enter for space bar?
Also, How would you make it not have a liek form. JUst a code in it then a little icon in the taskbar?

Thanks,
acid_buRn

omg so no hotkey in 08? 0.o i belive put space instead of enter probably that code was for an auto talker lol

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Hop As String
Hop = " "
SendKeys.Send(Hop)

Public Const MOD_ALT As Integer = &H1 'Alt key

Public Const WM_HOTKEY As Integer = &H312

Public Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer, ByVal fsModifiers As Integer, ByVal vk As Integer) As Integer

Public Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As IntPtr, ByVal id As Integer) As Integer

Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)

If m.Msg = WM_HOTKEY Then
Dim id As IntPtr = m.WParam
Select Case (id.ToString)
Case "9"
Timer1.Start()
Case "10"
Timer1.Stop()
End Select
End If
MyBase.WndProc(m)
End Sub

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing

Call RegisterHotKey(Me.Handle, 9, MOD_ALT, Keys.Z)
Call RegisterHotKey(Me.Handle, 10, MOD_ALT, Keys.X)

End Sub
End Sub
End Class