這篇文章主要為大家展示了“怎么用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接”，內(nèi)容簡而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“怎么用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接”這篇文章吧。

創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括城中網(wǎng)站建設(shè)、城中網(wǎng)站制作、城中網(wǎng)頁制作以及城中網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，城中網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到城中省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

代碼如下:

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 語言的一部分——不必定義；在您輸入 vbYesNo 時(shí)，VBScript 會(huì)知道您的意思。
我們剛才說到哪了？哦，對(duì)了，我們彈出一個(gè)消息框，并向用戶提供是按鈕和否按鈕。如果用戶點(diǎn)擊是，我們就將他們帶到指定的網(wǎng)站。那么，如何知道用戶點(diǎ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è)目的。

以上是“怎么用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

文章標(biāo)題：怎么用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接-創(chuàng)新互聯(lián)
當(dāng)前路徑：http://www.xueling.net.cn/article/cescgd.html