SecureCRT使用进阶篇.doc

SecureCRT使用进阶篇高睿 45361. 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+C3. 等待crt.sleep 2004. 定义变量 Dim LocalIpDim com9600Dim MyString, myArray, screen15. 变量赋值 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) 连接已创建的sessioncrt.session.Connect(/telnet myhost 23) 创建一个telnet连接sessioncrt.session.Connect(/SSH2 /PASSWORD password namemyhost) 创建一个ssh连接sessioncrt.Session.Connect(/Serial COM2 /BAUD 9600)创建一个console连接session9. 在新的tab标签页创建连接Set tab = crt.session.ConnectInTab(/s mysession) 在新tab创建已有连接sessionSet tab = crt.session.ConnectInTab(/telnet myhost 23) 在新tab创建一个telnet连接sessionSet tab = crt.session.ConnectInTab(/SSH2 /PASSWORD password namemyhost) 在新tab创建一个ssh连接sessionSet objTab = crt.Session.ConnectInTab(/Serial COM2 /BAUD 9600)在新tab创建一个console连接session10. 获得执行脚本所在Tab标签对象Set objTab = crt.GetScriptTab11. 获得当前窗口标签Tab，objTab为标签对象Set objTab = crt.GetActiveTab12. 更改Tab标签名称，objTab为标签对象objTab.Caption = tabname13. 获得第n个标签Tab，objTab为标签对象Set objTab = crt.GetTab(n)14. 切换Tab，objTab为标签对象objTab.Activate15. 断开当前session的连接crt.session.Disconnect16. 获取屏幕打印get（不带格式）、get2（带格式-回车rn）getscreen = crt.Screen.Get(5,1,10,41)crt.Dialog.MessageBox getscreengetscreen = crt.Screen.Get2(5,1,10,41)crt.Dialog.MessageBox getscreen17. 获取当前行、列位置（通过当前位置定位）crt.screen.CurrentColumn （列位置）crt.screen.CurrentRow （行位置）crt.Screen.Columns （总行数）screenrow=crt.screen.CurrentRowcrt.Screen.Send help & VbCrcrt.Sleep 2000getscreen = crt.Screen.Get2(screenrow-3,1,screenrow-1,41)18. 匹配结果szOutput = crt.Screen.ReadString(error, warning, #, 10)Select Case crt.Screen.MatchIndexCase 0MsgBox Timed out!Case 1MsgBox Found errorCase 2MsgBox Found warningCase 3MsgBox Found #End Select19. 检查结果，比较操作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(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)