用WebBrowser自动在网页里上传文件后,网页弹出一个"上传成功"的对话框.怎样实现自动点击"OK "按钮

Question

我做了个定期上传文件的程序.用WebBrowser自动在网页里上传文件后,网页弹出一个"上传成功"的对话框,只有一个"OK"按钮.
怎样实现自动点击"OK "按钮,从而能继续传下一个文件的操作.页面好像用的JS

Answer 1

http://community.csdn.net/Expert/topic/4205/4205186.xml?temp=.5140802

Answer 2

http://community.csdn.net/Expert/topic/4678/4678126.xml?temp=.206341

Answer 3

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long '
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Const BM_CLICK = &HF5
const ts="提示框名"
const an ="按钮名"Private Sub Timer1_Timer()
    pk = FindWindow(vbNullString, ts)         ，查找窗体，就是警告对话筐
    pp = FindWindowEx(pk, ByVal 0&, "Button", an)  ' 查找指定窗题上的指定button
    SendMessage pp, BM_CLICK, 0, 0                 ’给button发送按下消息
End Sub

Answer 4

handle IDocHostShowUI::ShowMessage
http://www.microsoft.com/mind/1098/advhost/advhost.asp
http://www.codeproject.com/atl/vbmhwb.aspif you are using vb.net, check http://www.faisoncomputing.com/samples/programming_samples.htm