保護模式.vbs
阿新 • • 發佈：2018-10-06
pre inter mode sleep isp end display delay ORC
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 "optical workmode combiner " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode force-channel0 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode force-channel1 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode prefer-channel0 " & chr(13)
crt.Sleep delay
crt.screen.Send "optical workmode prefer-channel1 " & chr(13)
crt.Sleep delay
crt.screen.Send "quit " & chr(13)
crt.Sleep delay
crt.screen.Send "display optical-node 0 " & chr(13)
crt.Sleep delay
Next
End Sub
保護模式.vbs