zoukankan      html  css  js  c++  java
  • IIC稳定性.VBS

    Sub Main

    Dim cnt
    Dim delay
    Dim time
    Dim atttime
    atttime = 20
    delay = 3000
    time = 50
    crt.screen.Send "root" & chr(13)
    crt.Sleep delay
    crt.screen.Send "admin123" & chr(13) & chr(13)
    crt.Sleep delay
    crt.screen.Send "enable" & chr(13)
    crt.Sleep delay
    crt.screen.Send "config" & chr(13)& chr(13)
    crt.Sleep delay
    For cnt = 0 To time
    crt.screen.Send "optical-node workmode 0 1RX2TX " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node system parameter 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    Next
    crt.screen.Send "root" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "admin123" & Chr(10) & chr(13) & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
    crt.Sleep delay


    crt.Sleep delay
    For cnt = 0 To time
    crt.screen.Send "interface optical-receiver 0" & Chr(10) & chr(13)
    crt.screen.Send "rf power threshold 0 5" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical power threshold -8 2" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical agc mode on range minus4to2dBm" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-receiver run info" & Chr(10) & chr(13) & chr(13) & chr(13) & chr(13) & chr(13) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-receiver system parameter " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf output switch on" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf output switch off" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "quit " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    Next


    For cnt = 0 To time
    crt.screen.Send "interface optical-transmitter 0" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical-transmitter bias threshold 2 88" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical-transmitter power threshold 1 5" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "optical-transmitter rf att 0" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-transmitter run info" & Chr(10) & chr(13)& chr(13)& chr(13)& chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-transmitter system parameter" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "quit " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    Next
    crt.screen.Send "quit" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "root" & chr(13)
    crt.Sleep delay
    crt.screen.Send "admin123" & chr(13) & chr(13)
    crt.Sleep delay
    crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
    crt.Sleep delay

    For cnt = 0 To atttime
    crt.screen.Send "diagnose " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf att 0" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf att 10" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "rf att 5" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display temperature optical-node 0 " & Chr(10) & chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "config " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    Next
    crt.screen.Send "root" & chr(13)
    crt.Sleep delay
    crt.screen.Send "admin123" & chr(13) & chr(13)
    crt.Sleep delay
    crt.screen.Send "enable" & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "config" & Chr(10) & chr(13) & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "diagnose" & Chr(10) & chr(13) & Chr(10) & chr(13)
    crt.Sleep delay
    For cnt = 0 To atttime
    crt.screen.Send "su " & Chr(10) & chr(13)
    crt.Sleep 500
    crt.screen.Send "elabel optical-node 0 0 1123qsedq 20180428" & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "elabel optical-node 0 2 1123qsedq 20180428" & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "elabel optical-node 0 3 1123qsedq 20180428" & Chr(10) & chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "display version optical-node 0 " & Chr(10) & chr(13)& chr(13)& chr(13)& chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "diagnose " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display elabel optical-node 0 " & Chr(10) & chr(13)& chr(13)& chr(13)
    crt.Sleep delay
    crt.screen.Send "config " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "display optical-node 0 " & Chr(10) & chr(13)
    crt.Sleep delay
    crt.screen.Send "diagnose " & Chr(10) & chr(13)
    crt.Sleep dela
    Next
    End Sub

  • 相关阅读:
    赶紧收藏吧!MyBatis-Plus万字长文图解笔记,错过了这个村可就没这个店了
    这篇建议java开发都看看,对Java方法及加深理解的很深,值得一看!
    秒极啊!手把手带你进行shiro授权拦截器的重写,学到了学到了
    java面试复习重点:类的管理及常用工具,教你抓住面试的重点!
    手撸一个外卖点餐系统后台,可以写上简历的实战项目!
    JVM类加载机制详解,建议看这一篇就够了,深入浅出总结的十分详细!
    这份SpringMVC执行原理笔记,建议做java开发的好好看看,总结的很详细!
    iOS-----GitHub上比较齐全的iOS 工具和App
    iOS-----AVFoundation框架的功能详解
    iOS-----UIScrollView
  • 原文地址:https://www.cnblogs.com/classics/p/9747162.html
Copyright © 2011-2022 走看看