這篇文章主要介紹了VBScript如何通過剪貼板抓取URL并在瀏覽器中打開，具有一定借鑒價(jià)值，感興趣的朋友可以參考下，希望大家閱讀完這篇文章之后大有收獲，下面讓小編帶著大家一起了解一下。

成都創(chuàng)新互聯(lián)專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、禹州網(wǎng)站定制設(shè)計(jì)、自適應(yīng)品牌網(wǎng)站建設(shè)、成都h5網(wǎng)站建設(shè)、商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計(jì)等建站業(yè)務(wù)，價(jià)格優(yōu)惠性價(jià)比高，為禹州等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。

這是很有趣的問題，或者我們應(yīng)當(dāng)說，這是兩個(gè)很有趣的問題。因?yàn)槟鷮?shí)際上問了兩個(gè)問題。第一個(gè)問題很簡單：我可以使用腳本打開特定的 Web 站點(diǎn)嗎？您大概已經(jīng)知道答案了，我可以大聲地回答您，可以！下面是一個(gè)示例腳本，它將“腳本中心”的 URL 存儲(chǔ)在一個(gè)名為 strURL 的變量中。然后，此腳本會(huì)創(chuàng)建 WSH Shell 對象的一個(gè)實(shí)例，并使用 Run 方法來打開默認(rèn)的 Web 瀏覽器并導(dǎo)航到指定的 URL：
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx”
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
第二個(gè)問題有點(diǎn)棘手：我可以使用腳本從剪貼板中抓取信息嗎？這個(gè)問題的答案也是“可以”，盡管您必須通過后門程序到達(dá)剪貼板。
WSH 和 VBScript 都不能與剪貼板進(jìn)行交互：它們都不允許您將數(shù)據(jù)復(fù)制到剪貼板或從剪貼板粘貼數(shù)據(jù)。另一方面，Internet Explorer 卻可以和剪貼板進(jìn)行交互。（瞧，Internet Explorer 真是無所不能啊！）所以，就讓 IE 來為我們做這項(xiàng)工作吧。如果您想從剪貼板抓取數(shù)據(jù)，您可以使用與以下代碼類似的代碼：
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Wscript.Echo strURL
這里，我們所做的事情就是：創(chuàng)建 Internet Explorer 的一個(gè)實(shí)例，并在一個(gè)空白頁中將其打開。請注意，您實(shí)際上并不能看到此 IE 實(shí)例，因?yàn)槲覀儾]有將 Visible 屬性設(shè)置為 TRUE。所有的事情都是在后臺(tái)發(fā)生的。
然后，我們使用 clipboardData.GetData 方法來獲取放置在剪貼板上的文本并將其存儲(chǔ)在變量 strURL 中；這也就是下面這行代碼所做的工作：
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
我們關(guān)閉此 IE 實(shí)例 (objIE.Quit)，然后回顯我們從剪貼板檢索出來的值。
請做以下嘗試：將一些文本復(fù)制到剪貼板，然后運(yùn)行該腳本。您應(yīng)當(dāng)會(huì)得到一個(gè)消息框，其中包含您剛才復(fù)制到剪貼板的文本。
現(xiàn)在就剩下一件事情要做：將這兩半段腳本合在一起構(gòu)成一個(gè)完整的腳本。下面這個(gè)腳本就可以從剪貼板中抓取一個(gè) URL 然后在默認(rèn)的 Web 瀏覽器中打開該 Web 站點(diǎn)：
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
這個(gè)腳本還不賴吧。它還有一個(gè)優(yōu)點(diǎn) — 它并不是只能用來打開 Web 站點(diǎn)。假定您的剪貼板上有一個(gè)文件路徑，例如“C:\Scripts\ScriptLog.txt”。運(yùn)行此腳本，則該文件將在記事本（或任何您設(shè)置為與 .txt 文件相關(guān)聯(lián)的應(yīng)用程序）中打開。如果您的剪貼板上有一個(gè) .doc 文件的路徑，則此腳本將在 Microsoft Word 中打開該文檔。它實(shí)際上是一個(gè)通用的文件打開腳本，而不僅僅是一個(gè)只能用于 Web 站點(diǎn)的打開腳本。

感謝你能夠認(rèn)真閱讀完這篇文章，希望小編分享的“VBScript如何通過剪貼板抓取URL并在瀏覽器中打開”這篇文章對大家有幫助，同時(shí)也希望大家多多支持創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，，關(guān)注創(chuàng)新互聯(lián)行業(yè)資訊頻道，更多相關(guān)知識(shí)等著你來學(xué)習(xí)!

網(wǎng)頁題目：VBScript如何通過剪貼板抓取URL并在瀏覽器中打開-創(chuàng)新互聯(lián)
文章源于：http://www.chinadenli.net/article46/docshg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App設(shè)計(jì)、微信小程序、網(wǎng)站導(dǎo)航、品牌網(wǎng)站制作、標(biāo)簽優(yōu)化、小程序開發(fā)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)