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. H - Partial Tree HDU - 5534 (背包)

    题目链接: H - Partial Tree  HDU - 5534 题目大意:首先是T组测试样例,然后n个点,然后给你度数分别为(1~n-1)对应的不同的权值,然后问你在这些点形成树的前提下的所能形 ...

  2. 设计模式一: 单例模式(Singleton)

    简介 单例模式是属于创建型模式的一种(另外两种分别是结构型模式,行为型模式).是设计模式中最为简单的一种. 英文单词Singleton的数学含义是"有且仅有一个元素的集合". 从实 ...

  3. 【全网最全的博客美化系列教程】08.自定义地址栏Logo

    全网最全的博客美化系列教程相关文章目录 [全网最全的博客美化系列教程]01.添加Github项目链接 [全网最全的博客美化系列教程]02.添加QQ交谈链接 [全网最全的博客美化系列教程]03.给博客添 ...

  4. formData 对象 与 Content-Type 类型

    FormData FormData对象用以将数据编译成键值对,以便用XMLHttpRequest来发送数据.其主要用于发送表单数据,但亦可用于发送带键数据(keyed data),而独立于表单使用.如 ...

  5. vue.js组件命名

  6. 安装和启动tftp-server服务器及可能出现Redirecting to /bin/systemctl restart xinetd.service问题的解决方式

    安装和启动tftp-server服务器及可能出现Redirecting to /bin/systemctl restart xinetd.service问题的解决方式 1)首先,检查服务器已安装的tf ...

  7. ios 给微信开发一个插件并安装到未越狱的手机上教程

    现来整体说一下思路,首先给越狱的手机开发一个插件并安装上去,然后去越狱手机上找到相应的动态库和对应的微信APP安装包,拷贝出来,然后重新签名,就可以安装到未越狱的手机上了 1.首先你的电脑需要安装th ...

  8. sql语句的删除

    SQL中delete * from 和 delete from 有什么区别? 在SQL Server中两者没有区别,但在Oracle和MySQL的SQL语句中,delete * from是不标准的语法 ...

  9. H5唤醒app，不完全兼容

    ---ps---最近新发现一个开源的H5唤醒app的库:建议使用第三方开源库https://github.com/suanmei/callapp-lib实现:或者极光魔链(后期可能会收费)https: ...

  10. nginx 配置laravel框架域名配置

    server { listen 80; server_name admin.meiquick.local.com; #charset koi8-r; # access_log /var/log/ngi ...