火山PC 用内置 COM对象类 创建组件,目标平台设为 64 位,需先注册 DLL。
' 需先注册:管理员 + 64位 regsvr32 注册 x64Game-Plug.dll
' 项目属性 -> 目标平台 设为 64 位(x64)
变量 插件 <类型 = COM对象类>
变量 窗口句柄 <类型 = 长整数型>
变量 进程ID <类型 = 整数型>
变量 窗口标题 <类型 = 文本型>
变量 成功否 <类型 = 逻辑型>
插件.创建 ("x64Game.Plug")
' 收费命令先授权:插件.方法 ("SetUsername", 逻辑型, "U12-XXXX")
窗口句柄 = 插件.方法 ("FindWindow", 长整数型, "", "记事本")
进程ID = 插件.方法 ("GetWindowProcessId", 整数型, 窗口句柄)
窗口标题 = 插件.方法 ("GetWindowTitle", 文本型, 窗口句柄)
成功否 = 插件.方法 ("SetWindowTop", 逻辑型, 窗口句柄, 真)
如果 (成功否) 调试输出 ("置顶成功")
插件.清除 ()