請求一個頁面程式，需求：
運行vb程式，即打開from1視窗后，視窗用webbrower打開一個網頁，比如百度首頁，vb定時每天3點、5點，模擬滑鼠點擊網頁的某個坐標一次或者幾次。
期間不需要點擊任何按鈕等。
uj5u.com熱心網友回復：
用兩個API，一個是移動滑鼠的API，一個是滑鼠單擊的API。uj5u.com熱心網友回復：
能幫忙給做個vb工程檔案嗎？
uj5u.com熱心網友回復：
這個用clswindow框架的話太簡單了，幾行代碼就可以搞定，里面有個方法叫ClickPoint，用法參考：https://www.kancloud.cn/sysdzw/clswindow/1480410相關應用案例參考：
05 用滑鼠畫圓 https://www.kancloud.cn/sysdzw/clswindow/1488910
08 根據ID進入騰訊課堂 https://www.kancloud.cn/sysdzw/clswindow/1525000
uj5u.com熱心網友回復：
這個網站挺好
uj5u.com熱心網友回復：
各位大佬的辦法都試驗了一下，搜索相關檔案看了，實在是弄不懂。目前我的代碼是：
=========================
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Timer1_Timer()
If Hour(Now) = 22 Or Hour(Now) = 21 Then
If Minute(Now) = 50 Then
WebBrowser4.Navigate Trim(Text1.Text)
Sleep 2000 '等待網頁加載
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE + MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 345, 211 0, 0
End If
End If
===================
存在兩個問題，1、當前小時的50分，會每2秒重繪一次頁面。2、滑鼠不會點擊坐標地方。
需要怎么修改呢？
謝謝各位！
uj5u.com熱心網友回復：
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim isHasDone As Boolean
Private Sub Timer1_Timer()
If Hour(Now) = 22 Or Hour(Now) = 21 Then
If Minute(Now) = 50 Then
If Not isHasDone Then
isHasDone = True
WebBrowser4.Navigate Trim(Text1.Text)
Sleep 2000 '等待網頁加載
mouse_event MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_MOVE + MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_LEFTUP, 345, 211 0, 0
End If
Else
isHasDone = False
End If
End If
uj5u.com熱心網友回復：
試驗了，還是不行啊，滑鼠還是不能模擬點擊。一直沒有反應。
實在是沒辦法了……
還需要怎么修改嗎？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/15126.html
標籤：VB基礎類