求助获取窗口句柄的好工具？用了两个spy工具都没获取出来

likeyouli · 发表于 2024-7-5 17:28:34

如图，用了两个版本的spy工具，获取的父窗口句柄都是1707D2，我想获取“亲，您已经学了30分钟了，点击确定继续学习..” 这个对话框的句柄，然后通过程序自动判断，当出现这个对话框的时候就自动点击确定（这个对话框大约30分钟左右弹出一次），请教大神我该怎么办？单位老是要求这样的学习很烦人，所以想找个挂机学习的方法。

eyf · 发表于 2024-7-5 17:36:41

用鼠标点击工具，每30多分钟的时候在屏幕的这个坐标点一下就行，没必要找窗口！

ppll-2030 · 发表于 2024-7-5 17:39:30

脚本10分钟循环输入一次回车就好了

likeyouli · 发表于 2024-7-5 17:47:20

eyf 发表于 2024-7-5 17:36
用鼠标点击工具，每30多分钟的时候在屏幕的这个坐标点一下就行，没必要找窗口！

万一没出来这个对话框，点一下就会停止播放了；所以必须先判断有没有这个对话框，有对话框再点击。

likeyouli · 发表于 2024-7-5 17:48:17

ppll-2030 发表于 2024-7-5 17:39
脚本10分钟循环输入一次回车就好了

什么脚本？ JavaScript ？我不会啊，能否详细说下

tmdgdx · 发表于 2024-7-5 18:01:07

我的理解是：spy++这种是取windows系统应用程序的弹出窗口，所有有句柄之类，而你要取的窗口是浏览器中wed页面的弹出拟态窗口，这种是不属于windows操作系统程序的窗口，所以是取不到窗口属性的。

lbw2007 · 发表于 2024-7-5 18:25:24

winform使用你现有工具就可以。但是webform，只能用js注入了。

likeyouli · 发表于 2024-7-5 18:37:10

lbw2007 发表于 2024-7-5 18:25
winform使用你现有工具就可以。但是webform，只能用js注入了。

能否稍详细说说，或说下思路

szwp · 发表于 2024-7-5 18:38:24

下班才玩，晚了点，周一早点玩

ppll-2030 · 发表于 2024-7-5 18:39:34

likeyouli 发表于 2024-7-5 17:48
什么脚本？ JavaScript ？我不会啊，能否详细说下

VBS就可以啦。把下面代码保存为vbs文件，打开视频后运行即可。

x=inputbox("输入循环次数")
Set ws = CreateObject("WScript.Shell")
For i = 1 To x
wscript.sleep 600000 '设置的是10分钟，1000表示1秒
ws.sendkeys("{enter}") '模拟输入回车键
next

复制代码

likeyouli · 发表于 2024-7-5 18:43:03

szwp 发表于 2024-7-5 18:38
下班才玩，晚了点，周一早点玩

期待着您周一的回复

likeyouli · 发表于 2024-7-5 18:47:51

本帖最后由 likeyouli 于 2024-7-5 19:10 编辑

ppll-2030 发表于 2024-7-5 18:39
VBS就可以啦。把下面代码保存为vbs文件，打开视频后运行即可。

弹出对话框后，经我测试，直接按回车没用，按空格或其他键也没用，必须鼠标点击确定才能继续播放，如果点晚了，点击确定后还必须再点一下屏幕或按空格键才能继续播放。

holley2008 · 发表于 2024-7-5 18:51:01

likeyouli 发表于 2024-7-5 17:47
万一没出来这个对话框，点一下就会停止播放了；所以必须先判断有没有这个对话框，有对话框再点击。

按回车会暂停播放，再按一次会再次播放吗？

likeyouli · 发表于 2024-7-5 19:06:54

holley2008 发表于 2024-7-5 18:51
按回车会暂停播放，再按一次会再次播放吗？

刚测试了一下，播放的时候：按回车没反应，按空格键暂停，再按空格键继续播放。

527104427 · 发表于 2024-7-5 19:32:56

