Question

我想在每个案例中指导用户使用适当的下载链接。我可以在vbs消息框中嵌入可点击的链接吗？或者，有没有更清洁的方法来解决这个问题？

 select case FSO.GetFileVersion(strCorLib)
            Case "2.0.50727.42"
                strNETVersion = strNETVersion & " SP0 (not so good!)"
            Case "2.0.50727.1433"
                strNETVersion = strNETVersion & " SP1 (this will work)" 
            Case "2.0.50727.3053"
                strNETVersion = strNETVersion & " SP2 (this is good)"
            end select

            strNetVersion = strNETVersion & ", " & FSO.GetFile(strCorLib).DateLastModified
        else
            strNETVersion = ".NET 2.0 not installed"
        end if
        sayit strNetVersion

Answer 1

使用标准的msgbox是不可能的......你必须自己动手......

查看this link了解详情......

Answer 2

当我编写VBScript代码时，我会使用类似的东西。 IMO这是一种更清洁的方式。

iRes = objShell.Popup("Something not found." & vbNewLIne & _
    "Without that the world wont be saved." & vbNewLIne & _
    "Download it now?",, "Required software is missing", 4+48)    ' 4=MB_YESNO, 48=MB_ICONEXCLAMATION
if iRes = 6 then     ' 6=IDYES
    objShell.Run("http://www.microsoft/com/...")
end if

Answer 3

同时检查ShowModalDialog。它可以准确地提供您想要的内容，但是就像来自John的链接一样，它只是IE的解决方案。

Answer 4

使用jQuery和一个小标记来解决这个问题。 jQuery甚至没有必要，但节省了编码。

是否可以在vbscript消息框中嵌入http链接？

4 个答案: