按键精灵中如何获取窗口的标题 详细点

发布网友 发布时间：2022-04-25 10:19

我来回答

共4个回答

热心网友 时间：2022-05-03 06:40

Function FindPicIn(x1, y1, x2, y2, path, hw)
intX = 0
intY = 0
If hw = 0 Then
hw = Hwnd
End If
'Global intX,intY
Do While intX <= 0 And intY <= 0
Plugin.Window.Active(hw)
Delay 1000
FindPic x1, y1, x2, y2, path, 0.5, intX, intY
Loop
End Function
exen = "三国杀online桌面版.exe"
title = "三国杀online桌面版"
Dim intX
Dim intY
Dim Hwnd
Hwnd = Plugin.Window.Find(0, title)
If Hwnd = 0 Then
RunApp ("c:\Program Files\SanGuoShaAIR\三国杀online桌面版\三国杀online桌面版.exe")
Hwnd = Plugin.Window.Find(0, title)
End If
Delay 4000
// 移动到左上角
Call Plugin.Window.Move(Hwnd, 0, 0)
Plugin.Window.Active(Hwnd)
// 等待 进入大厅 按钮的出现
Call FindPicIn(432, 438, 5, 487, "Attachment:\enterhall.bmp", 0)
/*
Do While intX <= 0 And intY <= 0
Plugin.Window.Active(Hwnd)
Delay 1000
FindPic 432, 438, 5, 487, "Attachment:\enterhall.bmp", 0.5, intX, intY
Loop
*/
If intX > 0 And intY > 0 Then
MoveTo intX + 60, intY + 10
LeftClick 1
Delay 1000
End If

// 查找 登录游戏 按钮
Call FindPicIn(363, 372, 490, 407, "Attachment:\login.bmp", 0)
If intX > 0 And intY > 0 Then
MoveTo intX + 50, intY + 10
LeftClick 1
End If
// 查找 脸谱，以确定是否已进入场区选择界面
Call FindPicIn(114, 228, 185, 419, "Attachment:\face.bmp", 0)
// 进入国战
MoveTo 231, 455
LeftClick 1
Delay 1000
MoveTo 444, 491
LeftClick 1
Delay 3000
// 签到窗口
// 点击 签到
MoveTo 750, 145
LeftClick 1
/*
// 关闭 签到成功 窗口
MoveTo 517, 132
LeftClick 1
// 关闭 签到 窗口
MoveTo 873, 101
LeftClick 1
*/
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub

热心网友 时间：2022-05-03 07:58

看起来好像不错的样子

热心网友 时间：2022-05-03 09:33

火速留名，万一火了呢！

热心网友 时间：2022-05-03 11:24

使用以下命令：
Hwnd = Plugin.Window.Foreground()

命令功能：
得到当前窗口句柄，返回值赋值给Hwnd

Hwnd = Plugin.Window.MousePoint()

命令功能：得到鼠标指向的窗口句柄，返回值赋值给Hwnd