这个能不能查询到窗口？

窗口查询.zip (993.69 KB, 下载次数: 20)

ppll-2030 · 发表于 2024-7-5 20:02:21

likeyouli 发表于 2024-7-5 18:47
弹出对话框后，经我测试，直接按回车没用，按空格或其他键也没用，必须鼠标点击确定才能继续播放，如果点 ...

你试试在弹出对话框后，你点击对话框的标题栏，使窗口处于激活置顶状态，再按回车有没有没反应？
如果是这种情况，可以加一句ws.appactivate("消息") 激活窗口，再输出确认。

zyy · 发表于 2024-7-5 20:32:40

527104427 发表于 2024-7-5 19:32
这个能不能查询到窗口？

谢谢分享，下载试试看

nttwqz · 发表于 2024-7-5 23:40:52

wuyou.7z (12.9 KB, 下载次数: 17)

liuzhaoyzz · 发表于 2024-7-6 07:23:03

spy++是不可能获取网页控件的句柄的，获取了也没用。
按键精灵有多点取色的功能，每间隔一段时间，全屏查找确定这个关键字的颜色点，找到了就点击确定。

likeyouli · 发表于 2024-7-6 09:33:20

527104427 发表于 2024-7-5 19:32
这个能不能查询到窗口？

好像也不是，见图，难道弹出的这个对话框真的像前边楼层说的没有句柄？
多说句，win11的屏幕截图太气人了，功能是强大了，但图片上老是截取不到鼠标位置，win10的话按print键就能轻松截取整个屏幕（包括鼠标位置），为了使图片上显示鼠标的位置，无奈我用手机拍的照片，这图就是我用手机拍的。

likeyouli · 发表于 2024-7-6 09:36:07

本帖最后由 likeyouli 于 2024-7-6 09:48 编辑

ppll-2030 发表于 2024-7-5 20:02
你试试在弹出对话框后，你点击对话框的标题栏，使窗口处于激活置顶状态，再按回车有没有没反应？
如果是 ...

肯定是激活状态测试的，这点我还懂。顺便向您展示一下我写的微信自动聊天代码（VBA)：laopo替换为自己的微信好友账号，可以是备注名字，不能是汉字。
Sub 微信自动发信息()
Set ws = CreateObject("wscript.shell")
For N = 1 To 3
ws.SendKeys "^%w", True
Application.Wait (Now() + TimeSerial(0, 0, 2))
ws.SendKeys "^f", True
Application.Wait (Now() + TimeSerial(0, 0, 3))
ws.SendKeys "laopo", True
Application.Wait (Now() + TimeSerial(0, 0, 3))
ws.SendKeys "{enter}", True
Application.Wait (Now() + TimeSerial(0, 0, 2))
DoEvents
ws.SendKeys "Zidongfasong" & N, True
DoEvents
Application.Wait (Now() + TimeSerial(0, 0, 3))
ws.SendKeys "^~", True
Application.Wait (Now() + TimeSerial(0, 0, 2))
ws.SendKeys "{ESC}", True
Application.Wait (Now() + TimeSerial(0, 0, 1))
Next N
End Sub

henrygoode · 发表于 2024-7-6 09:43:42

干的漂亮666

moonlune · 发表于 2024-7-6 09:53:34

这东西。。。有的框架通过spy工具是抓不到的。
先测试无脑的办法，就是假如此视频窗口在没有弹窗的状态下，发送Enter到窗口是否会造成视频暂停等问题。如果没有以为状况出现，那么测试出现弹窗后Enter键是否可以消除弹窗！如果可以，那么隔段时间直接给窗口发Enter键即可。
然后有点儿技术的办法，就是如果各种方法都无效，那么脚本OCR窗口，然后鼠标跟随点击即可！

likeyouli · 发表于 2024-7-6 10:09:25

moonlune 发表于 2024-7-6 09:53
这东西。。。有的框架通过spy工具是抓不到的。
先测试无脑的办法，就是假如此视频窗口在没有弹窗的状态下 ...

