谁帮我用易语言编写一段代码很简单 速度额
.版本 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) ＋ 结果
.变量循环尾 ()
.如果真 (是否为空 (返回结果) ＝ 假)
返回结果 ＝ 到文本 (结果)
.如果真结束
返回 (结果)
多重随机标签