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

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

给段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
Loop2014-03-17

.版本 2

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

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

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

最简单的代码，希望采纳！2013-01-14

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

你是想模拟按键 alt+3吧2013-01-12

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

http://pan.baidu.com/share/link?shareid=148646759&uk=2936440829
前台脚本转换后台脚本工具
2013-06-27

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