Bunny Hopper- Auto Jumper
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)
Originally Posted by Iamazn
Code:
Dim Hop As String Hop = " " SendKeys.Send(Hop)
Omg, neither of that worked...
Isn't 08 better than 06 Pixie?
Originally Posted by Katie_Perry
Isn't 08 better than 06 Pixie?
Wow..No hotkeys >.<
I learnt something =D
I learnt something =D
Originally Posted by Pixie
Will that work in VB 06??
Omg, neither of that worked...
Omg, neither of that worked...
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
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
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
How about using the GetASyncKeyState function?
Its much more easier and stable as far as i know.
Its much more easier and stable as far as i know.
Originally Posted by K4GE
How about using the GetASyncKeyState function?
Its much more easier and stable as far as i know.
Its much more easier and stable as far as i know.
ikr nothing works 0.o......
0.o okies imma download that im using vb 2008
This thread is closed for replies.
