SecureCRT使用进阶篇

SecureCRT使用进阶篇

高睿 4536

1. SCREEN动作，等待字符串

crt.Screen.WaitForString \

2. SCREEN动作，发送字符串

crt.Screen.Send \ ——发送yes 并回车 crt.Screen.Send VbCr ——发送回车 Chr(13) crt.Screen.Send “ ” ——发送空格 Chr(32) crt.screen.sendkeys(\ ——发送Ctrl+C

3. 等待

crt.sleep 200

4. 定义变量

Dim LocalIp Dim com9600

Dim MyString, myArray, screen1

5. 变量赋值

com9600 = \串口\\\

LocalIp = crt.Dialog.Prompt(\请输入设备IP地址\设备IP\

6. 弹出信息框CRT.DIALOG.MESSAGEBOX(MESSAGE [, TITLE [, BUTTONS]])

crt.Dialog.MessageBox \恭喜你，文件创建成功\

crt.Dialog.MessageBox _

\恭喜你，版本升级完成\

\升级完成，版本号为：\

\、mainrom2 升级完成，版本号为: \ \升级完成，版本号为: \ & vbcrlf & vbcrlf & _ \正在为您重启系统……\

& _表示下一行的连接。 & vbcrlf表示回车。

7. 弹出对话窗口，获取参数值，赋给变量

LocalIp = crt.Dialog.Prompt(\请输入Local IP,使用默认可不填IP\\IP\\

8. 创建新的连接

crt.session.Connect(\ 连接已创建的session

crt.session.Connect(\创建一个telnet连接session

crt.session.Connect(\ 创建一个ssh连接

session

crt.Session.Connect(\创建一个console连接session

9. 在新的TAB标签页创建连接

Set tab = crt.session.ConnectInTab(\在新tab创建已有连接session Set tab = crt.session.ConnectInTab(\ 在新tab创建一个telnet连接

session

Set tab = crt.session.ConnectInTab(\ 在新

tab创建一个ssh连接session

Set objTab = crt.Session.ConnectInTab(\在新tab创建一个

console连接session

10. 获得执行脚本所在TAB标签对象

Set objTab = crt.GetScriptTab

11. 获得当前窗口标签TAB，OBJTAB为标签对象

Set objTab = crt.GetActiveTab

12. 更改TAB标签名称，OBJTAB为标签对象

objTab.Caption = \

13. 获得第N个标签TAB，OBJTAB为标签对象

Set objTab = crt.GetTab(n)

14. 切换TAB，OBJTAB为标签对象

objTab.Activate

15. 断开当前SESSION的连接

crt.session.Disconnect

16. 获取屏幕打印GET（不带格式）、GET2（带格式-回车\\R\\N）

getscreen = crt.Screen.Get(5,1,10,41) crt.Dialog.MessageBox getscreen

getscreen = crt.Screen.Get2(5,1,10,41) crt.Dialog.MessageBox getscreen

17. 获取当前行、列位置（通过当前位置定位）

crt.screen.CurrentColumn （列位置） crt.screen.CurrentRow （行位置） crt.Screen.Columns （总行数） screenrow=crt.screen.CurrentRow crt.Screen.Send \crt.Sleep 2000

getscreen = crt.Screen.Get2(screenrow-3,1,screenrow-1,41)

18. 匹配结果

szOutput = crt.Screen.ReadString(\Select Case crt.Screen.MatchIndex