精易论坛

标题: 火山线程类 [打印本页]

作者: 835    时间: 2024-8-21 13:01
标题: 火山线程类

.版本 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    时间: 2024-8-21 13:03
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
全局_线程句柄整数型  
全局_线程挂起逻辑型  
句柄整数型  

子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
进程ID整数型0
线程ID整数型0
x整数型 
线程入口整数型 
线程路径文本型 
十六进制文本文本型 
进程句柄整数型 
判断 (进程是否存在 (“Game.exe”))
进程_提升进程权限 ()
进程_取进程ID数组 (进程ID, “Game.exe”)
如果真 (取数组成员数 (进程ID) = 1)
线程_枚举线程 (进程ID [1], 线程ID)
计次循环首 (取数组成员数 (线程ID), x)
线程_取线程信息 (线程ID [x], 线程入口, 线程路径)
十六进制文本 = 十到十六 (线程入口)
全局_线程句柄 = 线程_打开线程 (线程ID [x])
计次循环尾 ()

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


作者: qq793359277    时间: 2024-8-21 13:13
火山的数组下标从0开始




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4