摘要:
Sub Main crt.Sleep 10000 Dim cnt For cnt = 0 To 1000000 crt.screen.Send "admin-status down" & Chr(10) crt.Sleep 600000 crt.screen.Send "admin-status u 阅读全文
摘要:
Sub Main Dim cnt Dim delay delay = 10000 For cnt = 0 To 80 crt.screen.Send "interface optical-receiver 0 " & chr(13) crt.Sleep delay crt.screen.Send " 阅读全文
摘要:
Sub Main Dim cnt Dim delay Dim time Dim atttime atttime = 20 delay = 3000 time = 50 cnt_time=3 crt.screen.Send " " & chr(13) crt.screen.WaitForString" 阅读全文