[過去ﾛｸﾞ] テキストエディタＱＸ　5 (203ﾚｽ)
上下前次1-新

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

45(2): 2012/10/15(月)03:34 ID:T0caFfrN0(1) AAS
さすがに適当だったな
これだとダブルクォーテーションがあるとそこでちょん切れるぜ
で、ちょびっと修正してみた
なお、起動するブラウザとURL$指定のオプションパラメタは各自修正してちょ
(num=50&lr=lang_ja&safe=offなどなど)

--- web_search.mac ---
'選択文字列 を googleで検索する
'--- ブラウザ.exeファイル名を指定する（レジストリに登録されないものはフルパスで）
'const browser$ = """G:\bin\INET\Donut RAPT\Donut.exe"""
const browser$ = "iexplore.exe"

const URL$ = "外部ﾘﾝｸ:www.google.co.jp"

dllname "shell32.dll"
const SW_SHOWNORMAL = 1
cdeclare int ShellExecute(HWND, LPSTR, LPSTR, LPSTR, LPSTR, int);

proc search()
dim keyword$
dim exe$
if @hwnd = 0 then exit proc
exe$ = searchexe$(browser$)
if exe$ = "" then exe$ = browser$
keyword$ = """" & URL$ & @TextSelect$ & """"
'ShellExecute(0, "open", keyword$, 0, 0, SW_SHOWNORMAL)
if shell(exe$ & " " & keyword$,1)=0 then
call msgbox(exe$ & "が起動できません",MB_ICONEXCLAMATION, "google検索マクロ")
exit proc
end if
end proc
---------------------

---

上下前次1-新書関写板覧索設栞歴

---

あと 158 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.005s