使用webbrowser時，js彈出對話框的自動處理
來源：
發布時間：2011/4/5
瀏覽次數：3478
問題的提出：
使用webbrowser控件自動執行一些任務時，例如新增，修改，刪除這些操作，會有js對話框的確認信息，例如：新增成功的消息對話框，修改，刪除的確認對話框，必須選擇是或者否。由于對話框是模態的（MODAL)如果不處理，程序就會停住，不能執行。
解決方案分析：
可以通過windows發送消息，讓對話框消失，相當于鼠標或者鍵盤點擊。
對于消息對話框解決的方案比較多：
1 關閉窗口的消息，簡單，直接關閉之；
2 發送鍵盤消息，因為只有一個按鈕，默認按鈕就是他，模擬鍵盤的回車鍵，空格鍵或者ESC鍵，消息對話框也會關閉；
3 發送按鈕消息，直接模擬IDOK消息就可以了；
確認對話框如果選擇是，那么采用第二個和第三個方案就可以。
要解決的關鍵技術問題就是如何調用windows api函數，并且由于程序已經在彈出對話框的地方停住了，等待用戶響應，程序怎么重新獲得控制權，繼續執行。
程序解決方案：
第一個問題：C#聲明windows API
檢索到這樣的文章在C#中通過 P/Invoke 調用Win32 DLL（英文版本），這個問題基本就解決了，代碼如下：
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern IntPtr GetLastActivePopup(IntPtr hWnd);
[DllImport("user32.dll", CharSet = CharSet.Auto)]
public static extern Boolean PostMessage(IntPtr hWnd,int Msg, IntPtr wParam, IntPtr lParam);
GetLastActivePopup api說明參見：http://msdn2.microsoft.com/en-us/library/ms633507.aspx
PostMessage api說明參見：http://msdn.microsoft.com/en-us/library/ms644944%28VS.85%29.aspx
第二個問題：通過定時器控件，在彈出對話框前啟動定時器，
timer2.Start();
webBrowser1.Document.All.GetElementsByName(“event_submit_do_delete”)[0].InvokeMember(“click”); //這句話會彈出一個確認對話框
第三個問題：關鍵代碼
說明：幾個常用的變量數值作為備忘
WM_KEYDOWN=100H
VK_RETURN=0DH
WM_COMMAND=111H
IDOK=1H
更多的變量可以訪問 http://www.pinvoke.net/，這里的很全。
private void timer2_Tick(object sender, EventArgs e) {
timer2.Stop();
IntPtr PopupHandle = GetLastActivePopup(this.Handle);
//如果彈出對話框的句柄不是0（有對話框），并且對話框不是webbrowser，就送 WM_CLOSE（0×10)到這個對話框
if ((PopupHandle != IntPtr.Zero) || (PopupHandle != webBrowser1.Handle)) {
//PostMessage(PopupHandle, 0×10, new IntPtr(1), IntPtr.Zero);//關閉
//PostMessage(hwnd,WM_KEYDOWN,VK_RETURN,0×001C0001); //回車
//PostMessage(hdlg, WM_COMMAND, IDOK, 0);
PostMessage(PopupHandle, 0×111, new IntPtr(1), IntPtr.Zero);
}
}
如果用VB，核心代碼如下：
PostMessage(PopupHandle, &H100, New IntPtr(&HD), New IntPtr(&H1C0001)) //回車
PostMessage(PopupHandle, &H111, New IntPtr(1), IntPtr.Zero) //IDOK
聲明部分：
<DllImport(“user32.dll”)> _
Private Shared Function GetLastActivePopup(ByVal hwnd As IntPtr) As IntPtr
End Function
<DllImport(“user32.dll”, SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function PostMessage( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As Boolean
End Function
程序部分：
tmrPopCheck.Stop()
‘GET HANDLE OF ACTIVE IE POPUP (AKA JS ALERT)
Dim PopupHandle As IntPtr = GetLastActivePopup(Me.Handle)
‘IF THE POPUP HANDLE IS NOT 0, AND IT IS NOT THE WB HANDLE
‘THEN SEND A WM_CLOSE MESSAGE (&H10) TO THE POPUP
‘SEE http://msdn2.microsoft.com/en-us/library/ms633507.aspx
‘FOR MORE INFO ON RETURN VALUE OF GetLastActivePopup
If (PopupHandle <> IntPtr.Zero) AndAlso (PopupHandle <> WB.Handle) Then
‘PostMessage(PopupHandle, &H10, New IntPtr(1), IntPtr.Zero)
‘PostMessage(PopupHandle, &H100, New IntPtr(&HD), IntPtr.Zero)
PostMessage(PopupHandle, &H111, New IntPtr(1), IntPtr.Zero)
End If