Question

我正在使用变量启动IE，它会打开嵌入在IE中的PDF文档。不幸的是，我不断收到打开/保存/取消的提示。我只想在PDF中加载PDF。我创建了一个有效的批处理文件，但我需要使用VBS来隐藏地址栏（不想通过批处理文件使用IE的kiosk模式。

我按如下方式运行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打开时，我会得到我必须回答的保存/打开/取消提示，然后在Adobe阅读器中打开PDF。我只想在IE中打开它。

Answer 1

从Adobe网站上看一下这个链接。它解释了您可能需要更改的一些Adobe Reader设置，以便在Internet Explorer和其他浏览器中正确加载PDF。

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

此外，在Adobe Reader的首选项（Edit->Preferences）中，单击Internet页面。这里有一些选项可以控制在浏览器中查看PDF的方式。

Answer 2

尝试使用此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

使用嵌入式PDF打开Internet Explorer

2 个答案: