[TUT] Simple Tapper (easyer way) - VB
[TUT] Simple Tapper (easyer way) - VB
Hello, Im TheRealOne and this is my first Tuturial, as the title says, It will theach you how to make a simple Tapper that works by pressing a key or clicking a button... (usefull for CA, AVA, Soldier Front and other games...) Using Visual Basic 2008. (The tapper CAN be used even if another program as the "focus")
I know that there are other tuturials for making a tapper, but i created this one, it has less coding and it was made by ME (exept the buttons part)...Lets start:
You only need a Timer on the design.
Set the Timer Interval to 100 and set "enabled" to TRUE...
Ok, now lets see the coding:
1) you need to declare user32 Lib so that you can use "GetAsyncKeyState"
[php] Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer[/php]
2) You must put what appens when the timer ticks:
[php] Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim HotKey, Key As Boolean
HotKey = GetAsyncKeyState(Keys.F6)
Key = GetAsyncKeyState(Keys.F5)
If HotKey = True Then
Shell("NET STOP DHCP")
ElseIf Key = True Then
Shell("NET START DHCP")
End If
End Sub[/php]
You can change "(Keys.F5) and (Keys.F6) To whatever key you want...
[OPTIONAL]3) If you want to add a button to do the same thing as F5/f6 just write this and add 2 buttons... The buttons credits go to GrImReApEdv2.0 because this part is already on his post...
Button 1:
[php] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("NET START DHCP")
End Sub[/php]
Button 2:
[php] Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("Net STOP DHCP")
End Sub[/php]
Heres the full code, not including the buttons part:
[php]Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim HotKey, Key As Boolean
HotKey = GetAsyncKeyState(Keys.F6)
Key = GetAsyncKeyState(Keys.F5)
If HotKey = True Then
Shell("NET STOP DHCP")
ElseIf Key = True Then
Shell("NET START DHCP")
End If
End Sub
End Class[/php]
Credits:
Tuturial~me
Press keys to work~me
Buttons(optional)~GrImReApEdv2.0
Press Thanks if this was usefull =D
I know that there are other tuturials for making a tapper, but i created this one, it has less coding and it was made by ME (exept the buttons part)...Lets start:
You only need a Timer on the design.
Set the Timer Interval to 100 and set "enabled" to TRUE...
Ok, now lets see the coding:
1) you need to declare user32 Lib so that you can use "GetAsyncKeyState"
[php] Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer[/php]
2) You must put what appens when the timer ticks:
[php] Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim HotKey, Key As Boolean
HotKey = GetAsyncKeyState(Keys.F6)
Key = GetAsyncKeyState(Keys.F5)
If HotKey = True Then
Shell("NET STOP DHCP")
ElseIf Key = True Then
Shell("NET START DHCP")
End If
End Sub[/php]
You can change "(Keys.F5) and (Keys.F6) To whatever key you want...
[OPTIONAL]3) If you want to add a button to do the same thing as F5/f6 just write this and add 2 buttons... The buttons credits go to GrImReApEdv2.0 because this part is already on his post...
Button 1:
[php] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("NET START DHCP")
End Sub[/php]
Button 2:
[php] Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("Net STOP DHCP")
End Sub[/php]
Heres the full code, not including the buttons part:
[php]Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim HotKey, Key As Boolean
HotKey = GetAsyncKeyState(Keys.F6)
Key = GetAsyncKeyState(Keys.F5)
If HotKey = True Then
Shell("NET STOP DHCP")
ElseIf Key = True Then
Shell("NET START DHCP")
End If
End Sub
End Class[/php]
Credits:
Tuturial~me
Press keys to work~me
Buttons(optional)~GrImReApEdv2.0
Press Thanks if this was usefull =D
Hm good tutorial.
Maybe I make a program that taps and auto on if to long
Maybe I make a program that taps and auto on if to long
Originally Posted by Nickleo9
Hm good tutorial.
Maybe I make a program that taps and auto on if to long
Maybe I make a program that taps and auto on if to long
Originally Posted by DayumKen
It did work, and all this was the same word, text by text. Noob.
/Reported for leeching and reposting the same thing.
/Reported for leeching and reposting the same thing.
Hypocrite
Nice tut TheRealOne, but look into explaining what each thing does in each step (i.e what does "Shell("NET START DHCP")" do etc etc..) Although it might seem obvious to you, me and anyone else with vb knowledge, many people new to VB start with simple projects such as this, so endeavor to explain as much as you can.
Originally Posted by Jason
Nice tut TheRealOne, but look into explaining what each thing does in each step (i.e what does "Shell("NET START DHCP")" do etc etc..) Although it might seem obvious to you, me and anyone else with vb knowledge, many people new to VB start with simple projects such as this, so endeavor to explain as much as you can.
Ok, thanks again... I can't edit it... I will do that for future tuturials...
Hum, I still didn't understood one thing... I was tring to help (by using less code, and making the key F5;F6 work, at least for me...)... i didn't mean to leech... Am I going to get banned or something like that? I was only trying to help... Not to lech...
PS: I have read the rules (the one for visual basic forum, because I didn't found this forum rules...)I just didn't understood wait will happen...
Originally Posted by Nickleo9
The F5 and F6 didn't even work one his code (at least in my pc)... I made a new code that acctualy WORKS and doesn't have so much coding...
Thats not leeching since I was the one who wrote this code!! The only thing in comon its that they use a timer and if's... But this code isn't his, its myne...
PS: I was thinking on doing that xP (If you mean a program that auto stops in X seconds...)
It did work, and all this was the same word, text by text. Noob.
/Reported for leeching and reposting the same thing.
/Reported for leeching and reposting the same thing.
i was trying to make the Tapper whit less code, witch I did... And it didn't work in my PC, sory if it worked on yours, I may have done something wrong...
1º- I was attempting to make the code easyer (whit less lines of coding)... His code had 23 lines of coding... My only has 13 whit 6 that are optional (19 total, thats less 4 lines, less 10 if you don't put the buttons) For some reason the title of the topic is EASYER WAY no easy way... (easyer = not as hard to do as somethig else; in this case as the other code)
2º- He used to ifs, I only used one if (whit a ElseIf) to make the code easyer...
3º- Also he as "If StopHotkey <> 0 Then" I used "If HotKey = TRUE Then"... They are different ways to do the same...
I was only trying to help... I started learning VB 5 days ago... If this is leeching then delete my thread... I didn't think that it was leeching since I was trying to make something easyer... Sorry...
I won't do any more tuturials -.-'' or anything else... I can't try to help whitout having guys calling me noob and leecher... Please if someone can, close the Thread or delete it if this is leeching...
Sorry again...
1º- I was attempting to make the code easyer (whit less lines of coding)... His code had 23 lines of coding... My only has 13 whit 6 that are optional (19 total, thats less 4 lines, less 10 if you don't put the buttons) For some reason the title of the topic is EASYER WAY no easy way... (easyer = not as hard to do as somethig else; in this case as the other code)
2º- He used to ifs, I only used one if (whit a ElseIf) to make the code easyer...
3º- Also he as "If StopHotkey <> 0 Then" I used "If HotKey = TRUE Then"... They are different ways to do the same...
I was only trying to help... I started learning VB 5 days ago... If this is leeching then delete my thread... I didn't think that it was leeching since I was trying to make something easyer... Sorry...
I won't do any more tuturials -.-'' or anything else... I can't try to help whitout having guys calling me noob and leecher... Please if someone can, close the Thread or delete it if this is leeching...
Sorry again...
Lol my simple tapper, is just turning off the switch WLAN in my laptop. XD
Well, thats what it's suppost to do xD
I "lose" internet connection and them get it back up.. In the mean time you kill lots of guys who are frezzed in your screen, but you can move arrond xP
Like two years ago, i used to disconect the cable and plug it back in xD It's muck better like this xP
I "lose" internet connection and them get it back up.. In the mean time you kill lots of guys who are frezzed in your screen, but you can move arrond xP
Like two years ago, i used to disconect the cable and plug it back in xD It's muck better like this xP
