关于网页控件等待问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于网页控件等待问题

共有2520人关注过本帖树形打印复制链接主题：关于网页控件等待问题

well_nick

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：79 积分：1251 威望：0 精华：0 注册：2013/7/16 13:23:00

关于网页控件等待问题 发帖心情

Post By：2014/9/23 15:18:00 [只看该作者]

需要等待打开网页后，然后点击网页一点地方（点击自动播放视频)，我现在问题是等待网页转载，需要等待几秒时间。

我用的是 Threading.Thread.Sleep(2000) ，问题是这个线程把网页装载和点击都做了延迟。而我需要等待网页完成后，

自动点击。有好办法吗？

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

brw.Address = "http://www.baidu.com" '随便啊

Const MOUSEEVENTF_MOVE As Int32 = &H1 ' mouse move

Const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 ' left button down

Const MOUSEEVENTF_LEFTUP As Int32 = &H4 ' left button up

Const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 ' right button down

Const MOUSEEVENTF_RIGHTUP As Int32 = &H10 ' right button up

Const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 ' middle button down

Const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 ' middle button up

Const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 ' absolute move

Const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled

Threading.Thread.Sleep(2000)

SetCursorPos (599, 589) '鼠标位置

mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) ‘点击

mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/23 15:22:00 [只看该作者]

Dim brw As WinForm.WebBrowser '= e.Form.Controls("WebBrowser1")
brw.Address = "http://www.baidu.com" '随便啊

Dim web As object = brw.Basecontrol

Do Until web.ReadyState = 4
Application.DoEvents
Loop

Const MOUSEEVENTF_MOVE As Int32 = &H1 ' mouse move
Const MOUSEEVENTF_LEFTDOWN As Int32 = &H2 ' left button down
Const MOUSEEVENTF_LEFTUP As Int32 = &H4 ' left button up
Const MOUSEEVENTF_RIGHTDOWN As Int32 = &H8 ' right button down
Const MOUSEEVENTF_RIGHTUP As Int32 = &H10 ' right button up
Const MOUSEEVENTF_MIDDLEDOWN As Int32 = &H20 ' middle button down
Const MOUSEEVENTF_MIDDLEUP As Int32 = &H40 ' middle button up
Const MOUSEEVENTF_ABSOLUTE As Int32 = &H8000 ' absolute move
Const MOUSEEVENTF_WHEEL As Int32 = &H800 ' wheel button rolled
Threading.Thread.Sleep(2000)
SetCursorPos (599, 589) '鼠标位置
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)