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

[wd123]

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

页面好像用的JS

[3q2008Com]

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

[faysky2]

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

[ZOU_SEAFARER]

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

[八哥]

我很想叫你一个不让对话框弹出的方法，可你的分不够，

[youchenglong]

有不让对话框弹出的办法，可没办法继续了。。。：）

[wd123]

先研究下

[八哥]

当然可继续

[wd123]

许仙和国际海员的方法是可以.但必须做两个程序:一个监控,一个打开网页上传文件.那个"OK"按钮不点击,上传文件的程序就不会继续运行.
能不能在一个程序里实现呢?

[蒋晟]

handle IDocHostShowUI::ShowMessage
http://www.microsoft.com/mind/1098/advhost/advhost.asp
http://www.codeproject.com/atl/vbmhwb.asp

if you are using vb.net, check http://www.faisoncomputing.com/samples/programming_samples.htm