按键精灵源代码改成易语言
Call Plugin.Window.Active(Hwnd)
Delay 200
KeyDown 18,1
Delay 200
KeyPress 51,1
Delay 200
KeyUp 18,1
最新回答
旧梦时光机丶
2024-10-03 00:00:29
.DLL命令 寻找顶级窗口, 整数型, "User32.dll", "FindWindowA"
.参数 窗口类名, 文本型
.参数 窗口文本, 文本型
.DLL命令 投递消息, 整数型, "User32.dll", "PostMessageA"
.参数 窗口句柄, 整数型
.参数 消息类别, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.版本 2
.子程序 _按钮1_被单击.局部变量 Hwnd, 整数型
Hwnd ＝ 寻找顶级窗口 (“”, “梦幻西游ONLINE - (浙江4区[
百丈漈
] - ′白鼓惊[21114524])”) ' 获取目标窗口句柄投递消息 (Hwnd, 260, 51, 536870912) ' 发送Alt+3组合键消息
最简单的代码，希望采纳！
鸿笺钟书
2024-10-03 00:00:58
你是想模拟按键 alt+3吧
执手
2024-10-03 00:01:48
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
原諒莪暸
2024-10-03 00:01:25
我写了转换工具能把按键精灵录制的前台脚本转换为后台脚本 到我的百度网盘下载吧
http://pan.baidu.com/share/link?shareid=148646759&uk=2936440829
前台脚本转换后台脚本工具
ツ蓝翔老司机
2024-10-03 00:00:35
反正不用重写代码，费那劲干嘛？
追问
VB没接触过啊？basic是嘛……
追答
没错，按键精灵的脚本源代码是VBA，它是VB的子集，可以直接在VB里编译成EXE。
热门标签
