Question

我在这个主题上遇到过一两篇帖子，例如：

Create vbscript messagebox that stays on top and blocks other windows

但这似乎不适用于'if .. else'参数。每当我尝试向脚本的第二行添加类似内容时，我都会收到WSH VBScript编译错误消息。

这是脚本，我试图让它在屏幕上出现后在屏幕上打开的所有其他窗口上方保持可见。很感激帮助。谢谢，

马丁

intAnswer = _
Msgbox("           Do you want to run FS Earth?", _
    vbYesNo, " ")

If intAnswer = vbYes Then

Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )
objShell.Run("""D:\FS9\FS_Earth\fs_earth_link.exe""")
Set objShell = Nothing

Else    

End If

Answer 1

我花了5分钟一遍又一遍地读你的问题......我觉得有点傻 - 最后我明白了你的问题！

目前，您无法在第二行添加任何内容，因为前三行代码实际上是跨越多行的单条指令（通过使用下划线_字符）。

如果您重写了以下代码，您当然可以在第1行和第2行之间添加任何内容：）

intAnswer = Msgbox("Do you want to run FS Earth?", vbYesNo + vbSystemModal, " ")

If intAnswer = vbYes Then
    Dim objShell
    Set objShell = WScript.CreateObject( "WScript.Shell" )
    objShell.Run("""D:\FS9\FS_Earth\fs_earth_link.exe""")
    Set objShell = Nothing
Else    

End If

Answer 2

您无法真正控制分层，因为其他窗口是单独的进程，而msgbox属于启动vbs的进程。

如何使vbs消息框“永远在顶部”

2 个答案: