Originally Posted by
clawatk
You make it sound so easy xD
I wish i knew how to program
Code:
private sub buttonClickedDerpHerp() handles derpherp.clicked
' Public method of disconnecting
Shell("NET STOP DHCP")
end sub
private sub buttonClickedHerpDerp() handles herpderp.clicked
' Public method of reconnect
Shell("NET START DHCP")
end sub
How i would do it:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Const Base As Long = 1000000
Const Top As Long = 65536
private sub form1_load() handles me.load
me.title = Int((Base * Rnd()) + Top) + 1
timer1.interval = 5
timer1.enabled = true
end sub
private sub timer1_tick() handles timer1.tick
if GetASyncKeyState(Keys.<connect key>) then ' Connect Key
connect()
elseif GetASyncKeyState(keys.<disconnect key>) then 'disconnect key
disconnect()
end if
end sub
private sub connect()
Shell(decryptString("szmyxpsq*9|oxo")
end sub
private sub disconnect()
Shell(decryptString("szmyxpsq*9|ovok}o"))
end sub
private sub decryptString(byval stringToDecrypt as string)
' Code not featured
end sub