2013年8月19日 星期一

命令列啟動瀏覽器,開啟多個分頁查詢關鍵字

在命令列下search.vbs 關鍵字
search.vbs的內容如下:
Dim ArgObj,sLine,sLinks
Dim ArgObj,sLine,sLinks
Set ArgObj = WScript.Arguments
Set WshShell = CreateObject("WScript.Shell")
sLinks="http://tw.search.yahoo.com/search?p=%s&fr=yfp&ei=utf-8&v=0 http://search.goo.ne.jp/web.jsp?MT=%s&STYPE=web&SH=1&IE=UTF-8&OE=UTF-8&from=gootop&bt_search.x=39&bt_search.y=11"
if ArgObj.length > 0 Then
 for i=0 to ArgObj.length-1 
  sLine=sLine & ArgObj(i) & "+"
 next 
 sLinks = Replace(sLinks,"%s",sLine)
End if
WshShell.Run "opera " & sLinks

sLinks變數可以新增網站,欲搜尋的文字用%s取代。舉例:欲新增Google網站,先搜尋關鍵字,後將網址列上的網址複製下來,即https://www.google.com.tw/search?q=%E9%97%9C%E9%8D%B5%E5%AD%97&oq=%E9%97%9C%E9%8D%B5%E5%AD%97&aqs=chrome.0.69i57j69i65j0l2j5j69i62.4506j0&sourceid=chrome&ie=UTF-8。將欲搜尋的文字用%s取代,得https://www.google.com.tw/search?q=%s&oq=%s&aqs=chrome.0.69i57j69i65j0l2j5j69i62.4506j0&sourceid=chrome&ie=UTF-8。最後,得到的網址就可以新增到sLinks變數中,字串中的每個網址以空白做分隔。

要啟動opera瀏覽器,首先確定你在命令列下可以找到它。啟動命令列,下opera指令。如果你得到下列的訊息,表示你無法啟動它。
D:\>opera
'opera' is not recognized as an internal or external command,
operable program or batch file.
也可以指定瀏覽器執行檔所在位置,來啟動瀏覽器。如果路徑中包含空白,請用雙雙引號""來包含它。舉例如下:
WshShell.Run """D:\Program Files\GoogleChromePortable2\App\Chrome-bin\chrome.exe"" " & sLinks

沒有留言: