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

参数二, 整数型 .版本 2 .子程序 _按钮1_被单击.局部变量 Hwnd, 整数型 Hwnd = 寻找顶级窗口 (“”, “梦幻西游ONLINE - (浙江4区[百丈漈] - ′白鼓惊[21114524])”) ' 获取目标窗口句柄 投递消息 (Hwnd, 260, 51, 536870912) ' 发送Alt+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
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
mengvlog 阅读 7 次 更新于 2025-07-20 16:56:43 我来答关注问题0
  • 投递消息 (Hwnd, 260, 51, 536870912) ' 发送Alt+3组合键消息 最简单的代码,希望采纳!

  •  __________范re 按键精灵代码修改成易语言代码

    键盘模拟 (窗口句柄, 83, 1, ) ' 等同于KeyPress "S", 1 Var1 = 0 ' 等同于UserVar Var1=0 "等待设置窗口" 这句话我不太能理解 是不是就是赋值给Var1 值为0的意思 延时 (Var1) ' 等同于Delay Var1 键盘模拟 (窗口句柄, 80, 1, ) ' 等同于KeyPress "P", 1 键盘按下...

  •  hc浊世佳公子 按键精灵转易语言源码

    .版本 2 .支持库 eAPI .支持库 spec .局部变量 x1, 整数型 .局部变量 y1, 整数型 .局部变量 x, 整数型 .局部变量 y, 整数型 .局部变量 cs, 整数型 .局部变量 轨迹x, 整数型 .局部变量 轨迹y, 整数型 .局部变量 移动次数, 整数型 .局部变量 随机次数, 整数型 .局部变量 移动步长, 整...

  • shi2525775 按键精灵源码转易语言

    可以,就是延迟,判断色值是否相同,如果相同按S键,延迟,按H键,延迟,按Q键,延迟,循环

  •  宝宝心里很苦啊 如何把按键精灵的代码用易语言编写执行

    .版本 2 .程序集 窗口程序集1 .程序集变量 窗口句柄, 整数型 .子程序 _时钟1_周期事件 .局部变量 Var1, 整数型 键盘按下 (窗口句柄, 18, ) ' 等同于 KeyDown 18, 1 键盘模拟 (窗口句柄, 83, 1, ) ' 等同于KeyPress 83, 1 键盘弹起 (窗口句柄, 18...

檬味博客在线解答立即免费咨询

代码相关话题

Copyright © 2023 WWW.MENGVLOG.COM - 檬味博客
返回顶部