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

時(shí)間：2024-10-12 14:59:13 VBScript 我要投稿

相關(guān)推薦

　　問(wèn)：

　　嗨，ScriptingGuy！可以在消息框中包含指向某個(gè)Web頁(yè)面的超鏈接嗎？

　　--CB

　　答：

　　嗨，CB。聽(tīng)起來(lái)您好像想要向用戶(hù)顯示一個(gè)消息框，并且希望在消息框中包含一個(gè)超鏈接，以便用戶(hù)可以點(diǎn)擊這個(gè)鏈接，從而獲得更多信息。例如，假設(shè)某個(gè)用戶(hù)試圖訪問(wèn)一些資源，但被拒絕了。這種情況下，您可以彈出一個(gè)消息框，告訴用戶(hù)訪問(wèn)被拒絕，然后向他們提供一個(gè)鏈接，這個(gè)鏈接指向的頁(yè)面會(huì)告訴用戶(hù)訪問(wèn)所需的權(quán)限。一般說(shuō)來(lái)，這種辦法會(huì)比簡(jiǎn)單地說(shuō)“訪問(wèn)被拒絕”好得多。

　　那么，是否可以用腳本編寫(xiě)語(yǔ)言實(shí)現(xiàn)這個(gè)目的呢？好吧，據(jù)我們所知，目前還不能。消息框中含有超鏈接當(dāng)然會(huì)很酷，但使用腳本編寫(xiě)語(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è)消息框，詢(xún)問(wèn)用戶(hù)：“您是否想要申請(qǐng)?jiān)L問(wèn)此資源？”呢？如果用戶(hù)點(diǎn)擊否，那么腳本就會(huì)中止。如果用戶(hù)點(diǎn)擊是，腳本就會(huì)自動(dòng)將用戶(hù)帶到合適的Web頁(yè)面。一個(gè)消息框，一鍵式訪問(wèn)網(wǎng)站。它和使用超鏈接并不十分相同，但結(jié)果卻是一樣的。

　　如您所見(jiàn)，這只需要以下幾行代碼就可以實(shí)現(xiàn)：

　　復(fù)制代碼代碼如下:

　　SetobjShell=CreateObject("Wscript.Shell")

　　intMessage=Msgbox("Wouldyouliketoapplyforaccesstothisresource?",_

　　vbYesNo,"AccessDenied")

　　IfintMessage=vbYesThen

　　objShell.Run("http://www.microsoft.com")

　　Else

　　Wscript.Quit

　　EndIf

　　我們首先創(chuàng)建一個(gè)WSHShell對(duì)象實(shí)例；我們需要?jiǎng)?chuàng)建這個(gè)實(shí)例，以便彈出Web瀏覽器和鏈接到網(wǎng)站。然后，我們顯示消息框（標(biāo)題為訪問(wèn)被拒絕），并詢(xún)問(wèn)用戶(hù)：“您是否想要申請(qǐng)?jiān)L問(wèn)此資源？”這個(gè)消息框具有一個(gè)是按鈕和一個(gè)否按鈕，這就是VBScript常量vbYesNo的用途。

　　注意：有些人可能在想：“等等，我想您應(yīng)該在VBScript中明確定義這些常量。”在大多數(shù)情況下，這是正確的。如果我們處理的是FileSystemObject（打個(gè)比方），那么我們就需要使用類(lèi)似如下代碼定義常量：

　　ConstForReading=1

　　但是，VBScript有一些內(nèi)部常量。vbYesNo恰好就是其中之一。它用于在消息框中顯示“是”按鈕或“否”按鈕。vbCrLf則是另一個(gè)內(nèi)部常量，它的作用是在字符串末尾添加回車(chē)換行。這些內(nèi)部常量——它們是VBScript語(yǔ)言的一部分——不必定義；在您輸入vbYesNo時(shí)，VBScript會(huì)知道您的意思。

　　我們剛才說(shuō)到哪了？哦，對(duì)了，我們彈出一個(gè)消息框，并向用戶(hù)提供是按鈕和否按鈕。如果用戶(hù)點(diǎn)擊是，我們就將他們帶到指定的網(wǎng)站。那么，如何知道用戶(hù)點(diǎn)擊的是否為是呢？很簡(jiǎn)單：當(dāng)我們創(chuàng)建消息框時(shí)，我們就將用戶(hù)響應(yīng)存儲(chǔ)在變量intMessage中。因此，若要判斷用戶(hù)點(diǎn)了哪個(gè)按鈕，我們只要檢查intMessage的值就可以了。如果這個(gè)值等于vbYesNo（另一個(gè)內(nèi)部常量，等于6），那么用戶(hù)點(diǎn)擊的便為是，于是我們就使用Shell對(duì)象的Run方法打開(kāi)網(wǎng)站http://www.microsoft.com。（注意，我們需要做的就是指定URL；然后操作系統(tǒng)就會(huì)使用默認(rèn)瀏覽器導(dǎo)航到該站點(diǎn)。）

　　那如果用戶(hù)點(diǎn)擊的為否呢？這種情況下，我們就會(huì)退出(Wscript.Quit)。

　　恰如我們所說(shuō)的，這個(gè)方法和我們想象中的不完全一樣，但它可以實(shí)現(xiàn)這個(gè)目的。

　　順便說(shuō)一下，如果您想了解有關(guān)VBScript的Msgbox函數(shù)以及配置這個(gè)函數(shù)的不同方式的更多信息，請(qǐng)?jiān)L問(wèn)MSDN上的“VBScript語(yǔ)言參考”。

　　那如果您需要制作精美一點(diǎn)的消息框呢？這種情況下，您可以自己動(dòng)手制作一個(gè)HTML頁(yè)面，然后使用這個(gè)頁(yè)面模擬真實(shí)的Windows消息框。不過(guò)這個(gè)問(wèn)題我們將在其他時(shí)間討論。

【怎么用vbscript實(shí)現(xiàn)在消息框中顯示一個(gè)超鏈接】相關(guān)文章：

word中怎么設(shè)置超鏈接07-28

wps中Word怎么去掉自動(dòng)生成的超鏈接09-14

ppt怎么制作超鏈接10-01

關(guān)于Dreamweaver中怎么讓html網(wǎng)頁(yè)中的table邊框細(xì)線顯示?08-15

VBScript中字節(jié)數(shù)據(jù)操作函數(shù)06-20

如何取消Word文檔中的超鏈接呢09-23