标签:roo config node next nod admin 测试 splay display
Sub Main
Dim cnte
Dim cnt
Dim delay
Dim time
Dim onetime
onetime = 9999999
delay = 5000
time = 700
For cnte = 0 To onetime
crt.screen.Send "quit " & Chr(10) & chr(13)
crt.Sleep delay
crt.screen.Send "quit " & chr(13)
crt.Sleep 500
crt.screen.Send "y " & chr(13)
crt.Sleep delay
crt.screen.Send "12" & chr(13)
crt.Sleep delay
crt.screen.Send "root" & chr(13)
crt.Sleep delay
crt.screen.Send "admin123" & chr(13)
crt.Sleep delay
crt.screen.Send "enable " & chr(13)
crt.Sleep delay
crt.screen.Send "config " & chr(13)
crt.Sleep delay
For cnt = 0 To time
crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
crt.Sleep delay
Next
Next
End Sub
标签:roo config node next nod admin 测试 splay display
原文地址:https://www.cnblogs.com/classics/p/9747165.html