用程序完成了在文件下载对话框点击打开按钮,但文件下载对话框还是一闪而过,还是看得出来的,有什么办法不让它出来,就打开吗
心念不空过 2006-02-28 03:18:10 以下代码是用程序完成 在文件下载对话框点击打开按钮(就是打开浏览而不是下载),但文件下载对话框还是一闪而过,还是看得出来的,有什么办法不让它出来,就打开吗?
Dim winHwnd As Long
winHwnd = FindWindow(vbNullString, "文件下载")
If winHwnd <> 0 Then
SendMessage winHwnd, WM_SHOWWINDOW, 0, 0
Dim btnHwnd As Long
btnHwnd = FindWindowEx(winHwnd, ByVal 0&, "Button", "打开(&O)")
SendMessage btnHwnd, &HF5, 0, 0
End If