ok so first off your gona need either VB 10 or VB 08
after u get that open it and creat a new windows application
now size your form how ever big u want
ok now to start making it
step 1. add the following:
2 buttons
2 text boxes
1 rich text box
-------------------------------
and a timer
step 2. in text box 1 write:
F6=Connect
in text box 2 write
F5=Disconnect
step 3.
button 1 should be nammed connect
button 2 is disconnect
now in rich text box write "Made by [INSERT NAME HERE], code by a2zhacker"
now double click ur forum so itll show the code page and erase everything on the page and put my code in its place
- Code:
-
Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("NET START DHCP")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("Net STOP DHCP")
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim StartHotkey As Integer
StartHotkey = GetAsyncKeyState(116)
If StartHotkey <> 0 Then
Shell("Net STOP DHCP")
End If
Dim StopHotkey As Integer
StopHotkey = GetAsyncKeyState(117)
If StopHotkey <> 0 Then
Shell("NET START DHCP")
End If
End Sub
End Class
And there you have it a CA tapper remember to give credits!