Hello Guys This Is My First Tapper. v1.
The Thing That Sucks Is That You Only Have 10-20 Sec To Connect Again Or It The Game Will Crash.
Credits:
Me
Last edited by -Simply-Own-; 04-25-2010 at 07:54 PM.
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------
Looks nice, you should add a form name next time tho
/approved
wait... i can't -_-
-Simply-Own- (04-25-2010)
Lol Thx,
I Know Next Time
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------
Hey do you want hot keys for it? I can help you.
Sure^^
You Will Be Credtited
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------
Ok,First create the buttoon named disconnect and view code.Now go to the top right and it will show the word click in a drop down menu.Click it and click on keydown hen enter this code. (dont put quotations)
For you i would do for your tapper,Code:If e.keycode=Keys."whatever key u want" Then "What you want that key to do.
Same for connect but NET START DHCPCode:If e.keycode=Keys.F6 Then Shell("NET STOP DHCP")
-Simply-Own- (04-25-2010)
I personally use RegisterHotkey (since it only gets keyboard input whenever it is pressed rather than running a timer every tenth of a second).
But GetASyncKeyState is easier to do and does the same thing:
Add a timer and add this code:Code:Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
This code will work even if your playing CA and your tapper is inactive.Code:Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If GetAsyncKeyState(Keys.F1) Then 'stuffff End If End Sub
^ Not in any private function or sub use
Then, under a timer function set to an interval of 1Code:Public Declare Function GetAsyncKeyState Lib "user32"(ByVal vKey As Long) As Integer
Edit: Aw damn. Beat me to it.Code:Dim Hotkey1 As Boolean Hotkey1 = GetAsyncKeyState(Keys.'Whatever Key) If Hotkey1 = True Then Shell(NET STOP DHCP) End If Dim Hotkey2 As Boolean Hotkey2 = GetAsyncKeyState(Keys.'Whatever Key) If Hotkey2 = True Then Shell(NET STOP DHCP) End If
Assembly Programmer
Check out the VB section more. It's been in there quite a lot...
Assembly Programmer
Ima check That Out D: ^^
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------
umm fix your upload, it has a .frm file lol, idk wat that is
LIVERPOOL FC
Alright Hold On. . .
Sendi Im Done Check Now Plz
Last edited by -Simply-Own-; 04-25-2010 at 07:55 PM.
Need Help? With Anything? Add Me On Msn.
simplyown123@hotmail.com
Made By Me
-----------------------------------------------------------------