这篇博客介绍了如何使用VBScript编写简单的蜀门Online打怪脚本，包括两个文件：vbs脚本和配置文件。脚本依赖游戏内的快捷键进行攻击，但无法自动捡拾物品。作者提到游戏窗口必须保持激活状态，并希望官方能增加捡物快捷键。脚本使用时需调整配置文件路径。
惊闻蜀门Online公测，面对200多M的客户端安装文件。吝啬硬盘空间的Me，有点心动了。于是便Down下来，注册帐号、创建角色、选择服务器分区之后，便开始了游戏之旅。总的来说，快捷键较少（相对于武林外传，完美之类的游戏来说）。但是，至少选怪、攻击的快捷键是有的（可惜没有捡东西的快捷键），否则就能实现自动捡东东了。废话少说，直接开门见山了。
该脚本有两个文件：
一、vbs脚本文件（扩展名为.vbs）如下：
1
Dim
bstop,skill1,skill2,resku1,resku2,sleeptime,sleeptimes,nextfire,bfinish,i,confightml,beatcount
2
3
Set
confg
=
CreateObject
(
"
InternetExplorer.Application
"
)
4
set
Wshell
=
WScript.CreateObject(
"
Wscript.Shell
"
)
5confg.visible
=
true
6confg.navigate
"
E:\GM\Shumenol\config.html
"
7
While
(confg.Busy)
8 Sleep(
3000
)
9
Wend
10i
=
1
11LoadConfig(confg)
12
Call
AddLog(confg,
"
开始休眠10秒等待窗口激活
"
)
13Sleep(
10000
)
14
15
While
(
not
bfinish)
16
IF
not
bstop
Then
17 Sleep(nextfire)
18
19
IF
(i
mod
sleeptimes)
=
0
Then
20
Call
AddLog(confg,
"
开始休眠
"
&
(sleeptime
/
1000
)
&
"
秒
"
)
21
'
发送休眠key
22
gmSleep
23 Sleep(sleeptime)
'
程序休眠
24
LoadConfig(confg)
'
加载配置信息
25
End
IF
26
27 i
=
i
+
1
'
增量
28
Call
AddLog(confg,
"
开始打怪.
"
)
29 showSkill
30
Else
31 Sleep(sleeptime)
'
程序休眠
32
LoadConfig(confg)
'
加载配置信息
33
End
IF
34
Wend
35confg.quit
36
set
Wshell
=
nothing
37
38
39
'
Dim
bstop,skill1,skill2,resku1,resku2,sleeptime,sleeptimes,nextfire,bfinish,i,confightml,beatcount2
3
Set
confg
=
CreateObject
(
"
InternetExplorer.Application
"
)4
set
Wshell
=
WScript.CreateObject(
"
Wscript.Shell
"
) 5
confg.visible
=
true
6
confg.navigate
"
E:\GM\Shumenol\config.html
"
7
While
(confg.Busy)8
Sleep(
3000
)9
Wend
10
i
=
1
11
LoadConfig(confg)12
Call
AddLog(confg,
"
开始休眠10秒等待窗口激活
"
)13
Sleep(
10000
)14
15
While
(
not
bfinish)16
IF
not
bstop
Then
17
Sleep(nextfire)18
19
IF
(i
mod
sleeptimes)
=
0
Then
20
Call
AddLog(confg,
"
开始休眠
"
&
(sleeptime
/
1000
)
&
"
秒
"
)21
'
发送休眠key
22
gmSleep23
Sleep(sleeptime)
'
程序休眠
24
LoadConfig(confg)
'
加载配置信息
25
End
IF
26
27
i
=
i
+
1
'
增量
28
Call
AddLog(confg,
"
开始打怪.
"
) 29
showSkill30
Else
31
Sleep(sleeptime)
'
程序休眠
32
LoadConfig(confg)
'
加载配置信息
33
End
IF
34
Wend
35
confg.quit36
set
Wshell
=
nothing
37
38
39
'
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
