发布时间 : 星期二 文章SecureCRT使用进阶篇更新完毕开始阅读6263eddf960590c69ec376b5
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