双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何利用FindWindowEx点击网页弹出对话框确定按钮

2012-07-18 06:24:03 891 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

netfox2003 墨衍会员 · AI 创作全网分发关注 + 加入社区

带挂牵引车前向运动模型推导及仿真实现牵引车-半挂车的车辆结构与普通的车辆相比增加了一个半挂车，它们之间通过鞍座相连接，为了分析半挂牵引车运动过程中的位姿和状态，本文将基于车辆的机械结构建立对应的运动学模型，该模型基于以下假设：车辆行驶过程中，道路平坦且无凸凹；车辆低速行驶，且运行过程中车身无侧倾和俯仰运动；车辆行驶过程中，轮胎无形变，无侧向滑动，且无侧向力；牵引车和半挂车均满足阿克曼转向几何原理；牵引车与半挂车不会发现折叠。阅读详情

如何利用FindWindowEx点击网页弹出对话框确定按钮
按照一般方法
Dim PW, CW
PW = FindWindow("#32770", vbNullString)
CW = FindWindowEx(pk, ByVal 0&, vbNullString, "确定")
'CW = FindWindowEx(pk, ByVal 0&,"Button" ,vbNullString)
SendMessage pp, BM_CLICK, 0, 0

结果发现失败!

请教正确写法.....

...全文

SATA硬件电路设计实战：从接口规范到高速布线技巧本文深入探讨了SATA硬件电路设计的核心要点与实战技巧。从接口物理电气规范、AC耦合电容与阻抗控制等基础，到FPGA/SoC高速收发器选型配置，再到应对6Gbps高速信号的PCB布局布线艺术，系统性地解析了SATA电路设计中的关键挑战与解决方案，助力工程师规避常见陷阱，实现稳定可靠的存储接口设计。阅读详情

netfox2003

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

zh618 2014-07-08

打赏
举报

本人编写了一个网络对话框自动回复程序：复上声明和实现函数代码 Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Const WM_LBUTTONDOWN = &H201 Private Const WM_LBUTTONUP = &H202 Dim msghWnd As Long, iWnd As Long Dim tc_no As Integer Private Sub Timer1_Timer() Dim i As Long Dim webstr As String If Text1.Text = "" Then webstr = "来自网页的消息" '定义标题 Else webstr = Text1.Text End If ihWnd = FindWindow(vbNullString, webstr) '以标题查找对话框 If ihWnd > 0 Then tc_no = tc_no + 1 Label_no.Caption = "检测到弹窗" + CStr(tc_no) + "次" msghWnd = FindWindowEx(ihWnd, 0, "button", "确定") '找到确定按钮 'SetForegroundWindow msghWnd '实现鼠标点击操作 PostMessage msghWnd, WM_LBUTTONDOWN, 0, ByVal (1 + 1 * 65536) PostMessage msghWnd, WM_LBUTTONUP, 0, ByVal (1 + 1 * 65536) End If End Sub

zydscaline 2012-08-01

打赏
举报

还不结贴

netfox2003 2012-07-21

打赏
举报

问题解决了，思路：写类定时器让它Form外就行，谢谢大家.

xjg811 2012-07-19

打赏
举报

[Quote=引用 5 楼的回复:]
CW = FindWindowEx(pk, ByVal 0&, vbNullString, "确定")
这句出问题
[/Quote]
您的“pk” 应为 pw

还有您在一楼的 SendMessage pp, BM_CLICK, 0, 0
其中“pp” 应为 cw

我不知道您的pk与pp是什么？？

xjg811 2012-07-19

打赏
举报

各网页不一样。
也许我遇到的是容易的，我是用Timer1_Timer解决。
用hook要麻烦些。

xjg811 2012-07-19

打赏
举报

能否将网页告诉我？

zydscaline 2012-07-19

打赏
举报

[Quote=引用 16 楼的回复:]
引用 15 楼的回复:
有人说：在VB的webbrowser中弹出的对话框是模式对话框，弹出后VB代码处于暂停状态，又怎么能去查找对话框的句柄呢。
那思路又该是怎样呢？

