■

日経パソコン2006.1.23 P71の応用で、クリップボードの内容をGoogle検索するVBScript。
これを「クリップボードをGoogle検索.vbs」などと名前をつけ保存しておく。
デスクトップなどに貼り付けておくと便利。

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
targetStr = objIE.document.parentwindow.clipboardData.GetData("text")
objIE.Quit
strURL = "http://www.google.co.jp/search?q=" & targetStr
Set objShell = CreateObject("Wscript.Shell")
objShell.Run(strURL)