需要等待打开网页后，然后点击网页一点地方（点击自动播放视频)，我现在问题是等待网页转载，需要等待几秒时间。
我用的是 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)
加好友 
发短信
Post By：2014/9/23 15:18:00 [显示全部帖子]
