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. 【转】Python3 操作符重载方法

    Python3 操作符重载方法 本文由 Luzhuo 编写,转发请保留该信息. 原文: http://blog.csdn.net/Rozol/article/details/70769628 以下代码 ...

  2. unity发布的WebGL部署到IIS

    一.创建WebGL代码 在win7下,Unity3D中发布WebGL,然后部署到IIS,只要代码是对,关键是添加mime类型 二.为网站添加mime类型 .json text/json .unity3 ...

  3. 手把手教你写vue插件并发布（一）

    vue的插件开发 这篇文章较长,需要一定的阅读时间.这里有一份改善版本的插件笔记,在一个项目下完成开发.测试.发布的全过程.https://www.cnblogs.com/adouwt/p/96555 ...

  4. Oracle内存详解之 Library cache 库缓冲

    Oracle内存详解之 Library cache 库缓冲 2017年11月09日 11:38:39 阅读数:410更多 个人分类: 体系结构 Library cache是Shared pool的一部 ...

  5. 转载：.Net 程序集 签名工具sn.exe 密钥对SNK文件 最基本的用法

    .Net 程序集 签名工具sn.exe 密钥对SNK文件 最基本的用法 阐述签名工具这个概念之前,我先说说它不是什么: 1.它不是用于给程序集加密的工具,它与阻止Reflector或ILSpy对程序集 ...

  6. Confluence 使用常见问题列表

    Confluence 6 管理 Atlassian 提供的 App 摘要: Confluence 用户可以使用桌面应用来编辑一个已经上传到 Confluence 的文件,然后这个文件自动保存回 Con ...

  7. 怎样把PDF文件中的一页提取出来

    现在随着网络科技的发展在网上找资源找文件就像家常便饭一样,但是有很多文件下载完成之后只有几页是需要的这时候就很困惑了,这么多怎么才能看完啊.这样为了不浪费时间可以将有用的一页提取出来,进行使用,那怎样 ...

  8. Kali Linux 更新源

    1.  Kali Linux更新源 更换更新源,命令行中执行一下命令 /etc/apt/sources.list 2 替换sources.list里面的内容 可以使用以下三个源(使用一个即可) #ka ...

  9. SQL窗口函数RANK(),Dense_Rank(）,row_number(),NTILE()

    数据源 CREATE TABLE student( no int, ca ), name ), subject ), scorce int ); /* 数据 */ , ); , ); , ); , ) ...

  10. 移动 ProgramData\Package Cache 文件夹

    装完vs2017 发现C盘快木有空间了… 瞅瞅C盘下有啥能删的好释放下空间 就找到了 Package Cache 文件夹,占用空间接近15G… 查查这个文件夹还不建议删除… (http://super ...