VBScript in SecureCRT

头文件（.vbs以外的文件需要，例如.txt）
#$Language="VBScript"
#$Interface="1.0"


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 "help" & VbCr
crt.Sleep 2000
getscreen = crt.Screen.Get2(screenrow-3,1,screenrow-1,41)


数组       
普通方式：
Dim arr(2) ‘静态数组声明
arr(0) = “test1″
arr(1) = “test2″
arr(2) = “test3″
msgbox arr(1) ‘打印出test2
Array函数方式:
arr＝ Array(“t1″,”t2″,”t3″)
msgbox arr(1) ‘打印出t2
Split函数
stng = "t1,t2,t3"
arr = Split(stng,",")
MsgBox arr(0)
MsgBox arr(1)
MsgBox arr(2)