Heey Guys,
For the one who make a Tapper or a MultiTool with a tapper, here's a little Tutorial. [NoobFriendly]
MPGH Tutorial: How to Code a Tapper[VB]
By CheatCreatorz
!Not Working for all Os! Scroll down for : All OS version, This is the Simply One.!
________ (1.) First You need Some Codes.
Codes: [Timer]In Form
[ CODE]Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16[/CODE]
[Hotkeys] for timer.
Code:
If (GetAsyncKeyState(Key.F10)) Then
"Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
"Code here" //Disconnect
End if
[Connect/Disconnected](Button, Also Hotkeys)
1. Connect
Code:
shell("NET START DHCP")
2. Disconnect
Code:
Shell("NET STOP DHCP")
[Other Codes]
Only VB Beginner brain.
_______ 2. Give your project a Name(named: "Name"Tapper)
______
3. Add some things:
- 2 Buttons(Button1,Button2)
- 1 label(Label1)
- Checkbox(CheckBox1)
~Name of Form1~
Make it "Name"Tapper version .. Whatever you want.
And Change Lay-Out of your Form1, If you want.
______ 3. look the Picture Below.
- Rename everything(Buttons,Label,etc)
______ 4. Add a Timer(Timer1)
______ 5. Coding everything(Button, form, etc)
Look pictures Below.
Resize it to Full size.
Done!
Thx CheatCreatorz
Made the Pictures and Tut !>>>>>!
On all OS versions. From Code[VB]
1. this code to declare youre GetAsyncKeyState Hotkeys:
Code:
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short.
* as Short is better.
2. and after that give it the Property to correct using the hotkeys.
Code:
Private Property result() As Short
3. now we are ready to make functions like this:
Code:
For i = 6 To 255 ' with this loop the hotkeys work on every OS!!
result = 0
result = GetAsyncKeyState(i)
If GetAsyncKeyState(Keys.F1) Then
shell("NET START DHCP")
End If
If GetAsyncKeyState(Keys.F2) Then
shell("NET STOP DHCP")
End If
Next i
4. sooo okay now the full code look like this:
Code:
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short ' Declare hotkeys
Private Property result() As Short ' Declare result of hotkeys
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
For i = 6 To 255 ' with this loop the hotkeys work on every OS!!
result = 0
result = GetAsyncKeyState(i)
If GetAsyncKeyState(Keys.F1) Then
Shell("NET START DHCP")
End If
If GetAsyncKeyState(Keys.F2) Then
Shell("NET STOP DHCP")
End If
Next i
End Sub
End Class
Done!
Posts 1–4 of 4 · Page 1 of 1
Post a Reply
Tags for this Thread
None
Code:
If (GetAsyncKeyState(Key.F10)) Then
"Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
"Code here" //Disconnect
End if
This is written wrong it should be like this:
Code:
If (GetAsyncKeyState(Key.F10)) Then
"Code here" 'Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
"Code here" 'Disconnect
End if
I also don't recommand F10 and F11 as hotkeys.F9 and F10 would be better.
and the full code got different hotkeys.People might just copy and paste everything they see and it will get you an error.
Wrong section
Originally Posted by Takari
Code:
If (GetAsyncKeyState(Key.F10)) Then
"Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
"Code here" //Disconnect
End if
This is written wrong it should be like this:
Code:
If (GetAsyncKeyState(Key.F10)) Then
"Code here" 'Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
"Code here" 'Disconnect
End if
I also don't recommand F10 and F11 as hotkeys.F9 and F10 would be better.
and the full code got different hotkeys.People might just copy and paste everything they see and it will get you an error.
uhu, i know, who copy/past will get error with // ...
and with '... it will work, this is a tutorial not copy/past post.. --"
and whatever you want as Hotkeys.. --" F10 or F11 or F12 or F9.. all same effect..