看来你不知道钩子，你要先学钩子，钩子的作用可以对付“弹出后VB代码处于暂停状态”

在本例中Timer1_Timer相当于简单的钩子
[/Quote]我试过在WebBrowser中用Timer控件来找网页弹出的提示或警告，但是，不成功，所以，这个钩子不行啊，要换个，

xjg811 2012-07-19

打赏
举报

不好意思，我也是菜鸟……
我学习API很吃力。我菜鸟的体会是，1.钩子难学；2.sendmessage函数是最复杂的API。
所以简单的登陆问题，可能很不简单！
我说的可能不对，请路过的老师指点。

xjg811 2012-07-19

打赏
举报

因为网页为了点击率等原因，努力防止程序自动登陆，用的招式各家不一样。
所以程序自动登陆要具体分析，区别对待。

我在3楼与11楼说了，你说出网页，我帮你搞定
你不说，我没法

xjg811 2012-07-19

打赏
举报

[Quote=引用 15 楼的回复:]
有人说：在VB的webbrowser中弹出的对话框是模式对话框，弹出后VB代码处于暂停状态，又怎么能去查找对话框的句柄呢。
那思路又该是怎样呢？
[/Quote]
看来你不知道钩子，你要先学钩子，钩子的作用可以对付“弹出后VB代码处于暂停状态”

在本例中Timer1_Timer相当于简单的钩子

netfox2003 2012-07-19

打赏
举报

有人说：在VB的webbrowser中弹出的对话框是模式对话框，弹出后VB代码处于暂停状态，又怎么能去查找对话框的句柄呢。
那思路又该是怎样呢？

赵4老师 2012-07-19

打赏
举报

http://www.autohotkey.com

netfox2003 2012-07-19

打赏
举报

其实pw=pk,cw=pp,不好意思写错了

netfox2003 2012-07-18

打赏
举报

我就像楼上的方法写的，还是确定不了.还是谢谢楼上

xjg811 2012-07-18

打赏
举报

加一个timer1
1.在适当的地方加
Timer1.Enabled = True
Timer1.Interval = 100
2.
Sub Timer1_Timer()
Dim PW, CW
PW = FindWindow("#32770", vbNullString)
if pw<>0 then
CW = FindWindowEx(pw, ByVal 0&, vbNullString, "确定")
SendMessage cw, BM_CLICK, 0, 0
end if
end sub
3. 在适当的地方加
Timer1.enabled=false

xjg811 2012-07-18

打赏
举报

vbaTimer1应为Timer1

xjg811 2012-07-18

打赏
举报

加一个time1
1.在适当的地方加
Timer1.Enabled = True
Timer1.Interval = 100
2.
Sub vbaTimer1_Timer()
Dim PW, CW
PW = FindWindow("#32770", vbNullString)
if pw<>0 then
CW = FindWindowEx(pw, ByVal 0&, vbNullString, "确定")
SendMessage pp, BM_CLICK, 0, 0
end if
end sub
3. 在适当的地方加
vbaTimer1.enabled=false

祝你成功

netfox2003 2012-07-18

打赏
举报

就是在webbrowser内打开一个页面就弹出一个对话框.对话框内有一个“确定”

netfox2003 2012-07-18

打赏
举报

CW = FindWindowEx(pk, ByVal 0&, vbNullString, "确定")
这句出问题

计算机科学家的世界 2012-07-18

打赏
举报

我给你个例子吧，比如我要关闭QQ2012，现在我写代码如下：
#include <windows.h>
int main(){
HWND hQQWnd= FindWindow(NULL, TEXT("QQ2012"));//如果你是其它版本的话，你明白的
SendMessage(hQQWnd, WM_CLOSE, 0, 0);
}

不知道是否解决了LS的问题，求楼主给分，给分是好人，好人一生平安

加载更多回复（3）

✦双11狂欢大促✦

如何利用FindWindowEx点击网页弹出对话框确定按钮

相关推荐

双11狂欢大促