国产福利电影一区二区三区,暴力强奷在线播

主頁(yè) > 知識(shí)庫(kù) > 用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接

用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接

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

我們首先創(chuàng)建一個(gè) WSH Shell 對(duì)象實(shí)例；我們需要?jiǎng)?chuàng)建這個(gè)實(shí)例，以便彈出 Web 瀏覽器和鏈接到網(wǎng)站。然后，我們顯示消息框（標(biāo)題為訪問被拒絕），并詢問用戶：“您是否想要申請(qǐng)?jiān)L問此資源？”這個(gè)消息框具有一個(gè)是按鈕和一個(gè)否按鈕，這就是 VBScript 常量 vbYesNo 的用途。
注意：有些人可能在想：“等等，我想您應(yīng)該在 VBScript 中明確定義這些常量?！痹诖蠖鄶?shù)情況下，這是正確的。如果我們處理的是 FileSystemObject（打個(gè)比方），那么我們就需要使用類似如下代碼定義常量：
Const ForReading = 1
但是，VBScript 有一些內(nèi)部常量。vbYesNo 恰好就是其中之一。它用于在消息框中顯示“是”按鈕或“否”按鈕。vbCrLf 則是另一個(gè)內(nèi)部常量，它的作用是在字符串末尾添加回車換行。這些內(nèi)部常量——它們是 VBScript 語(yǔ)言的一部分——不必定義；在您輸入 vbYesNo 時(shí)，VBScript 會(huì)知道您的意思。
我們剛才說到哪了？哦，對(duì)了，我們彈出一個(gè)消息框，并向用戶提供是按鈕和否按鈕。如果用戶點(diǎn)擊是，我們就將他們帶到指定的網(wǎng)站。那么，如何知道用戶點(diǎn)擊的是否為是呢？很簡(jiǎn)單：當(dāng)我們創(chuàng)建消息框時(shí)，我們就將用戶響應(yīng)存儲(chǔ)在變量 intMessage 中。因此，若要判斷用戶點(diǎn)了哪個(gè)按鈕，我們只要檢查 intMessage 的值就可以了。如果這個(gè)值等于 vbYesNo（另一個(gè)內(nèi)部常量，等于 6），那么用戶點(diǎn)擊的便為是，于是我們就使用 Shell 對(duì)象的 Run 方法打開網(wǎng)站 http://www.microsoft.com。（注意，我們需要做的就是指定 URL；然后操作系統(tǒng)就會(huì)使用默認(rèn)瀏覽器導(dǎo)航到該站點(diǎn)。）
那如果用戶點(diǎn)擊的為否呢？這種情況下，我們就會(huì)退出 (Wscript.Quit)。
恰如我們所說的，這個(gè)方法和我們想象中的不完全一樣，但它可以實(shí)現(xiàn)這個(gè)目的。
順便說一下，如果您想了解有關(guān) VBScript 的 Msgbox 函數(shù)以及配置這個(gè)函數(shù)的不同方式的更多信息，請(qǐng)?jiān)L問MSDN 上的 “VBScript 語(yǔ)言參考”。
那如果您需要制作精美一點(diǎn)的消息框呢？這種情況下，您可以自己動(dòng)手制作一個(gè) HTML 頁(yè)面，然后使用這個(gè)頁(yè)面模擬真實(shí)的 Windows 消息框。不過這個(gè)問題我們將在其他時(shí)間討論。

您可能感興趣的文章:

WPF自動(dòng)隱藏的消息框的實(shí)例代碼
C#實(shí)現(xiàn)客戶端彈出消息框封裝類實(shí)例
基于.Net實(shí)現(xiàn)前端對(duì)話框和消息框
ASP.NET中彈出消息框的幾種常見方法
.net 彈出消息框后導(dǎo)致頁(yè)面樣式變亂解決方法
JQuery的Alert消息框插件使用介紹
c++中的消息框messagebox()詳細(xì)介紹及使用方法
基于jQuery的message插件實(shí)現(xiàn)右下角彈出消息框
Extjs4 消息框去掉關(guān)閉按鈕(類似Ext.Msg.alert)
WPF彈出帶蒙板的消息框

標(biāo)簽：廣安嘉興漳州六安周口延安玉林臺(tái)灣

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接》，本文關(guān)鍵詞用,vbscript,實(shí),現(xiàn)在,消息,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。