First I have to say the ExecWB idea is brilliant. I thought that only works
with HTML documents and ignored it as a possible solution, what a mistake!
Regarding the save dialog, there is no way to suppress it. However, we can
use another thread to automate the dialog:
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Ansi)> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
ByVal childAfter As IntPtr, _
ByVal lclassName As String, _
ByVal windowTitle As String) As IntPtr
End Function
<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage( _
ByVal hWnd As IntPtr, _
ByVal Msg As UInteger, _
ByVal wParam As IntPtr, _
ByVal lParam As IntPtr) As IntPtr
End Function
Private Const WM_SETTEXT As UInteger = &HC
Private Const BM_CLICK As UInteger = &HF5
Private Const MutexName = "SavePDFMutex"
Private Sub SavePDF(ByVal param As Object)
Dim fileName As String = CType(param, String)
Dim timeOut As Integer = 5
Dim hWndSaveAs As IntPtr
Thread.Sleep(500)
Do While True
' Get the Adobe Reader Save a Copy... dialog window handle
hWndSaveAs = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", "Save
a Copy...")
If hWndSaveAs = IntPtr.Zero Then
Thread.Sleep(1000)
timeOut = timeOut - 1
If timeOut = 0 Then
' 5 seconds timeout, still can't find the dialog
Throw New ApplicationException("Unable to find the Save
dialog window")
End If
Else
' Dialog found, proceed.
Exit Do
End If
Loop
Dim lpFileName As IntPtr = Marshal.StringToHGlobalAuto(fileName)
Try
Dim hWndCboEx As IntPtr = FindWindowEx(hWndSaveAs, IntPtr.Zero,
"ComboBoxEx32", Nothing)
Dim hWndCbo As IntPtr = FindWindowEx(hWndCboEx, IntPtr.Zero,
"ComboBox", Nothing)
Dim hWndTxt As IntPtr = FindWindowEx(hWndCbo, IntPtr.Zero, "Edit",
Nothing)
Dim hWndSave As IntPtr = FindWindowEx(hWndSaveAs, IntPtr.Zero,
"Button", "Save")
' Set the filename
SendMessage(hWndTxt, WM_SETTEXT, IntPtr.Zero, lpFileName)
' Click on the button
SendMessage(hWndSave, BM_CLICK, IntPtr.Zero, IntPtr.Zero)
Finally
Marshal.FreeHGlobal(lpFileName)
End Try
End Sub
Now at the time you want to save the PDF, use the following code:
' Since you're going to have more than one instance of the application
running,
' the mutex will make sure there will be only one save dialog at a time.
Dim mu As New Mutex(False, MutexName)
Dim t As New Thread(AddressOf SavePDF)
mu.WaitOne()
' Start the save PDF thread, passing the filename to be saved.
t.Start("D:\SavedPDF" & Guid.NewGuid().ToString("N") & ".pdf")
AxWebBrowser1.ExecWB(SHDocVw.OLECMDID.OLECMDID_SAVEAS,
SHDocVw.OLECMDEXECOPT.OLECMDEXECOPT_DONTPROMPTUSER)
' Wait until the thread exists
t.Join()
mu.ReleaseMutex()
**************************
Another possible alternative to the ExecWB is the URLDownloadToFile
function.
<DllImport("urlmon.dll", CharSet:=CharSet.Auto, preservesig:=False)> _
Private Shared Sub URLDownloadToFile( _
<MarshalAs(UnmanagedType.IUnknown)> ByVal pCaller As
Object, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Integer, _
ByVal lpfnCB As IntPtr)
End Sub
Now at the time you want to save the PDF, use the following code:
If (TypeOf AxWebBrowser1.Document Is AcroPDFLib.IAcroAXDocShim) Then
' Get the PDF source URL
Dim url As String = CType(AxWebBrowser1.Document,
AcroPDFLib.IAcroAXDocShim).src
' Download the PDF file in the web browser control's context
URLDownloadToFile(AxWebBrowser1.GetOcx(), url, "D:\test.pdf", 0,
IntPtr.Zero)
End If
Please let me know how these two solutions works.
Thanks,
Jie Wang
Microsoft Online Community Support
Delighting our customers is our #1 priority. We welcome your comments and
suggestions about how we can improve the support we provide to you. Please
feel free to let my manager know what you think of the level of service
provided. You can send feedback directly to my manager at:
(e-mail address removed).
==================================================
Get notification to my posts through email? Please refer to
http://msdn.microsoft.com/en-us/subscriptions/aa948868.aspx#notifications.
Note: MSDN Managed Newsgroup support offering is for non-urgent issues
where an initial response from the community or a Microsoft Support
Engineer within 2 business days is acceptable. Please note that each follow
up response may take approximately 2 business days as the support
professional working with you may need further investigation to reach the
most efficient resolution. The offering is not appropriate for situations
that require urgent, real-time or phone-based interactions. Issues of this
nature are best handled working with a dedicated Microsoft Support Engineer
by contacting Microsoft Customer Support Services (CSS) at
http://msdn.microsoft.com/en-us/subscriptions/aa948874.aspx
==================================================
This posting is provided "AS IS" with no warranties, and confers no rights.
ownload Method ?