« ファイル名を指定して実行をランチャー化しさらに検索までも | メイン | VBScriptにおけるpushの決定版 »

2008年7月12日

お前何年VBScript書いてんだって話なので

VBScriptでg.vbsを書いてみた。これなら拡張子無しでいけるだろうとか思ったらいけなかった。なんだよ。exeとlnkとbatは大丈夫なんだがなぁ。vbsからexeにするツール使おうとしたらウィルス扱いされたので見送り。

Option Explicit
Dim srchStr : srchStr = ""
Dim str
for each str In Wscript.ARguments
	srchStr = srchStr & " " & str
Next
srchStr = Mid(srchStr,2)
Dim sc : Set sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Dim js : Set js = sc.CodeObject
srchStr = "http://www.google.co.jp/search?q=" & js.encodeURI(srchStr)
Dim shell : Set shell = WScript.CreateObject("WScript.Shell")
shell.Run(srchStr)

まあ、VBScriptとか言いつつScriptControlとか使ってしまってるわけですが、気にしない。

投稿者 Songmu : 2008年7月12日 01:10