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

IIC稳定性.VBS的更多相关文章

  1. stm8的IIC库的使用

    一.前言 stm8是一款低功耗的MCU芯片,它具备stm32库函数和资源丰富的优势.也同时具有价格便宜,低功耗的特点.在一些项目中,能起到很好的作用.下面我介绍一下stm8的IIC硬件库函数驱动代码及 ...

  2. firefox下载文件弹出框之终极解决方案-vbs模拟键盘操作

    由于近期一直被firefox的保存文件弹出框困扰,摸索尝试过几种方法,已有的方法可以跑通但是对对效果不太满意,因此一直在寻找合适的解决办法. 最近发现了也可以通过VBS来处理弹出框,速度也不错,其原理 ...

  3. 51单片机下实现软件模拟IIC通信

    1.IIC协议简易概述 IIC全称Inter-Integrated Circuit (集成电路总线),是由PHILIPS公司在80年代开发的两线式串行总线,用于连接微控制器及其外围设备.IIC属于半双 ...

  4. DBImport V3.7版本发布及软件稳定性（自动退出问题）解决过程分享

    DBImport V3.7介绍: 1:先上图,再介绍亮点功能: 主要的升级功能为: 1:增加(Truncate Table)清表再插入功能: 清掉再插,可以保证两个库的数据一致,自己很喜欢这个功能. ...

  5. IIC驱动移植在linux3.14.78上的实现和在linux2.6.29上实现对比（deep dive)

    首先说明下为什么写这篇文章,网上有许多博客也是介绍I2C驱动在linux上移植的实现,但是笔者认为他们相当一部分没有分清所写的驱动时的驱动模型,是基于device tree, 还是基于传统的Platf ...

  6. 基于STM32Cube的IIC主从通信

    1.建立STM32Cube工程,我使用的芯片是STM32F429,为了更简单的建立单独的IIC通信任务,我使用了FREERTOS,另外选择了RCC(系统时钟初始化),I2C1,I2C2(为了验证代码的 ...

  7. C#调用vbs脚本实现Windows版Siri

    最近新加入,把自己一些有意思的小东西分享给大家,我是一个学生,代码写得少,哪里不规范,希望大家见谅. 这事我封装好的一个类,可以直接实例化对象之后,调用"对象.Talk()"方法, ...

  8. 第八章 交互技术，8.4 Weex 双11会场大规模应用的秒开实战和稳定性保障(作者：鬼道)

    8.4 Weex 双11会场大规模应用的秒开实战和稳定性保障 前言 Native 开发的诸多亮点中,流畅体验和系统调用是最多被提及的.流畅体验体现在页面滚动/动画的流畅性,背后是更好的内存管理和更接近 ...

  9. 在WinCC中通过VBS操作SQL Server2005

    在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询.考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Ma ...

随机推荐

  1. Leetcode#70. Climbing Stairs（爬楼梯）

    题目描述 假设你正在爬楼梯.需要 n 阶你才能到达楼顶. 每次你可以爬 1 或 2 个台阶.你有多少种不同的方法可以爬到楼顶呢? 注意:给定 n 是一个正整数. 示例 1: 输入: 2 输出: 2 解 ...

  2. js限制字符串长度,超出的部分补...

    value?(value.length>12?(value.substring(0,12))+"...":value):""

  3. dubbo线程模型

    dubbo的provider有2种线程池: IO处理线程池.(直接通过netty等来配置) 服务调用线程池. 如果事件处理的逻辑能迅速完成,并且不会发起新的 IO 请求,比如只是在内存中记个标识,则直 ...

  4. Python学习笔记-Linux下安装Python

    Linux系统CentOS 1.安装依赖组件 yum install openssl-devel bzip2-devel expat-devel gdbm-devel readline-devel s ...

  5. C#学习笔记-XML的读写（一）

    需要解析的配置XML <?xml version="1.0" encoding="utf-8" ?> <configurations> ...

  6. Windows7下PHP5.6.19+Apache2.4.18+MySql5.7环境配置

    此安装参考了网上各方资料,最终整理的内容为本次安装涉及的部分. 一.准备安装材料: 1.从http://windows.php.net/download/ 下载5.6.19 线程安全版(使用apach ...

  7. 关于Activity生命周期的总结

    1.Acitivity的四种状态 (1)运行:位于Activity栈顶,用户可见,可获得焦点. (2)暂停:如果一个活动被另一个非全屏的活动所覆盖(比如一个Dialog),那么该活动就失去了焦点,它将 ...

  8. java中的stream的泛型方法的使用示例

    本文章使用jdk8测试 ,并结合使用lambda测试 测试前准备一些测试数据: class ObjectDemo { private Integer id; private String name; ...

  9. 洛谷P5280 [ZJOI2019]线段树 [线段树，DP]

    传送门 无限Orz \(\color{black}S\color{red}{ooke}\)-- 思路 显然我们不能按照题意来每次复制一遍,而多半是在一棵线段树上瞎搞. 然后我们可以从\(modify\ ...

  10. Git使用十：匿名分支和checkout命令

    匿名分支 新建个仓库,并且初始化,创建3个文件,并提交 此时在没有创建新分支的情况下,checkout一下,比如上一个快照 这一段话的意思是,使用了checkout命令,但是没有指定分支名,所以git ...