佳木斯湛栽影视文化发展公司

主頁 > 知識庫 > VBScript 剪貼板抓取URL并在瀏覽器中打開

VBScript 剪貼板抓取URL并在瀏覽器中打開

熱門標(biāo)簽:服務(wù)器配置 銀行業(yè)務(wù) 呼叫中心市場需求 美圖手機(jī) 鐵路電話系統(tǒng) 檢查注冊表項 智能手機(jī) 網(wǎng)站文章發(fā)布
您好,CL。這是很有趣的問題,或者我們應(yīng)當(dāng)說,這是兩個很有趣的問題。因為您實際上問了兩個問題。第一個問題很簡單:我可以使用腳本打開特定的 Web 站點嗎?您大概已經(jīng)知道答案了,我可以大聲地回答您,可以!下面是一個示例腳本,它將“腳本中心”的 URL 存儲在一個名為 strURL 的變量中。然后,此腳本會創(chuàng)建 WSH Shell 對象的一個實例,并使用 Run 方法來打開默認(rèn)的 Web 瀏覽器并導(dǎo)航到指定的 URL:
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx”
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)
第二個問題有點棘手:我可以使用腳本從剪貼板中抓取信息嗎?這個問題的答案也是“可以”,盡管您必須通過后門程序到達(dá)剪貼板。
WSH 和 VBScript 都不能與剪貼板進(jìn)行交互:它們都不允許您將數(shù)據(jù)復(fù)制到剪貼板或從剪貼板粘貼數(shù)據(jù)。另一方面,Internet Explorer 卻可以和剪貼板進(jìn)行交互。(瞧,Internet Explorer 真是無所不能啊?。┧?,就讓 IE 來為我們做這項工作吧。如果您想從剪貼板抓取數(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 的一個實例,并在一個空白頁中將其打開。請注意,您實際上并不能看到此 IE 實例,因為我們并沒有將 Visible 屬性設(shè)置為 TRUE。所有的事情都是在后臺發(fā)生的。
然后,我們使用 clipboardData.GetData 方法來獲取放置在剪貼板上的文本并將其存儲在變量 strURL 中;這也就是下面這行代碼所做的工作:
strURL = objIE.document.parentwindow.clipboardData.GetData("text")
我們關(guān)閉此 IE 實例 (objIE.Quit),然后回顯我們從剪貼板檢索出來的值。
請做以下嘗試:將一些文本復(fù)制到剪貼板,然后運(yùn)行該腳本。您應(yīng)當(dāng)會得到一個消息框,其中包含您剛才復(fù)制到剪貼板的文本。
現(xiàn)在就剩下一件事情要做:將這兩半段腳本合在一起構(gòu)成一個完整的腳本。下面這個腳本就可以從剪貼板中抓取一個 URL 然后在默認(rèn)的 Web 瀏覽器中打開該 Web 站點:
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)
這個腳本還不賴吧。它還有一個優(yōu)點 — 它并不是只能用來打開 Web 站點。假定您的剪貼板上有一個文件路徑,例如“C:\Scripts\ScriptLog.txt”。運(yùn)行此腳本,則該文件將在記事本(或任何您設(shè)置為與 .txt 文件相關(guān)聯(lián)的應(yīng)用程序)中打開。如果您的剪貼板上有一個 .doc 文件的路徑,則此腳本將在 Microsoft Word 中打開該文檔。它實際上是一個通用的文件打開腳本,而不僅僅是一個只能用于 Web 站點的打開腳本。
您可能感興趣的文章:
  • JS復(fù)制到剪貼板示例代碼
  • JS/FLASH實現(xiàn)復(fù)制代碼到剪貼板(兼容所有瀏覽器)
  • ASP.NET jQuery 實例4(復(fù)制TextBox的文本到本地剪貼板上)
  • VBS訪問剪貼板的幾種方法小結(jié)
  • [js]javascript與剪貼板交互
  • 用vbscript實現(xiàn)將腳本的輸出復(fù)制到剪貼板
  • 用vbs 實現(xiàn)從剪貼板中抓取一個 URL 然后在瀏覽器中打開該 Web 站點
  • 一段多瀏覽器的"復(fù)制到剪貼板"javascript代碼
  • vb.net借助剪貼板將圖片導(dǎo)入excel內(nèi)

標(biāo)簽:新疆 沈陽 河南 上海 樂山 長治 滄州 紅河

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《VBScript 剪貼板抓取URL并在瀏覽器中打開》,本文關(guān)鍵詞  ;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼
    • 電話咨詢

    • 400-1100-266
    宜兰县| 石林| 井研县| 白河县| 宝清县| 安吉县| 平山县| 渝中区| 汉阴县| 江源县| 西昌市| 宜宾市| 辽阳市| 武冈市| 策勒县| 琼中| 小金县| 长子县| 西藏| 永清县| 东丰县| 乡宁县| 延吉市| 东海县| 长沙县| 郧西县| 神池县| 花莲市| 钦州市| 松阳县| 梁河县| 沁阳市| 顺平县| 宁强县| 灌阳县| 图片| 沂水县| 潮州市| 宝鸡市| 四子王旗| 昭觉县|