播放的时候：按回车键没用，按空格键可以暂停，再按空格键继续播放；
弹出对话框的时候：按啥键都没用，必须鼠标点击确定。（有时候点击完确定也不能继续播放，必须再按一下空格键才能继续播放。）

moonlune · 发表于 2024-7-6 11:17:36

likeyouli 发表于 2024-7-6 10:09
播放的时候：按回车键没用，按空格键可以暂停，再按空格键继续播放；
弹出对话框的时候：按啥键都没用， ...

嗯，所以你这个简单的办法，就是用基于浏览器自动化的软件进行使用，此类软件有的是基于浏览器扩展的，有的是软件中包含浏览器框架。
其次估计就是进行窗口OCR，以前曾遇到过此类，什么办法都无用，最终发现OCR点击其实也挺好用的。

ppll-2030 · 发表于 2024-7-6 11:46:58

本帖最后由 ppll-2030 于 2024-7-6 11:48 编辑

likeyouli 发表于 2024-7-6 09:36
肯定是激活状态测试的，这点我还懂。顺便向您展示一下我写的微信自动聊天代码（VBA)：laopo替换为自己的 ...

你那个发信息也是快捷键激活了程序窗口并置顶，才操作的。
vbs也只能对真正激活并置顶的对象使用sendkeys，所以一些弹窗，但不置顶的窗口需要act一下才是激活置顶。
按你的这个情况，这个提醒窗口可能不是真正的弹窗置顶提醒，应该是网页子窗口，同时还不对键盘支持。
我是没辙了，建议尝试用其他鼠标脚本工具来操作了。
我常用的MacroRecorder可以检测图片和色块功能，你可以试试。

likeyouli · 发表于 2024-7-6 11:59:55

liuzhaoyzz 发表于 2024-7-6 07:23
spy++是不可能获取网页控件的句柄的，获取了也没用。
按键精灵有多点取色的功能，每间隔一段时间，全屏查 ...

谢谢超版的指点，
在b站找了按键精灵教程，估计要研究一段时间了
想法：估计每次弹出对话框的位置应该是一样的（如果每次弹出的对话框位置不同，后边的判断将不成立），所以在弹出对话框这个区域内，多取几个点的颜色，过一段时间，在同样的位置再取颜色，如果与之前取的颜色相等，即判定出弹出了对话框，然后鼠标点击确定。

红动中国 · 发表于 2024-7-6 13:20:00

有能力的大佬这么多，无忧太强大了

guong · 发表于 2024-7-6 13:58:52

来学习

9zhmke · 发表于 2024-7-6 15:08:46

用VBS写这个东西，必须查询进程的CPU占用率，由于播放时CPU占用会大一些，所以，你可以判断CPU较低的时候就是跳出弹窗的时候。

