VBScript 剪貼板抓取URL并在瀏覽器中打開
您好,CL。這是很有趣的問題,或者我們應(yīng)當(dāng)說,這是兩個(gè)很有趣的問題。因?yàn)槟鷮?shí)際上問了兩個(gè)問題。第一個(gè)問題很簡(jiǎn)單:我可以使用腳本打開特定的 Web 站點(diǎn)嗎?您大概已經(jīng)知道答案了,我可以大聲地回答您,可以!下面是一個(gè)示例腳本,它將“腳本中心”的 URL 存儲(chǔ)在一個(gè)名為 strURL 的變量中。然后,此腳本會(huì)創(chuàng)建 WSH Shell 對(duì)象的一個(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è)空白頁(yè)中將其打開。請(qǐng)注意,您實(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),然后回顯我們從剪貼板檢索出來的值。
請(qǐng)做以下嘗試:將一些文本復(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)的打開腳本。
上一篇:vbs(asp) ByVal ByRef函數(shù)調(diào)用使用說明
欄 目:vb
本文標(biāo)題:VBScript 剪貼板抓取URL并在瀏覽器中打開
本文地址:http://mengdiqiu.com.cn/a1/vb/7618.html
您可能感興趣的文章
- 01-10VBScript教程 第十一課深入VBScript
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript語法速查及實(shí)例說明
- 01-10VBScript教程 第七課使用條件語句
- 01-10vbscript 可以按引用傳遞參數(shù)嗎?
- 01-10VBScript教程 第二課在HTML頁(yè)面中添加VBscript代碼
- 01-10VBScript教程 第十四課在VBScript中使用對(duì)象
- 01-10VBScript教程 第六課VBScript運(yùn)算符
- 01-10VBScript的入門學(xué)習(xí)資料
- 01-10VBScript教程 第十二課VBScript頁(yè)面的簡(jiǎn)單樣例


閱讀排行
- 1C語言 while語句的用法詳解
- 2java 實(shí)現(xiàn)簡(jiǎn)單圣誕樹的示例代碼(圣誕
- 3利用C語言實(shí)現(xiàn)“百馬百擔(dān)”問題方法
- 4C語言中計(jì)算正弦的相關(guān)函數(shù)總結(jié)
- 5c語言計(jì)算三角形面積代碼
- 6什么是 WSH(腳本宿主)的詳細(xì)解釋
- 7C++ 中隨機(jī)函數(shù)random函數(shù)的使用方法
- 8正則表達(dá)式匹配各種特殊字符
- 9C語言十進(jìn)制轉(zhuǎn)二進(jìn)制代碼實(shí)例
- 10C語言查找數(shù)組里數(shù)字重復(fù)次數(shù)的方法
本欄相關(guān)
- 01-10下載文件到本地運(yùn)行的vbs
- 01-10飄葉千夫指源代碼,又稱qq刷屏器
- 01-10SendKeys參考文檔
- 01-10什么是一個(gè)高效的軟件
- 01-10VBS中的正則表達(dá)式的用法大全 &l
- 01-10exe2swf 工具(Adodb.Stream版)
- 01-10VBS中SendKeys的基本應(yīng)用
- 01-10用VBSCRIPT控制ONSUBMIT事件
- 01-10VBScript教程 第十一課深入VBScript
- 01-10VBScript語法速查及實(shí)例說明
隨機(jī)閱讀
- 04-02jquery與jsp,用jquery
- 01-10C#中split用法實(shí)例總結(jié)
- 01-11ajax實(shí)現(xiàn)頁(yè)面的局部加載
- 08-05dedecms(織夢(mèng))副欄目數(shù)量限制代碼修改
- 08-05DEDE織夢(mèng)data目錄下的sessions文件夾有什
- 01-10使用C語言求解撲克牌的順子及n個(gè)骰子
- 08-05織夢(mèng)dedecms什么時(shí)候用欄目交叉功能?
- 01-11Mac OSX 打開原生自帶讀寫NTFS功能(圖文
- 01-10delphi制作wav文件的方法
- 01-10SublimeText編譯C開發(fā)環(huán)境設(shè)置