VBS 全屏打开图片答案

【问题标题】：VBS Open a Picture FullscreenVBS 全屏打开图片
【发布时间】：2014-03-13 00:31:34
【问题描述】：

有没有办法打开图片，比如“全屏”中的弹出窗口？

这是我的代码：

intAnswer = _
    Msgbox("Do you want to open Welcome.png?", _
        vbYesNo, "Open Png?")

If intAnswer = vbYes Then
    Msgbox "Opening..."
    "open %userprofile%/directory/welcome.png in fullscreen"
Else
    Msgbox "Not opening..."
End If

【问题讨论】：

标签： vbscript

【解决方案1】：

仅使用 VBScript 无法全屏显示图片。您需要一个应用程序来进行展示。例如，HTA 可以工作：

<head>
<title>SplashScreen</title>
<HTA:APPLICATION ID="oHTA"
  APPLICATIONNAME="SplashScreen"
  SCROLL="no"
  SINGLEINSTANCE="yes"
  WINDOWSTATE="maximize"
>
<style type="text/css">
* {
  margin: 0;
  padding: 0;
  border: 0;
}
</style>
</head>

<script language="VBScript">
  Sub Window_onLoad
    document.all.splash.width = document.body.offsetWidth
    document.all.splash.height = document.body.offsetHeight
  End Sub
</script>

<body>
<p><img id='splash' src='C:\path\to\your.jpg'></p>
</body>

从您的 VBScript 中像这样运行它：

If intAnswer = vbYes Then
    Msgbox "Opening..."
    CreateObject("WScript.Shell").Run "C:\path\to\your.hta", 1, True
Else
    Msgbox "Not opening..."
End If

【讨论】：

不知道这在 HTA Ansgar 中是可能的。太棒了！