while CPU_busy >5: wscript.sleep 5000:Wend '如果CPU忙或者硬盘忙则等待
......
Function CPU_busy() 'CPU使用率
dim objProc
Set objProc = GetObject("winmgmts:\\.\root\cimv2:win32_processor='cpu0'")
CPU_busy=objProc.LoadPercentage 'CPU使用率
Set objProc = nothing
End Function
Class SetMouse
private S
private xls, wbk, module1
private reg_key, xls_code, x, y
Private Sub Class_Initialize()
Set xls = CreateObject("Excel.Application")
Set S = CreateObject("wscript.Shell")
reg_key = "HKEY_CURRENT_USER\Software\Microsoft\Office\$\Excel\Security\AccessVBOM" 'vbs 完全控制excel
reg_key = Replace(reg_key, "$", xls.Version)
S.RegWrite reg_key, 1, "REG_DWORD"
xls_code = _
"Private Type POINTAPI : X As Long : Y As Long : End Type" & vbCrLf & _
"Private Declare Function SetCursorPos Lib ""user32"" (ByVal x As Long, ByVal y As Long) As Long" & vbCrLf & _
"Private Declare Function GetCursorPos Lib ""user32"" (lpPoint As POINTAPI) As Long" & vbCrLf & _
"Private Declare Sub mouse_event Lib ""user32"" Alias ""mouse_event"" " _
& "(ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)" & vbCrLf & _
"Public Function getx() As Long" & vbCrLf & "Dim pt As POINTAPI : GetCursorPos pt : getx = pt.X" & vbCrLf & _
"End Function" & vbCrLf & "Public Function gety() As Long" & vbCrLf & _
"Dim pt As POINTAPI: GetCursorPos pt : gety = pt.Y" & vbCrLf & "End Function"
Set wbk = xls.Workbooks.Add:Set module1 = wbk.VBProject.VBComponents.Add(1):module1.CodeModule.AddFromString xls_code
End Sub
'关闭
Private Sub Class_Terminate
on error resume next
xls.DisplayAlerts = False:wbk.Close:xls.Quit
on error goto 0
End Sub
'可调用过程
Public Sub getpos( x, y):x = xls.Run("getx"):y = xls.Run("gety"):End Sub
Public Sub move(x,y):wscript.Sleep 50:xls.Run "SetCursorPos", x, y:wscript.Sleep 300:End Sub
Public Sub wheel_y(y) '鼠标滚轮上或下滚动y距离
'for wheel=1 to (y/10)
wscript.Sleep 30
'xls.Run "mouse_event", &H800, 0, 0, (y/10), 0
xls.Run "mouse_event", &H800, 0, 0, y, 0
wscript.Sleep 30
'next
wscript.Sleep 300
End Sub
Public Sub wheel_x(x) '鼠标滚轮上或下滚动x距离
'for wheel=1 to (x/10)
wscript.Sleep 30
xls.Run "mouse_event", &H800, 0, 0, x, 0
wscript.Sleep 30
'next
wscript.Sleep 300
End Sub
Public Sub clik(keydown)
wscript.Sleep 80
Select Case UCase(keydown)
Case "LEFT"'点左键
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
Case "RIGHT"'点右键
xls.Run "mouse_event", &H8 + &H10, 0, 0, 0, 0
Case "MIDDLE"'点中键
xls.Run "mouse_event", &H20 + &H40, 0, 0, 0, 0
Case "LDOWN"'按下左键
xls.Run "mouse_event", &H2, 0, 0, 0, 0
Case "RDOWN"'按下右键
xls.Run "mouse_event", &H8, 0, 0, 0, 0
Case "MDOWN"'按下中键
xls.Run "mouse_event", &H20, 0, 0, 0, 0
Case "LUP"'弹起左键
xls.Run "mouse_event", &H4, 0, 0, 0, 0
Case "RUP"'弹起右键
xls.Run "mouse_event", &H10, 0, 0, 0, 0
Case "MUP"'弹起中键
xls.Run "mouse_event", &H40, 0, 0, 0, 0
Case "DBCLICK"'双击
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
xls.Run "mouse_event", &H2 + &H4, 0, 0, 0, 0
End Select
wscript.Sleep 300
End Sub
End Class
Function clik_left(str) '在特定位置点鼠标左键
dim mouse_x,mouse_y,mouse_delay,clik_arg
str=split(str,",")
mouse_delay=0
for clik_arg=0 To UBound(str)-LBound(str)
if clik_arg=0 then mouse_x=str(0)
if clik_arg=1 then mouse_y=str(1)
if clik_arg=2 then mouse_delay=str(2)
next
Set mouse=New SetMouse
wscript.Sleep 50
mouse.move mouse_x,mouse_y
wscript.Sleep 50
while CPU_busy >4 or Hard_busy >10240: wscript.sleep 200:Wend '忙则等
mouse.clik "LEFT"
wscript.Sleep 50 + mouse_delay
Set mouse=nothing
End Function

复制代码

		自动登录	找回密码
密码			注册

求助获取窗口句柄的好工具？用了两个spy工具都没获取出来

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评

点评