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. 【原创】Linux基础之用户和组

    1 添加.删除用户 # useradd $user# userdel $user 2 设置用户密码 # passwd $user /etc/passwd 3 查看$user的用户和组信息 # id $ ...

  2. vue.js组件命名

  3. Solidity构造函数和析构函数

    构造函数:当方法名字和合约名字相同的时候,这个就是构造函数,构造函数在合约对象创建之后执行的 contract Person{ function Peron(){//构造函数Person ... } ...

  4. VMware Workstation 15 Pro 永久激活密钥 下载

    注:本文来源于:Felix__H 的<VMware Workstation 15 Pro 永久激活密钥 下载 > 一. 激活密钥 YG5H2-ANZ0H-M8ERY-TXZZZ-YKRV8 ...

  5. jsp 安全

    一.  身份验证和授权 认证是检验某人真正是他/她自称的那个人的过 程.在一个Servlet/JSP应用程序中,身份验证一般通过 检查用户名密码是否正确.授权是检查该级别的用户是 否具备访问权限.它适 ...

  6. 程序猿最浪漫的表白，肯定会得到你的她——Jason niu 原文来自GitHub，本人已部分修改

    程序猿最浪漫的表白,肯定会得到你的她——Jason niu    原文来自GitHub,主页本人已部分修改,感谢程序猿大神wuxia2001和hackerzhou的开源,感谢这两位大神! 视频结果展示 ...

  7. 异常之Tomcat8

    在部署新项目后,启动tomcat突然报出如下错误: 问题:Publishing failed Could not publish to the server. Cannot acquire J2EEF ...

  8. CSS-Sass

    什么是css预处理器

  9. Orleans框架简单示范

    希望现在学习Orleans不会晚,毕竟Server Fabric都开源了.本篇博客从Sample的HelloWorld示例程序来解读Orleans的Grains. Server配置参考 : https ...

  10. yum clear all无反应

    卸载重装yum 操作系统版本:centos7 [root@linux-node3 ~]# uname -r 3.10.0-514.el7.x86_64 一.将现有的yum源卸载 [root@linux ...