谁帮我用易语言编写一段代码很简单 速度额

.版本 2

.程序集变量 操作句柄, 整数型

.DLL命令 _内存写整数, 整数型, , "WriteProcessMemory", , kernel32.dll
.参数 hProcess, 整数型
.参数 pBaseAddress, 整数型, , 内存地址
.参数 lpBuffer, 整数型, 传址, 数据指针
.参数 nSize, 整数型, , 长度
.参数 lpNumberOfBytesWritten, 整数型, , 实际写出长度

.DLL命令 _打开当前进程, 整数型, , "GetCurrentProcess", , kernel32.dll 打开当前进程伪句柄

.DLL命令 _打开进程, 整数型, , "OpenProcess", , kernel32.dll
.参数 访问级别, 整数型, , 2035711完全访问
.参数 子进程继承, 整数型, , 0为子进程继承
.参数 进程ID, 整数型, , 要打开的进程标识

.版本 2

.子程序 打开进程, 逻辑型, 公开, 通过进程ID来打开进程,成功后可直接进行本类其它操作,本类原操作句柄会自动释放
.参数 进程ID, 整数型, 可空, 如果为空则打开当前进程

关闭进程 ()
.如果真 (是否为空 (进程ID))
操作句柄 ＝ _打开当前进程 ()
返回 (操作句柄 ≠ 0)
.如果真结束
操作句柄 ＝ _打开进程 (#PROCESS_ALL_ACCESS, 0, 进程ID)
返回 (操作句柄 ≠ 0)

.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
.参数 对象句柄, 整数型

_内存写整数 (操作句柄, 十六到十（004CBEE2 ）, 32, 4, 0)

.版本 2

.子程序 十六到十, 整数型, 公开, 将十六进制转换成十进制(返回十进制文本)
.参数 十六进制文本, 文本型, , 待转换的十六进制文本
.参数 返回结果, 文本型, 参考 可空, 返回文本结果(如十进制数超出整数范围,可通过返回结果获得十进制文本)
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 容器1, 整数型

返回结果 ＝ “”
.变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1)
中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1)
结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (十六进制文本) － 容器1) ＋ 结果
.变量循环尾 ()
.如果真 (是否为空 (返回结果) ＝ 假)
返回结果 ＝ 到文本 (结果)
.如果真结束
返回 (结果)

.版本 2

.程序集 窗口程序集1
.程序集变量 进程名称

.子程序 __启动窗口_创建完毕

进程名称 ＝ 取进程ID (“Meteor.exe”)
写内存整数型 (进程名称, 十六到十 (“004CBEE2”), 32)

或者：、、

.版本 2

.程序集 窗口程序集1
.程序集变量 进程名称

.子程序 __启动窗口_创建完毕

进程名称 ＝ 取进程ID (“Meteor.exe”)
写内存整数型 (进程名称, 到十进制(“004CBEE2”), 32)

以上需要超级模块

添加变量
窗口句柄 整数型
进程ID 整数型

窗口句柄=取窗体句柄（“Meteor.exe”，，）
进程ID=取窗口进程ID（窗口句柄）
读内存整数型（进程ID，十六到十（“004CBEE2
”），）

注：需要魔鬼作坊VIP内部模块（网上下载一个破解版的）

好了，这就读完了。

注册网维中国易语言论坛查看更多教程，网维中国有你更精彩！

我们的网址：e.wvcn.net

期待您的加入！

可以试试把 窗口句柄 ＝ 取句柄 (“GCD.exe”, , “鬼吹灯”)
放在_时钟1_周期事件里

“鬼吹灯 可以去掉把？ 好像是取标题把？