SecureCRT VBS script template

发表于 | 分类于 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
# $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，里面的数组表示字母序号
'
'