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
沒有留言:
張貼留言