VBScript in SecureCRT

最新推荐文章于 2024-01-06 20:25:42 发布

qiuyaxuan929

最新推荐文章于 2024-01-06 20:25:42 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏：系统

本文链接：https://blog.youkuaiyun.com/qiuyaxuan929/article/details/80471004

系统专栏收录该内容

3 篇文章

订阅专栏

本文介绍使用VBS脚本进行基本操作的方法，包括获取屏幕打印、获取当前行和列位置等技巧，并展示了如何使用数组进行数据管理。此外，还提供了具体的示例代码帮助理解。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

头文件（.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)