[過去ログ]
テキストエディタQX 5 (203レス)
テキストエディタQX 5 http://egg.5ch.net/test/read.cgi/software/1322989401/
上
下
前
次
1-
新
通常表示
512バイト分割
レス栞
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
45: 名無しさん@お腹いっぱい。 [sage] 2012/10/15(月) 03:34:24 ID:T0caFfrN0 さすがに適当だったな これだとダブルクォーテーションがあるとそこでちょん切れるぜ で、ちょびっと修正してみた なお、起動するブラウザと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$ = "http://www.google.co.jp/search?hl=ja&q=" 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 --------------------- http://egg.5ch.net/test/read.cgi/software/1322989401/45
メモ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 158 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.006s