問： 嗨，Scripting Guy！可以在消息框中包含指向某個 Web 頁面的超鏈接嗎？ -- CB 答： 嗨，CB。聽起來您好像想要向用戶顯示一個消息框，并且希望在消息框中包含一個超鏈接，以便用戶可以點擊這個鏈接，從而獲得更多信息。例如，假設某個用戶試圖訪問一些資源，但被拒絕了。這種情況下，您可以彈出一個消息框，告訴用戶訪問被拒絕，然后向他們提供一個鏈接，這個鏈接指向的頁面會告訴用戶訪問所需的權限。一般說來，這種辦法會比簡單地說“訪問被拒絕”好得多。 那么，是否可以用腳本編寫語言實現(xiàn)這個目的呢？好吧，據(jù)我們所知，目前還不能。消息框中含有超鏈接當然會很酷，但使用腳本編寫語言則僅限于簡單的消息框。 不過，先等等，別忙著離開！您并沒有問我們：“是否存在某種變通辦法可以實現(xiàn)相同目的，但不必在消息框中嵌入超鏈接？”如果您這么問，我們就會告訴您：“總會有變通辦法的?！蹦鶎で蟮木褪菑南⒖蛑袑崿F(xiàn)對 Web 頁面的一鍵式訪問。一個方法就是在消息框中嵌入超鏈接，但不幸的是，我們上面說過，使用 VBScript 無法實現(xiàn)上述目的。因此，我們試著使用其他辦法看看：為什么不彈出一個消息框，詢問用戶：“您是否想要申請訪問此資源？”呢？如果用戶點擊否，那么腳本就會中止。如果用戶點擊是，腳本就會自動將用戶帶到合適的 Web 頁面。一個消息框，一鍵式訪問網站。它和使用超鏈接并不十分相同，但結果卻是一樣的。 如您所見，這只需要以下幾行代碼就可以實現(xiàn)：
復制代碼 代碼如下:
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
