vb後臺模擬鼠標點擊網頁

最近也在搜尋用postmessage模擬鼠標點擊網頁，只能激活瀏覽器，而不能點擊某按鈕。因為找不到該“按鈕”的hwnd！！

如果僅僅是網頁，而不是Flash，就好辦多了。

從菜單“工程、部件”加入Microsoft internet控件，畫壹個webbrowser1 控件

導航到妳的網站，在webbrowser1_DocumentComplete事件中，檢測妳要的按鈕（先分析源代碼找出妳要的按鈕或鏈接）

如：

On Error Resume Next

Dim docm As HTMLDocument, obj1 As Object

If Not (pDisp Is webbrowser1.Object) Then Exit Sub

Set docm = webbrowser1.Document

For Each obj1 In docm.getElementsByTagName("input")

……

next

直接docm.getElementByid("xxxxxxx")

找到後，把它賦值給壹個全局變量（如dim htmlIn as HTMLInputElement定義壹個按鈕輸入框），再用Timer控件點擊它： htmlIn.click

……

建議40秒導航壹次該網站：webbrowser1.Navigate strURL

在前面的事件中點擊。

因為webbrowser1.fresh只發送壹部分信息，網站只接受並返回壹部分信息

上一篇:android 在activity裏用java代碼寫Xml布局文件

下一篇:Python中的 \t 和 end=” 是什麽意思？