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

Case 0

MsgBox \Case 1

MsgBox \Case 2

MsgBox \Case 3

MsgBox \End Select

19. 检查结果，比较操作

20. VBS CHR码值对应列表

Chr(0) 为0的字符 Chr(1) Chr(2) Chr(3) Chr(4) Chr(5) Chr(6)

Chr(7) 响铃 Chr(8) 回格

Chr(9) tab(水平制表符) Chr(10) 换行

Chr(11) tab(垂直制表符) Chr(12) 换页

Chr(13) 回车chr(13) &chr(10) 回车和换行的组合 Chr(14) Chr(15) Chr(16) Chr(17) Chr(18) Chr(19) Chr(20) Chr(21) Chr(22) Chr(23) Chr(24)

Chr(25)

Chr(26) 结束End

Chr(27) 脱离Pausebreak Chr(28) Chr(29) Chr(30) Chr(31)

Chr(32) 空格SPACE Chr(33) ! Chr(34) \ Chr(35) # Chr(36) $ Chr(37) % Chr(38) & Chr(39) ' Chr(40) ( Chr(41) ) Chr(42) * Chr(43) + Chr(44) , Chr(45) - Chr(46) . Chr(47) / Chr(48) 0 Chr(49) 1 Chr(50) 2 Chr(51) 3 Chr(52) 4 Chr(53) 5 Chr(54) 6 Chr(55) 7 Chr(56) 8 Chr(57) 9 Chr(58) : Chr(59) ; Chr(60) < Chr(61) = Chr(62) > Chr(63) ? Chr(64) @ Chr(65) A Chr(66) B Chr(67) C Chr(68) D

Chr(69) E Chr(70) F Chr(71) G Chr(72) H Chr(73) I Chr(74) J Chr(75) K Chr(76) L Chr(77) M Chr(78) N Chr(79) O Chr(80) P Chr(81) Q Chr(82) R Chr(83) S Chr(84) T Chr(85) U Chr(86) V Chr(87) W Chr(88) X Chr(89) Y Chr(90) Z Chr(91) [ Chr(92) \\ Chr(92) \\ Chr(93) ] Chr(94) ^ Chr(95) _ Chr(96) ` Chr(97) a Chr(98) b Chr(99) c Chr(100) d Chr(101) e Chr(102) f Chr(103) g Chr(104) h Chr(105) i Chr(106) j Chr(107) k Chr(108) l Chr(109) m Chr(110) n Chr(111) o

Chr(112) p Chr(113) q Chr(114) r Chr(115) s Chr(116) t Chr(117) u Chr(118) v Chr(119) w Chr(120) x Chr(121) y Chr(122) z Chr(123) { Chr(124) | Chr(125) } Chr(126) ~ Chr(127) Chr(128) Chr(129) Chr(130) Chr(131) Chr(132)

本文来源：https://www.bwwdw.com/article/0qhp.html