• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [老狼][源码分享]----VBScript块、Execute、Eval----被城管追赶... [复制链接]

1#

  • VBScript块用法:
循环遍历分辨率常规写法(约用时50秒):

循环遍历分辨率VBScript块写法(用时191毫秒):

代码及注释:
  1. Import "GetSysInfo.dll"'VBSBegin块内不支持Plugin 本写法也将加快命令的调用
  2. VBSBegin'VBSBegin块必须放置于开头 不能放于Call之后
  3. Sub FBL()'VBSBegin块内不支持中文命名
  4. T1 = GetSysInfo.GetTime()'插件忽略Plugin的写法
  5. TracePrint T1
  6. k=GetSysInfo.GetScreenResolutionX()
  7. g=GetSysInfo.GetScreenResolutionY()
  8. For i = 1 To k'循环分辨率宽
  9. For j=1 to g'循环分辨率高
  10. Next
  11. Next
  12. TracePrint GetSysInfo.GetTime -T1'输出用时差
  13. End Sub
  14. VBSEnd
  15. Call FBL()'调用VBSBegin块
复制代码

  • Execute用法
  1. '例子1
  2. Execute "MoveTo 100,100"
  3. Execute "LeftClick 1"
复制代码
  1. '例子2
  2. txt = "1,2,3"
  3. Execute "Var1=Array("&txt&")"
  4. TracePrint Var1(2)
复制代码

  • Eval用法
  1. i = 5
  2. j = 3
  3. Execute("A" & i & "=" & j)
  4. TracePrint eval("A" & i)
复制代码
VBScript块+Execute+Eval
VBSBegin
Sub YuZhouChaoJiWuDiChaoRenAoTuMan()
MsgBox "子程序被调用了"
End Sub
VBSEnd
变量 = "宇宙超级无敌超人凹凸曼"
Execute Lib.算法.中文汉字转拼音(变量)
返回值 = Lib.算法.中文汉字转拼音("定位傲来国坐标")
TracePrint 返回值
a="傲来国"
b=188
c = 55
VBSBegin
Sub DingWeiAoLaiGuoZuoBiao(Var1,Var2)'等于Sub 定位傲来国坐标(定位傲来国坐标必须转拼音 VB块Sub不支持中文)
TracePrint Var1&","&Var2
End Sub
'其他Sub
VBSEnd
Execute Lib.算法.中文汉字转拼音("定位"&a&"坐标")&" "&b&","&c

VBSBegin
Function [宇宙超级无敌超人凹凸曼] ()
[宇宙超级无敌超人凹凸曼]="1"
End Function
TracePrint [宇宙超级无敌超人凹凸曼]
VBSEnd

最后编辑瑞祥幽冥狼 最后编辑于 2022-11-10 22:25:33
本主题由 超级版主 瑞祥幽冥狼 于 2023/9/26 8:38:42 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

66666666666666666666666666

3#


4#

继续学习呀...

5#


6#

VBScript

7#

嘻嘻嘻嘻嘻嘻嘻嘻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻寻

8#

VBScript块+Execute+Eval

9#

1111111111111111111111111111111111111111111

10#

execute只能用于简单的语句吗?我用在复杂点的语句上就失败了

11#

4444444444

12#

6666666666666666

13#

VBScript块+Execute+Eval

14#

66666666666666666666666666

15#

学习

16#

VBScript块、Execute、Eval----被城管追赶的第十

17#

66666666666666666666666666666

18#

66666

19#


20#

BScript块、Execute、Eval----被城

发新话题 回复该主题