使用嵌入式PDF打開Internet Explorer

我使用變量啓動IE，該變量打開嵌入在IE中的PDF文檔。不幸的是，我不斷收到打開/保存/取消的提示。我只想在IE中加載PDF。我創建一個批處理文件，工作，但我需要用VBS隱藏地址欄（不想通過批處理文件亭模式下工作的IE使用嵌入式PDF打開Internet Explorer

我運行VB腳本如下：

>test.vbs 123

我的代碼，然後：

Set oIE1 = WScript.CreateObject ("InternetExplorer.Application") 

acc=Wscript.Arguments(0) 

oIE1.Navigate "http://somplace/" & acc 
oIE1.Visible = 1 
oIE1.AddressBar = 0 
oIE1.StatusBar = 0 
oIE1.ToolBar = 0 
oIE1.MenuBar = 0

但是IE打開的時候，我得到了保存/打開/取消提示，我必須回答，然後將PDF在Adobe Reader中打開在那裏我只是希望它在IE中打開。

來源

2014-04-15 user3535998

請查看Adobe網站上的鏈接。它解釋了一些Adobe Reader設置，您可能需要更改PDF才能在Internet Explorer和其他瀏覽器中正確加載。

http://helpx.adobe.com/acrobat/using/display-pdf-browser-acrobat-xi.html

此外，在Adobe Reader的偏好（Edit->Preferences），點擊頁面Internet。這裏有一些選項可以控制如何在瀏覽器中查看PDF。

來源

2014-04-15 19:07:18 Bond

感謝您回覆，但這並沒有解決這個問題。當我使用批處理文件時，預期的操作可以正常工作，並在IE中打開PDF。但是當我使用VB腳本時，我使用原始問題中的代碼獲得了打開/保存/取消提示。我想在vb腳本級別避免這種情況，這樣我就不必修改其他瀏覽器來支持此腳本。乾杯！ – user3535998

如何在批處理文件中啓動PDF？ – Bond

試試看這個VBScript中：

Option Explicit 
Dim URL,acc 
URL = "C:\Documents and Settings\Administrator\My Documents\Téléchargements\Vbscript.pdf" 
Call IE_Run_PDF(URL) 'locally 
'*************************************************** 
Sub IE_Run_PDF(URL) 
    Dim objShell,MaCmd,Titre,fso 
    Titre = "Run a PDF File with Internet Explorer" 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    If fso.FileExists(URL) Then 
    Set objShell = CreateObject("Wscript.Shell") 
    msgbox("iexplore.exe " & DblQuote(URL)),VbInformation,Titre 
    MaCmd = "iexplore.exe "& DblQuote(URL) &"" 
    objShell.Run(MaCmd) 
    Else 
     MsgBox "The File " & DblQuote(URL) &" Dosen't Exists !",VbCritical,Titre 
    End If 
End Sub 
'*************************************************** 
Function DblQuote(Str) 
    DblQuote = Chr(34) & Str & Chr(34) 
End Function 
'*************************************************** 
URL = "http://repository.root-me.org/Programmation/VB/" 
acc = "FR%20-%20Le%20language%20VBScript.pdf" 
Call IE_Run_Net(URL,acc) 'Run on internet 
'*************************************************** 
Sub IE_Run_Net(URL,acc) 
Dim oIE1 
Set oIE1 = WScript.CreateObject("InternetExplorer.Application") 
oIE1.Navigate(URL & acc) 
oIE1.Visible = 1 
oIE1.AddressBar = 0 
oIE1.StatusBar = 0 
oIE1.ToolBar = 0 
oIE1.MenuBar = 0 
End Sub

來源

2014-04-21 10:01:55 Hackoo

使用嵌入式PDF打開Internet Explorer

回答

相關問題