易语言读内存修改内存并导入脚本

易语言读内存修改内存并导入脚本

.版本 2
.支持库 eAPI

.程序集 窗口程序集_窗口1

.子程序 _窗口1_创建完毕
.局部变量 进程信息, 进程信息, , "0"
.局部变量 i

_启动窗口.按钮1.禁止 ＝ 真
列表框1.清空 ()
窗口1.左边 ＝ _启动窗口.左边
窗口1.顶边 ＝ _启动窗口.顶边
进程信息 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程信息), i)
    列表框1.加入项目 (进程信息 [i].进程名称, i)
.计次循环尾 ()

.子程序 _按钮1_被单击

_窗口1_创建完毕 ()

.子程序 _列表框1_双击选择

进程信息数组 ＝ 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程信息数组), n)
    .如果真 (进程信息数组 [n].进程名称 ＝ 列表框1.取项目文本 (列表框1.现行选中项))
        PID ＝ 进程信息数组 [n].进程标识符
        跳出循环 ()
    .如果真结束

.计次循环尾 ()
_启动窗口.编辑框1.内容 ＝ 列表框1.取项目文本 (列表框1.现行选中项)
.如果真 (PID ＝ 0)
    信息框 (“打开进程失败!请检查进程是否在运行!”, 0, , )
    返回 ()
.如果真结束
进程句柄 ＝ OpenProcess (2035711, 假, PID)
窗口1.销毁 ()

@GraySquirrel