Question

按键精灵源代码改成易语言

Hwnd = Plugin.Window.Find(0, "梦幻西游ONLINE - (浙江4区[百丈漈] - ′白鼓惊[21114524])")
Call Plugin.Window.Active(Hwnd)
Delay 200
KeyDown 18,1
Delay 200
KeyPress 51,1
Delay 200
KeyUp 18,1

Answer 1

.版本 2

.DLL命令 寻找顶级窗口, 整数型, "User32.dll", "FindWindowA"
.参数 窗口类名, 文本型
.参数 窗口文本, 文本型

.DLL命令 投递消息, 整数型, "User32.dll", "PostMessageA"
.参数 窗口句柄, 整数型
.参数 消息类别, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.版本 2
.子程序 _按钮1_被单击.局部变量 Hwnd, 整数型
Hwnd ＝ 寻找顶级窗口 (“”, “梦幻西游ONLINE - (浙江4区[百丈漈] - ′白鼓惊[21114524])”) ' 获取目标窗口句柄
投递消息 (Hwnd, 260, 51, 536870912) ' 发送Alt+3组合键消息

最简单的代码，希望采纳！

Answer 2

用易写出来，不一定模拟能按键有效

你是想模拟按键 alt+3吧

Answer 3

给段DEMO你参考下:
Dim MyValue, Response
Randomize '初始化随机数生成器。

Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ("Roll again? ", vbYesNo)
Loop

主要用到的函数有:Randomize '初始化随机数生成器。
运行完上面那个函数就可以使用RND生成随机函数了，也就是MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数。
Hwnd = Plugin.Window.Find(0, "梦三国 Online")
Randomize '初始化随机数生成器。
Do
$str = "喊话内容"+Int((6 * Rnd) + 1)
Call Plugin.Bkgnd.SendString(Hwnd, $str)
Delay 2000
Call Plugin.Bkgnd.KeyPress(Hwnd, 13)
Delay 1000
Loop

Answer 4

我写了转换工具能把按键精灵录制的前台脚本转换为后台脚本 到我的百度网盘下载吧

http://pan.baidu.com/share/link?shareid=148646759&uk=2936440829

前台脚本转换后台脚本工具

Answer 5

E语言太别扭了，直接在VB下生成EXE得了。
反正不用重写代码，费那劲干嘛？

追问

VB没接触过啊？basic是嘛……

追答

没错，按键精灵的脚本源代码是VBA，它是VB的子集，可以直接在VB里编译成EXE。