VBScript 剪貼板抓取URL并在瀏覽器中打開(kāi)
更新時(shí)間:2008年11月05日 00:39:58 作者:
VBScript如何從剪貼板中抓取一個(gè)URL然后在瀏覽器中打開(kāi)該 Web 站點(diǎn)
您好,CL。這是很有趣的問(wèn)題,或者我們應(yīng)當(dāng)說(shuō),這是兩個(gè)很有趣的問(wèn)題。因?yàn)槟鷮?shí)際上問(wèn)了兩個(gè)問(wèn)題。第一個(gè)問(wèn)題很簡(jiǎn)單:我可以使用腳本打開(kāi)特定的 Web 站點(diǎn)嗎?您大概已經(jīng)知道答案了,我可以大聲地回答您,可以!下面是一個(gè)示例腳本,它將“腳本中心”的 URL 存儲(chǔ)在一個(gè)名為 strURL 的變量中。然后,此腳本會(huì)創(chuàng)建 WSH Shell 對(duì)象的一個(gè)實(shí)例,并使用 Run 方法來(lái)打開(kāi)默認(rèn)的 Web 瀏覽器并導(dǎo)航到指定的 URL:
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx”
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
第二個(gè)問(wèn)題有點(diǎn)棘手:我可以使用腳本從剪貼板中抓取信息嗎?這個(gè)問(wèn)題的答案也是“可以”,盡管您必須通過(guò)后門程序到達(dá)剪貼板。
WSH 和 VBScript 都不能與剪貼板進(jìn)行交互:它們都不允許您將數(shù)據(jù)復(fù)制到剪貼板或從剪貼板粘貼數(shù)據(jù)。另一方面,Internet Explorer 卻可以和剪貼板進(jìn)行交互。(瞧,Internet Explorer 真是無(wú)所不能啊?。┧?,就讓 IE 來(lái)為我們做這項(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è)空白頁(yè)中將其打開(kāi)。請(qǐng)注意,您實(shí)際上并不能看到此 IE 實(shí)例,因?yàn)槲覀儾](méi)有將 Visible 屬性設(shè)置為 TRUE。所有的事情都是在后臺(tái)發(fā)生的。
然后,我們使用 clipboardData.GetData 方法來(lái)獲取放置在剪貼板上的文本并將其存儲(chǔ)在變量 strURL 中;這也就是下面這行代碼所做的工作:
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
我們關(guān)閉此 IE 實(shí)例 (objIE.Quit),然后回顯我們從剪貼板檢索出來(lái)的值。
請(qǐng)做以下嘗試:將一些文本復(fù)制到剪貼板,然后運(yùn)行該腳本。您應(yīng)當(dāng)會(huì)得到一個(gè)消息框,其中包含您剛才復(fù)制到剪貼板的文本。
現(xiàn)在就剩下一件事情要做:將這兩半段腳本合在一起構(gòu)成一個(gè)完整的腳本。下面這個(gè)腳本就可以從剪貼板中抓取一個(gè) URL 然后在默認(rèn)的 Web 瀏覽器中打開(kāi)該 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) — 它并不是只能用來(lái)打開(kāi) Web 站點(diǎn)。假定您的剪貼板上有一個(gè)文件路徑,例如“C:\Scripts\ScriptLog.txt”。運(yùn)行此腳本,則該文件將在記事本(或任何您設(shè)置為與 .txt 文件相關(guān)聯(lián)的應(yīng)用程序)中打開(kāi)。如果您的剪貼板上有一個(gè) .doc 文件的路徑,則此腳本將在 Microsoft Word 中打開(kāi)該文檔。它實(shí)際上是一個(gè)通用的文件打開(kāi)腳本,而不僅僅是一個(gè)只能用于 Web 站點(diǎn)的打開(kāi)腳本。
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx”
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
第二個(gè)問(wèn)題有點(diǎn)棘手:我可以使用腳本從剪貼板中抓取信息嗎?這個(gè)問(wèn)題的答案也是“可以”,盡管您必須通過(guò)后門程序到達(dá)剪貼板。
WSH 和 VBScript 都不能與剪貼板進(jìn)行交互:它們都不允許您將數(shù)據(jù)復(fù)制到剪貼板或從剪貼板粘貼數(shù)據(jù)。另一方面,Internet Explorer 卻可以和剪貼板進(jìn)行交互。(瞧,Internet Explorer 真是無(wú)所不能啊?。┧?,就讓 IE 來(lái)為我們做這項(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è)空白頁(yè)中將其打開(kāi)。請(qǐng)注意,您實(shí)際上并不能看到此 IE 實(shí)例,因?yàn)槲覀儾](méi)有將 Visible 屬性設(shè)置為 TRUE。所有的事情都是在后臺(tái)發(fā)生的。
然后,我們使用 clipboardData.GetData 方法來(lái)獲取放置在剪貼板上的文本并將其存儲(chǔ)在變量 strURL 中;這也就是下面這行代碼所做的工作:
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
我們關(guān)閉此 IE 實(shí)例 (objIE.Quit),然后回顯我們從剪貼板檢索出來(lái)的值。
請(qǐng)做以下嘗試:將一些文本復(fù)制到剪貼板,然后運(yùn)行該腳本。您應(yīng)當(dāng)會(huì)得到一個(gè)消息框,其中包含您剛才復(fù)制到剪貼板的文本。
現(xiàn)在就剩下一件事情要做:將這兩半段腳本合在一起構(gòu)成一個(gè)完整的腳本。下面這個(gè)腳本就可以從剪貼板中抓取一個(gè) URL 然后在默認(rèn)的 Web 瀏覽器中打開(kāi)該 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) — 它并不是只能用來(lái)打開(kāi) Web 站點(diǎn)。假定您的剪貼板上有一個(gè)文件路徑,例如“C:\Scripts\ScriptLog.txt”。運(yùn)行此腳本,則該文件將在記事本(或任何您設(shè)置為與 .txt 文件相關(guān)聯(lián)的應(yīng)用程序)中打開(kāi)。如果您的剪貼板上有一個(gè) .doc 文件的路徑,則此腳本將在 Microsoft Word 中打開(kāi)該文檔。它實(shí)際上是一個(gè)通用的文件打開(kāi)腳本,而不僅僅是一個(gè)只能用于 Web 站點(diǎn)的打開(kāi)腳本。
您可能感興趣的文章:
- JS復(fù)制到剪貼板示例代碼
- JS/FLASH實(shí)現(xiàn)復(fù)制代碼到剪貼板(兼容所有瀏覽器)
- ASP.NET jQuery 實(shí)例4(復(fù)制TextBox的文本到本地剪貼板上)
- VBS訪問(wèn)剪貼板的幾種方法小結(jié)
- [js]javascript與剪貼板交互
- 用vbscript實(shí)現(xiàn)將腳本的輸出復(fù)制到剪貼板
- 用vbs 實(shí)現(xiàn)從剪貼板中抓取一個(gè) URL 然后在瀏覽器中打開(kāi)該 Web 站點(diǎn)
- 一段多瀏覽器的"復(fù)制到剪貼板"javascript代碼
- vb.net借助剪貼板將圖片導(dǎo)入excel內(nèi)
相關(guān)文章
vbs腳本 加密 幾個(gè)小細(xì)節(jié)小結(jié)下
加密的vbs腳本拖到這個(gè)腳本上就行了。網(wǎng)上有位朋友問(wèn)我這個(gè)問(wèn)題,我由于今天才上email看了下文件,發(fā)現(xiàn)下面的問(wèn)題,說(shuō)實(shí)話對(duì)于他要問(wèn)的我和你清楚,我不太會(huì)寫呢,不是出于技術(shù)問(wèn)題,是出于已經(jīng)沒(méi)了這份愛(ài)好。出于對(duì)朋友學(xué)習(xí)的理解,我給解決了幾個(gè)問(wèn)題,下面總結(jié)下。并給出正確的代碼。2008-01-01
文件夾定時(shí)自動(dòng)備份 AutoBackUpFolder.vbs
定時(shí)自動(dòng)備份文件夾到一個(gè)以時(shí)間命名的新目錄,設(shè)置好后加到啟動(dòng)項(xiàng)里,只要一啟動(dòng)機(jī)器程序就會(huì)自動(dòng)運(yùn)行,占系統(tǒng)資源可以不計(jì)。2009-07-07
vbs 讀寫注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加與刪除
這篇文章主要介紹了vbs 讀寫注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加值,需要的朋友可以參考下2019-12-12
基于邏輯運(yùn)算的簡(jiǎn)單權(quán)限系統(tǒng)(原理,設(shè)計(jì),實(shí)現(xiàn)) VBS 版
基于邏輯運(yùn)算的簡(jiǎn)單權(quán)限系統(tǒng)(原理,設(shè)計(jì),實(shí)現(xiàn)) VBS 版...2007-03-03
用vbs實(shí)現(xiàn)的利用ADSL撥號(hào)變ip刷投票的代碼
朋友讓我?guī)退⑼镀?,我看了看,那個(gè)投票系統(tǒng)只是限制ip,考慮的不是很全面,可以刷。2010-03-03
VBS實(shí)現(xiàn)工作表按指定表頭自動(dòng)分表
下面的VBS腳本就是實(shí)現(xiàn)的工作表按指定表頭(由用戶選擇)自動(dòng)分表功能。需要的朋友只要將要操作的工作表拖放到腳本文件上即可輕松實(shí)現(xiàn)工作表分表2013-01-01
vbs實(shí)現(xiàn)恢復(fù)暫停的自動(dòng)啟動(dòng)服務(wù)的腳本
有時(shí)候我們需要把自啟動(dòng)的服務(wù)停掉,方便我們處理事務(wù),但我們?nèi)绻淮瓮5舻淖詥?dòng)服務(wù)比較多,如何一次性啟動(dòng)他們呢2008-06-06

