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. Windows下VSCode编译调试c/c++

    参考链接:  https://blog.csdn.net/c_duoduo/article/details/51615381 支持makefile编译: https://www.cnblogs.com ...

  2. 嵌套调用less函数时参数值的变化及提取部分-遁地龙卷风

    在a.less中导入base.lessa.less中的代码 .animate-ripple-ink{ .animation(ripple .5s linear;{ 100%{ opacity:; .t ...

  3. pytorch对可变长度序列的处理

    主要是用函数torch.nn.utils.rnn.PackedSequence()和torch.nn.utils.rnn.pack_padded_sequence()以及torch.nn.utils. ...

  4. Linux IO Scheduler（Linux IO 调度器）【转】

    每个块设备或者块设备的分区,都对应有自身的请求队列(request_queue),而每个请求队列都可以选择一个I/O调度器来协调所递交的request.I/O调度器的基本目的是将请求按照它们对应在块设 ...

  5. C#基础零碎知识点摘录

    1.类分为静态类个非静态类(实例类) 静态类不能创建对象,使用方法时,直接类名.方法名(),常用的静态类有Console类 实例类:创建对象时通过对象调用类的方法 2.当我们声明一个类成员为静态时,意 ...

  6. VS2012遇到一个问题："链接器工具错误 LNK2026 XXX模块对于 SAFESEH 映像是不安全的"

    解决方法: 1.打开该项目的“属性页”对话框. 2.单击“链接器”文件夹. 3.单击“命令行”属性页. 4.将 /SAFESEH:NO 键入“附加选项”框中,然后点击应用.

  7. Python——plot可视化数据，作业8（python programming）

    subject1k和subject1v的形状相同 # -*- coding: utf-8 -*- import scipy.io as sio raw_K = sio.loadmat('Subject ...

  8. java入门写的第一个代码《HelloWorld》

    public class HelloWorld {public static void main(String[] args){System.out.println("HelloWorld! ...

  9. Shell入门（一）

    一.Shell参数变量相关知识: $@: 所有参数,每个参数带双引号.以"$1" "$2" "$3"的形式出现, $*:  所有参数,所有参 ...

  10. pta总结2

    7-1 币值转换 (20 分) 输入一个整数(位数不超过9位)代表一个人民币值(单位为元),请转换成财务要求的大写中文格式.如23108元,转换后变成"贰万叁仟壹百零捌"元.为了简 ...