vbs范本

weixin_34218579

于 2013-10-05 17:11:00 发布

阅读量96

点赞数

CC 4.0 BY-SA版权

文章标签： python

原文链接：https://my.oschina.net/richard28530/blog/166879

2019独角兽企业重金招聘Python工程师标准>>>

经常需要使用secureCrt，需要输入脚本。
记录一个基本的范本

# $language = "VBScript"
# $interface = "1.0"
Sub Main
  Dim result
  Dim SendKey
  SendKey = 03 'send ctrl+c key
  result = 0
  'crt.screen.clear
  Do
    crt.Screen.Send "san" & chr(13)
'crt.Screen.Send "mac show" & chr(13) 
'crt.sleep 500
crt.Screen.Send "en" & chr(13)
crt.Screen.Send "table" & chr(13)
    crt.Screen.Send "s 4 p" & chr(13) 
crt.Screen.Send "end" & chr(13)
    crt.sleep 5000
    'result = crt.Screen.WaitForString("Menu", 1)
  Loop While result = 0
End Sub
'这里chr(13)send enter key
'chr(13)这里的chr表示组合键如chr(3) = crtl+c  chr(1) = crtl + a,---这里的chr表示crtl，里面的数组表示字母序号
'
'

转载于:https://my.oschina.net/richard28530/blog/166879