用vbs 實現從剪貼板中抓取一個 URL 然后在瀏覽器中打開該 Web 站點

2020-06-26 18:08:54

字體：大中小

來源：轉載

供稿：網友

問：
嗨，Scripting Guy！我如何從剪貼板中抓取一個 URL 然后在瀏覽器中打開該 Web 站點？

-- CL

答：
您好，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 站點的打開腳本。

上一篇：用vbs針對一個 IP 地址范圍運行腳本

下一篇：使用vbscript腳本在表單中進行選擇的代碼