|
func dlink36()
$s=ping(GUICtrlRead($telnet),500)
if $s Then
run("telnet " & GUICtrlRead($telnet))
WinActivate("Telnet","")
winsetstate("Telnet " & GUICtrlRead($telnet),"",@SW_HIDE)
sleep(100)
send("xuweiwei" & "{enter}")
send("123456" & "{enter}")
send("enable admin" & "{enter}")
send(GUICtrlRead($enable),1)
send("{enter}")
send("conf ports " & GUICtrlRead($port) & " state enable " & "speed 10_half" & "{enter}")
Else
MsgBox(0,"交换机状态","交换机设备不通")
EndIf
EndFunc
[ 本帖最后由 bin0131 于 2009-2-14 12:17 编辑 ] |
|