詢問 .WebBrowser1的幾個問題

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2020-11-27 09:42 | 只看該作者

速度太快，WebBrowser沒反應過來。
WebBrowser是異步的加載的，最好是在每一個命令之后等待WebBrowser完全 ...
Joforn 發表於 2020-11-26 22:39

感謝回覆~
目前改成下列程式碼~ 會啟動搜尋的功能(定位) ，但依舊只會讀取第一項...QQ
增加項目>> 按鍵模擬與時間停頓

With .WebBrowser1
With .Document
'.GetElementById("gs_taif50").Click
.GetElementById("searchboxinput").Value = cmb(2).Text
.GetElementById("searchbox-searchbutton").Click
.GetElementById("searchboxinput").Value = cmb(2).Text
Application.Wait Now + TimeValue("0:00:05")
.GetElementById("gs_lc50").Click
Application.OnKey "+^{a}" '模擬按鍵 ctrl + a
Application.OnKey "{del}" '模擬按鍵 del
.GetElementById("searchboxinput").Value = cmb(2).Text
Application.OnKey "+^{ENTER}" '模擬按鍵ctrl + enter
.GetElementById("searchbox-searchbutton").Click
Do
DoEvents
Loop
End With
End With

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

4^#

發表於 2020-11-27 10:16 | 只看該作者

回復 3# mark15jill
你的代碼中有一句：

Do
DoEvents
Loop

複製代碼

第一次執行后程式將進入永久死循環，建議去掉。

世界那麼大，可我想去哪？

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2020-11-27 10:18 | 只看該作者

本帖最後由 mark15jill 於 2020-11-27 10:31 編輯

回復 mark15jill
你的代碼中有一句：第一次執行后程式將進入永久死循環，建議去掉。
Joforn 發表於 2020-11-27 10:16

目前改成下列code ~
但會造成...
資料1 << 讀取沒點擊
資料2 << 有時讀取到資料1 有時沒反應
資料3 << 有時讀取到資料1 有時讀取到資料2 有時沒反應

如果時間延遲讀取設置過大~ 又會造成卡卡QQ

            With .WebBrowser1

                  With .Document

                     '.GetElementById("gs_taif50").Click

                     .GetElementById("searchboxinput").Value = cmb(2).Text
                     .GetElementById("searchboxinput").Select
                        Application.OnKey "+^{ENTER}"
                     .GetElementById("searchbox-searchbutton").Click
                     '.GetElementById("searchbox-searchbutton").Click

                     .GetElementById("searchboxinput").Select
                        Application.OnKey "+^{a}"
                        Application.OnKey "+^{del}"
                        Application.OnKey "+^{ENTER}"
                     Application.Wait (Now + TimeValue("0:00:3"))
                        cmb(2).Copy
                     .GetElementById("searchboxinput").Select
                        Application.OnKey "+^{v}"

                     '.GetElementById("searchboxinput").Value = cmb(2).Text
                        Application.OnKey "+^{ENTER}"
                     .GetElementById("searchbox-searchbutton").Click
                     Application.Wait (Now + TimeValue("0:00:3"))



                  End With
            End With

感覺根本是把VBA當按鍵精靈在寫...

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

6^#

發表於 2020-11-27 11:41 | 只看該作者

本帖最後由 Joforn 於 2020-11-27 11:47 編輯

回復 5# mark15jill
很久都不用WebBrowser控件了。只能跟你大致說下處理流程。
在發送命令后，一般用

IsBusy=True '這個是全局變量，由WebBrowser的加載完成事件去將其值改變。
Times=0
Do While IsBusy And (Times<100) '檢測Times是否小于100，大于100判斷為程序出問題了，加載時間過長，強行中止程式運行。100次循環與后面的Sleep 200組合，表示最長等待20秒(Sleep參數以毫秒為單位)。
Sleep 200 '這個是API函數，使用前要先聲明。加入這條語句是為了釋放CPU控制權，沒有這條，VBA的CPU使用率一直占99%
DoEvents '釋放程序控制權，防止WebBrower出問題后無法退出，也是為了讓WebBrower有相應的CPU運行權去繼續加載頁面。
Times=Times + 1
Loop

複製代碼

然后還要再引用WebBrower控件的DocumentComplete

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
IsBusy = False
End Sub

複製代碼

上面兩組代碼相結合，那么就可以完成一個等待頁面加載完成后，程式才繼續執行后續代碼過程。

但是，要注意：在WebBrower加載頁面開始后，并不一定只激活一次DocumentComplete，所以還要在WebBrowser1的DocumentComplete事件處理過程中進行一定的判斷來是否是真正的最后一次頁面加載完成事件。可以對比URL是否是當前頁面的URL來判斷：

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If IsBusy Then IsBusy = URL<>DocumentURL '注意，這里的DocumentURL需要你自己根據你當前的頁面去獲取或是設置。
End Sub

複製代碼

最后是你可能需要用到的函數和變量聲明：

#If VBA7 Then
Private Declare PtrSafe Sub Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long)
#Else
Private Declare Sub Sleep Lib "Kernel32.dll" (ByVal dwMilliseconds As Long)
#End If
Private IsBusy As Boolean

複製代碼

世界那麼大，可我想去哪？

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2020-11-27 14:20 | 只看該作者

回復 mark15jill
很久都不用WebBrowser控件了。只能跟你大致說下處理流程。
在發送命令后，一般用然后還 ...
Joforn 發表於 2020-11-27 11:41

沒關係... 我改用vb.net寫看看~ 感謝

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2021-1-2 15:20 | 只看該作者

回復 mark15jill
很久都不用WebBrowser控件了。只能跟你大致說下處理流程。
在發送命令后，一般用然后還 ...
Joforn 發表於 2020-11-27 11:41

後來發現..... 有個更快的方法解決...
cmb(0).text >> combobox.text >> 要查詢的物件

         .Navigate ("about:blank")
         .Navigate ("https://www.google.com.tw/maps/search/" & cmb(0).Text)

不管他的搜尋元件參數，強制模擬手動搜尋的方式...

只是新產生幾個問題...
1、用上面的方法，雖然會自動變化與定位，可是畫面因為vba與ie元件切換讀取，需要等的時間更久。
2、googlemap 把id 跟 span 隱藏掉... 沒法直接看 "分享" 的ID 跟類別

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然