問(wèn)： 嗨，Scripting Guy！可以在消息框中包含指向某個(gè) Web 頁(yè)面的超鏈接嗎？ -- CB 答： 嗨，CB。聽(tīng)起來(lái)您好像想要向用戶顯示一個(gè)消息框，并且希望在消息框中包含一個(gè)超鏈接，以便用戶可以點(diǎn)擊這個(gè)鏈接，從而獲得更多信息。例如，假設(shè)某個(gè)用戶試圖訪問(wèn)一些資源，但被拒絕了。這種情況下，您可以彈出一個(gè)消息框，告訴用戶訪問(wèn)被拒絕，然后向他們提供一個(gè)鏈接，這個(gè)鏈接指向的頁(yè)面會(huì)告訴用戶訪問(wèn)所需的權(quán)限。一般說(shuō)來(lái)，這種辦法會(huì)比簡(jiǎn)單地說(shuō)“訪問(wèn)被拒絕”好得多。 那么，是否可以用腳本編寫語(yǔ)言實(shí)現(xiàn)這個(gè)目的呢？好吧，據(jù)我們所知，目前還不能。消息框中含有超鏈接當(dāng)然會(huì)很酷，但使用腳本編寫語(yǔ)言則僅限于簡(jiǎn)單的消息框。 不過(guò)，先等等，別忙著離開(kāi)！您并沒(méi)有問(wèn)我們：“是否存在某種變通辦法可以實(shí)現(xiàn)相同目的，但不必在消息框中嵌入超鏈接？”如果您這么問(wèn)，我們就會(huì)告訴您：“總會(huì)有變通辦法的。”您所尋求的就是從消息框中實(shí)現(xiàn)對(duì) Web 頁(yè)面的一鍵式訪問(wèn)。一個(gè)方法就是在消息框中嵌入超鏈接，但不幸的是，我們上面說(shuō)過(guò)，使用 VBScript 無(wú)法實(shí)現(xiàn)上述目的。因此，我們?cè)囍褂闷渌k法看看：為什么不彈出一個(gè)消息框，詢問(wèn)用戶：“您是否想要申請(qǐng)?jiān)L問(wèn)此資源？”呢？如果用戶點(diǎn)擊否，那么腳本就會(huì)中止。如果用戶點(diǎn)擊是，腳本就會(huì)自動(dòng)將用戶帶到合適的 Web 頁(yè)面。一個(gè)消息框，一鍵式訪問(wèn)網(wǎng)站。它和使用超鏈接并不十分相同，但結(jié)果卻是一樣的。 如您所見(jiàn)，這只需要以下幾行代碼就可以實(shí)現(xiàn)：
復(fù)制代碼代碼如下:
Set objShell = CreateObject("Wscript.Shell") intMessage = Msgbox("Would you like to apply for access to this resource?", _ vbYesNo, "Access Denied") If intMessage = vbYes Then objShell.Run("http://www.microsoft.com") Else Wscript.Quit End If
