按键精灵（64 位）

按键精灵（64 位）

说明

按键精灵用 CreateObject 走注册表，需先注册 DLL；且必须是 64 位版本。

完整调用示例（整段复制即可运行）

' 需先注册：管理员 + 64位 regsvr32 注册 x64Game-Plug.dll





' 要求：64 位按键精灵（如按键精灵 X），32 位版本无法加载 x64 DLL





Dim plug





Dim hwnd





Dim pid





Dim title





Dim ok











Set plug = CreateObject("x64Game.Plug")





' 收费命令先授权：ok = plug.SetUsername("U12-XXXXXXXXXXXXXXXX")











hwnd  = plug.FindWindow("", "记事本")        ' 空类名用 ""





TracePrint "窗口句柄 = " & hwnd











pid   = plug.GetWindowProcessId(hwnd)        ' 只传 hwnd





TracePrint "进程 PID = " & pid











title = plug.GetWindowTitle(hwnd)





TracePrint "窗口标题 = " & title











ok = plug.SetWindowTop(hwnd, True)           ' VARIANT_BOOL 用 True / False





If ok Then TracePrint "置顶成功"











Set plug = Nothing

常见注意事项

• 必须是 64 位按键精灵（如按键精灵 X），32 位版本加载不了 x64 DLL。
• 需先用管理员 + 64 位 System32\regsvr32 注册 x64Game-Plug.dll。
• 字符串拼接用 &，VARIANT_BOOL 返回用 True / False（别写 = 1）。
• retval 参数不传，只传真正的入参（如 hwnd）。