Secu reCRT 使用进阶篇 高睿 4536 1. SCREEN 动作，等待字符串 crt.Screen.WaitForString "confirm:" 2. SCREEN 动作，发送字符串 crt.Screen.Send "yes" & VbCr ——发送yes 并回车 crt.Screen.Send VbCr ——发送回车 Chr(13) crt.Screen.Send “ ” ——发送空格 Chr(32) crt.screen.sendkeys("^c") ——发送Ctrl+C 3. 等待 crt.sleep 200 4. 定义变量 Dim LocalIp Dim com9600 Dim MyString, myArray, screen1 5. 变量赋值 com9600 = "串口\" + ComNo +"-9600" LocalIp = crt.Dialog.Prompt("请输入设备 IP 地址", "设备 IP", "192.168.80.", False) 6. 弹出信息框 CRT.DIALOG.MESSAGEBOX(MESSAGE [, TITLE [, BUTTONS]]) crt.Dialog.MessageBox "恭喜你，文件创建成功" crt.Dialog.MessageBox _ "恭喜你，版本升级完成" & vbcrlf & vbcrlf & _ "bootrom 升级完成，版本号为：" + BootRomVer & vbcrlf & vbcrlf & _ "mainrom1、mainrom2 升级完成，版本号为: " + SystemVer & vbcrlf & vbcrlf & _ "system1 system2 升级完成，版本号为: " + SystemVer & vbcrlf & vbcrlf & _ "正在为您重启系统……" & _表示下一行的连接。 & vbcrlf 表示回车。 7. 弹出对话窗口，获取参数值，赋给变量 LocalIp = crt.Dialog.Prompt(" 请 输 入 Local IP, 使 用 默 认 可 不 填 IP", "Local IP", "199.0.0.244", False) 8. 创建新的连接 crt.session.Connect("/s mysession") 连接已创建的 session crt.session.Connect("/telnet myhost 23") 创建一个 telnet 连接 session crt.session.Connect("/SSH2 /PASSWORD password name@myhost") 创建一个 ssh 连接session crt.Session.Connect("/Serial COM2 /BAUD 9600")创建一个 console 连接 session 9. 在新的TAB 标签页创建连接 Set tab = crt.session.ConnectInTab("/s mysession") 在新tab 创建已有连接session Set tab = crt.session.ConnectInTab("/telnet myhost 23") 在新tab 创建一个telnet 连接session Set tab = crt.session.ConnectInTab("/SSH2 /PASSWORD password name@myhost") 在新tab 创建一个ssh 连接session Set objTab = crt.Session.ConnectInTab("/Serial COM2 /BAUD 9600"...
VIP
