[Tutorial]Hotkey System

[Maxn 5060]

This can be used for your Spammer, but not only for that

 

You need

1 Timer

 

1. Enable the timer and set the interval to "1"

 

 

 

2. Declare the GetAsyncKeyState function under class

Private Declare Function

GetAsyncKeyState

Lib

"User32"

(

ByVal

vKey

As Long

)

As Integer

 

3. Set a new variable, in example for the Key "F5" as Boolean

 

Dim

hotkey

As Boolean

hotkey = GetAsyncKeyState(Keys.F5)

 

4. Now you've got your Hotkey and can do with it what you want!

 

If

hotkey =

True Then

'Enable a button/timer etc. Do anything you want

End If

 

Information

 

Credits

Tutorial by Maxn™

 

Greets

 

Maxn

Edited April 16, 2009 by Maxn™

[Mozilla™ 2]

oO gleich mal probieren.. oder tuten ^^

 

 

P.S Supporter ? ^^

Edited April 16, 2009 by Mozilla™

[V!rus 0]

or if GetAsyncKeyState(vbkey:=(17)) then

 

Something like that

[sh00ter999. 7]

There is a much easier solution :

Make a module :

Declare your Hotkeyfunction :

Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

 

Go back to your form -> add a timer ->

 

If GetAsyncKeystate(17) then 'If press CTRL (= Ascii code)

'Do what you want

End if 'end function

 

 

 

Then it works without the "Dim" stuff and you can replace the 17 with whatever you want

Edited April 16, 2009 by sh00ter999

[DrInvisible 4]

Copy&Paste -.-

google -> Public Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer .. blabla

[V!rus 0]

... we don't name it leeching, it a declaration, what he do if he took it on the net....