CODE: [Copy to clipboard]
; Run Telnet
Run("telnet 192.168.1.1 61174")
; Rename window
$WinTitle="Telnet (ZXDSL 831) <<- F9-Private Deny / F10-Private Accept / CTRL+d to exit ->>"
WinWait("Telnet 192.168.1.1","")
WinSetTitle("Telnet 192.168.1.1","",$WinTitle)
WinActivate($WinTitle,"")
; Login and change to export directory
xSend($WinTitle,"username{ENTER}")
xSend($WinTitle,"password{ENTER}")
Changeset1()
runwait(@ComSpec & ' /C "c:\windows\system32\ipconfig.exe" /renew')
; Main loop
while WinExists($WinTitle,"")
if WinActive($WinTitle,"") then
HotKeySet("{F9}", "changeset1")
HotKeySet("{F10}", "changeset2")
else
HotKeySet("{F9}")
HotKeySet("{F10}")
endif
Sleep(20)
wend
Exit
; Extended send function
func xSend($aWinTitle,$aString)
Sleep(500)
WinActivate($aWinTitle,"")
Send($aString)
endfunc
func Changeset1()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc
func Changeset2()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc