[TuT] Internet Tapper + Hotkeys

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible

Shell("Net STOP DHCP")

Shell("NET START DHCP")

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