vba控制網頁 browser碰上alert停住了 東拼西湊的初學者

singo1232001

https://login.104.com.tw/login.cfm
(上面為104 某某銀行的登入網站)
剛好在網路上找到一個大家都能測試的網站(主要我碰到的alert是公司內部網站)
所以用這個來測試
帳號隨便打個錯誤的,讓他跳警告來測試(code內已有順便key上aaa)

以下code測試方式
1.先打開ie 並 開啟連結
2.打開excel設定引用項目,呼叫 microsoft internet controls 和 microsoft HTML Object library
3.測試code

狀況
目前通常都會在click時.excel就整個卡住停止了,後面的點擊程序都沒開始,alert視窗必須要點掉程式才有辦法繼續跑,(不能close,我公司內部的一定要點是)

目前碰壁的思考方向
1.想說是否要在click以前先呼叫vba雙開,過個幾秒自動sendkey "enter"  [不過我測試的時候,當ie一跳出alert,整個excel都停住,包含第二個settimer的sub
2.同1,但是呼叫的是類似"自動連點程式"的外掛(聽說有人成功,但我不懂門道)
3.想說是不是可以用  .document.writeln 直接把目前的暫存網頁的"會員登入"給改掉,讓他不會跳出alert警告視窗,但必須再發出新的指令送給伺服器,是的,看能不能繞過這個警告視窗,這個視窗我完全用不到

1. 'Private Declare Function SetFocus Lib "user32" Alias "SetFocus2" (ByVal hwnd As Long) As Long
   
2. 'Private Declare PtrSafe Function WinAPISetFocus Lib "user32" Alias "SetFocus" (ByVal hwnd As LongPtr) As Long
   
3. 
   
4. Sub getALLBrowsersaaa()
   
5. On Error GoTo Err_Clear
   
6.     Dim mainWorkBook As Workbook
   
7.    
   
8. 
   
9.    
   
10.     Set objShell = CreateObject("Shell.Application")
    
11.     Set objAllWindows = objShell.Windows
    
12.     Set mainWorkBook = ActiveWorkbook
    
13. 
    
14. For Each ow In objAllWindows
    
15.     If (InStr(1, ow, "Internet Explorer", vbTextCompare)) Then
    
16.         If (InStr(1, ow.LocationURL, "https://login.104.com.tw/login.cfm", vbTextCompare)) Then
    
17.                
    
18. 
    
19.     Set HTMLDoc = ow.document
    
20.      HTMLDoc.all.id_name.Value = "aaa"    '< -帳號隨便打讓他跳警告
    
21. For Each MyHTML_Element In HTMLDoc.getElementsByTagName("input")
    
22.     If MyHTML_Element.Type = "submit" And MyHTML_Element.Value = "會員登入" Then
    
23.      
    
24.      
    
25. '     Call 雙開vba  <先不用,想傳去給Sub StartAsub()  SetTimer Application.hWnd, 1, 15000, AddressOf getALLBrowsersaaa>
    
26.      MyHTML_Element.Click   <--進入ie就卡了
    
27. Do While ow.readyState <> 4 Or ow.Busy:
    
28.                 DoEvents
    
29.                 If ow.Busy Then
    
30.                 ow.Visible = False     ''就是從新隱藏使用視窗
    
31.                 ow.Visible = True      ''接著又重新顯示active使用視窗
    
32.                     ow.document.Focus
    
33.                     DoEvents
    
34. 
    
35.                     Application.SendKeys "{ENTER}", True   '**按下鍵
    
36.                 End If
    
37.             Loop
    
38. : Exit For
    
39.      End If
    
40.     Next
    
41. 
    
42. 
    
43. 
    
44.     End If
    
45. End If
    
46.         
    
47.     Next
    
48. Err_Clear:
    
49. If Err <> 0 Then
    
50. Err.Clear
    
51.     Resume Next
    
52. End If
    
53. 
    
54. '    Call StopAsub  <先不用,想傳回去StopAsub()   killtimer>
    
55. End Sub

複製代碼

singo1232001

https://www.youtube.com/watch?v=G-2khNFYQl8

喔耶  太神拉

終於找到了

真的成功了

只要靠純文字檔案  儲存成vbs  搞定


"message from webpage"

改成警告視窗的名稱



拿純文字檔來改成下面,記得儲存成.vbs

1. set wshshell = createobject("wscript.shell")
   
2. 
   
3. do
   
4.     ret = wshshell.AppActivate("網頁訊息")
   
5. loop until ret = true
   
6. 
   
7.     wscript.sleep 1000
   
8.     ret = wshshell.appactivate("網頁訊息")
   
9.         if ret = true then
   
10.                    ret = wshshell.appactivate("網頁訊息")
    
11.                 wscript.sleep 1000
    
12.                 wshshell.sendkeys "{enter}"
    
13.         end if
    
14.         wscript.sleep 1000

複製代碼

PKKO

回復 2# singo1232001


    這個實在太酷了,我感到非常的興奮關於你找的這篇文章
我之前遇到的警告視窗,是當時我找不到相關的網頁元素
但實際上按了按鈕之後程式碼是不會停止的
因此我就算好時間用sendkey 解決了那個問題

但後來我遇到選擇檔案的按鈕一旦click之後就無法動作了,到目前仍然無解
我來試試看您的程式碼,先感謝再感謝了

PKKO

回復 2# singo1232001


感謝大大的文章
經果改編之後我也成功了,非常感謝哦!!!
只是切換輸入法的問題,我是丟出一個切換輸入法的動作
不曉得有沒有甚麼方法是可以固定英文輸入法的?

1. Set WshShell = CreateObject("wscript.shell")
   
2. 
   
3. Do
   
4.     ret = WshShell.AppActivate("選擇要上傳的檔案")
   
5. Loop Until ret = True
   
6. 
   
7. wscript.sleep 500
   
8. ret = WshShell.AppActivate("選擇要上傳的檔案")
   
9. If ret = True Then
   
10.     ret = WshShell.AppActivate("選擇要上傳的檔案")
    
11.     wscript.sleep 500
    
12.     WshShell.SendKeys "%n"
    
13.     WshShell.SendKeys "+"
    
14.     WshShell.SendKeys "C:\USERS\USER\DESKTOP\AA.JPG"
    
15.     WshShell.SendKeys "%o"
    
16. End If
    
17. wscript.sleep 1000

複製代碼

stillfish00

回復 1# singo1232001
提供另一種繞過 alert 視窗的方法
Sub test()
    Dim x
    Dim oie As Object: Set oie = CreateObject("internetexplorer.application")
    With oie
        .Visible = True
        .Navigate "https://login.104.com.tw/login.cfm"
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
        .Document.getelementByid("id_name").Value = "aaa"
        For Each x In .Document.getElementsByTagName("input")
            If x.Type = "submit" And x.Value = "會員登入" Then
                With .Document.parentWindow
                   .execScript "window.nativeAlert = window.alert"   '儲存原始的alert
                    .execScript "window.alert = function() {}"    '覆寫alert function
                    x.Click
                    .execScript "window.alert = window.nativeAlert"   '還原原始的alert
                End With
                Exit For
            End If
        Next
        Do While .readystate <> 4 Or .busy: DoEvents: Loop
        .Quit
    End With
End Sub

singo1232001

我後來有發現到一個現象

我認為wscript 最後需要寫出一個關閉的巨集

不曉得是不是是=nothing

我在電腦程式管理員中發現

後台都沒關起來 越開越多

電腦變慢

是否有相同的狀況

PKKO

回復 5# stillfish00


    S大大,好特別的方式
想請教一:這個語法適用於所有網站的單一確認視窗嗎?
想請降二:若是有是或否的視窗呢?以及選擇檔案的視窗呢?有辦法處理嗎

stillfish00

回復 7# PKKO
想請教一:這個語法適用於所有網站的單一確認視窗嗎?

未必，看網站是用哪種方法彈出視窗，當然你也可能看不出來他是用哪種方法
主要是 alert 視窗會阻擋你的程式下一步執行，又蠻常見的，
這邊只是猜測它用 alert 方法彈出視窗，然後
對你自己建的 ie 元件，暫時性地蓋過原本的alert動作而已


想請降二:若是有是或否的視窗呢?以及選擇檔案的視窗呢?有辦法處理嗎

有是或否的視窗 推測是用 confirm 來產生的
http://www.w3schools.com/js/js_popup.asp
可以用類似方法泡製，但要回傳 true 或 false

選擇檔案的視窗，通常是要上傳檔案吧
這我不熟，網頁擷取很少做到上傳檔案的

PKKO

回復 8# stillfish00


    了解,非常感謝!