国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

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

2020-06-26 18:17:40
字體:
來源:轉載
供稿:網友
VBScript如何從剪貼板中抓取一個URL然后在瀏覽器中打開該 Web 站點
 
您好,CL。這是很有趣的問題,或者我們應當說,這是兩個很有趣的問題。因為您實際上問了兩個問題。第一個問題很簡單:我可以使用腳本打開特定的 Web 站點嗎?您大概已經知道答案了,我可以大聲地回答您,可以!下面是一個示例腳本,它將“腳本中心”的 URL 存儲在一個名為 strURL 的變量中。然后,此腳本會創建 WSH Shell 對象的一個實例,并使用 Run 方法來打開默認的 Web 瀏覽器并導航到指定的 URL: 
strURL = “http://www.microsoft.com/technet/scriptcenter/default.mspx” 
Set objShell = CreateObject("Wscript.Shell") 
objShell.Run(strURL) 
第二個問題有點棘手:我可以使用腳本從剪貼板中抓取信息嗎?這個問題的答案也是“可以”,盡管您必須通過后門程序到達剪貼板。 
WSH 和 VBScript 都不能與剪貼板進行交互:它們都不允許您將數據復制到剪貼板或從剪貼板粘貼數據。另一方面,Internet Explorer 卻可以和剪貼板進行交互。(瞧,Internet Explorer 真是無所不能啊!)所以,就讓 IE 來為我們做這項工作吧。如果您想從剪貼板抓取數據,您可以使用與以下代碼類似的代碼: 
Set objIE = CreateObject("InternetExplorer.Application") 
objIE.Navigate("about:blank") 
strURL = objIE.document.parentwindow.clipboardData.GetData("text") 
objIE.Quit 
Wscript.Echo strURL 
這里,我們所做的事情就是:創建 Internet Explorer 的一個實例,并在一個空白頁中將其打開。請注意,您實際上并不能看到此 IE 實例,因為我們并沒有將 Visible 屬性設置為 TRUE。所有的事情都是在后臺發生的。 
然后,我們使用 clipboardData.GetData 方法來獲取放置在剪貼板上的文本并將其存儲在變量 strURL 中;這也就是下面這行代碼所做的工作: 
strURL = objIE.document.parentwindow.clipboardData.GetData("text") 
我們關閉此 IE 實例 (objIE.Quit),然后回顯我們從剪貼板檢索出來的值。 
請做以下嘗試:將一些文本復制到剪貼板,然后運行該腳本。您應當會得到一個消息框,其中包含您剛才復制到剪貼板的文本。 
現在就剩下一件事情要做:將這兩半段腳本合在一起構成一個完整的腳本。下面這個腳本就可以從剪貼板中抓取一個 URL 然后在默認的 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) 
這個腳本還不賴吧。它還有一個優點 — 它并不是只能用來打開 Web 站點。假定您的剪貼板上有一個文件路徑,例如“C:/Scripts/ScriptLog.txt”。運行此腳本,則該文件將在記事本(或任何您設置為與 .txt 文件相關聯的應用程序)中打開。如果您的剪貼板上有一個 .doc 文件的路徑,則此腳本將在 Microsoft Word 中打開該文檔。它實際上是一個通用的文件打開腳本,而不僅僅是一個只能用于 Web 站點的打開腳本。
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 重庆市| 宿松县| 恩施市| 临清市| 鲜城| 宁安市| 肥西县| 睢宁县| 屏东县| 南宁市| 正定县| 汉源县| 青岛市| 罗甸县| 文成县| 山西省| 睢宁县| 乌审旗| 青浦区| 齐齐哈尔市| 云龙县| 普洱| 礼泉县| 庆城县| 凯里市| 乐陵市| 新巴尔虎左旗| 萍乡市| 特克斯县| 张家口市| 邵东县| 玛纳斯县| 固始县| 宕昌县| 德令哈市| 曲周县| 巴里| 松滋市| 辽阳市| 卓尼县| 峡江县|