火山线程类

835

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 全局_线程句柄, 整数型
.程序集变量 全局_线程挂起, 逻辑型
.程序集变量 句柄, 整数型

.子程序 _按钮1_被单击
.局部变量 进程ID, 整数型, , "0"
.局部变量 线程ID, 整数型, , "0"
.局部变量 x, 整数型
.局部变量 线程入口, 整数型
.局部变量 线程路径, 文本型
.局部变量 十六进制文本, 文本型
.局部变量 进程句柄, 整数型


.判断开始 (进程是否存在 (“Game.exe”))
    进程_提升进程权限 ()
    进程_取进程ID数组 (进程ID, “Game.exe”)
    .如果真 (取数组成员数 (进程ID) ＝ 1)
        线程_枚举线程 (进程ID [1], 线程ID)
        .计次循环首 (取数组成员数 (线程ID), x)
            线程_取线程信息 (线程ID [x], 线程入口, 线程路径)
            十六进制文本 ＝ 十到十六 (线程入口)
            全局_线程句柄 ＝ 线程_打开线程 (线程ID [x])

        .计次循环尾 ()
    .如果真结束

.默认
    信息框 (“未检测到进程”, 0, , )
.判断结束


这个代码是易语言的 在火山里面是怎么写的啊 搞了半天老是数组出问题

835

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
全局_线程句柄	整数型
全局_线程挂起	逻辑型
句柄	整数型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
进程ID	整数型		0
线程ID	整数型		0
x	整数型
线程入口	整数型
线程路径	文本型
十六进制文本	文本型
进程句柄	整数型

判断 (进程是否存在 (“Game.exe”))
进程_提升进程权限 ()
进程_取进程ID数组 (进程ID, “Game.exe”)
如果真 (取数组成员数 (进程ID) ＝ 1)
线程_枚举线程 (进程ID [1], 线程ID)
计次循环首 (取数组成员数 (线程ID), x)
线程_取线程信息 (线程ID [x], 线程入口, 线程路径)
十六进制文本 ＝ 十到十六 (线程入口)
全局_线程句柄 ＝ 线程_打开线程 (线程ID [x])
计次循环尾 ()

信息框 (“未检测到进程”, 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 全局_线程句柄, 整数型<br /> .程序集变量 全局_线程挂起, 逻辑型<br /> .程序集变量 句柄, 整数型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 进程ID, 整数型, , "0"<br /> .局部变量 线程ID, 整数型, , "0"<br /> .局部变量 x, 整数型<br /> .局部变量 线程入口, 整数型<br /> .局部变量 线程路径, 文本型<br /> .局部变量 十六进制文本, 文本型<br /> .局部变量 进程句柄, 整数型<br /> <br /> <br /> .判断开始 (进程是否存在 (“Game.exe”))<br />     进程_提升进程权限 ()<br />     进程_取进程ID数组 (进程ID, “Game.exe”)<br />     .如果真 (取数组成员数 (进程ID) ＝ 1)<br />         线程_枚举线程 (进程ID [1], 线程ID)<br />         .计次循环首 (取数组成员数 (线程ID), x)<br />             线程_取线程信息 (线程ID [x], 线程入口, 线程路径)<br />             十六进制文本 ＝ 十到十六 (线程入口)<br />             全局_线程句柄 ＝ 线程_打开线程 (线程ID [x])<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .默认<br />     信息框 (“未检测到进程”, 0, , )<br /> .判断结束

qq793359277

火山的数组下标从0开始