需要等待打开网页后,然后点击网页一点地方(点击自动播放视频),我现在问题是等待网页转载,需要等待几秒时间。
我用的是 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)