08/09/19 11:54:42 yafsqYfB
>>747
選択されている単語でWebを検索 Ctrl+Shift+F
749:名無し~3.EXE
08/09/19 12:37:36 F3zLB1mq
>>748
マウスだけでやりたい
キーボ使わないとできないの？
750:名無し~3.EXE
08/09/19 12:55:07 RK6rFmJv
ツールバーにボタン作ればいいだろ。
世界最速とか謳ってるせいでαテストしている自覚が無いやつが多すぎる
751:名無し~3.EXE
08/09/19 13:03:28 F3zLB1mq
ツールバーにボタン？
右クリックメニューには検索項目を追加できないの？
752:名無し~3.EXE
08/09/19 13:31:18 5OiClJyk
「選択されている単語でWeb検索」をマウスジェスチャに登録する
或いは、
URLﾘﾝｸ(homepage3.nifty.com)
753:名無し~3.EXE
08/09/19 13:43:55 5OiClJyk
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=Shift_JIS">
<title>選択語のGoogle検索</title>
<script language="VBScript" type="text/vbscript">
<!--
Dim luna,sdocument,seleRng,seleword
Dim dcid,newTabID
Set luna = CreateObject("Lunascape2.LunascapeAPI")
dcid = luna.GetDocumentID(luna.ActiveIndex)
Set sdocument= external.menuArguments.document
Set seleRng = sdocument.selection.createRange()
seleword = Trim(seleRng.text)
luna.SearchBarString = seleword
newTabID = luna.NewWindow("URLﾘﾝｸ(www.google.com)" &_
"hl=ja&lr=lang_ja&q=" &_
seleword,true)
Dim doc
On Error Resume Next
Set doc = luna.GetDocumentObject(luna.GetDocumentID(newTabID))
Do While Err.Number <> 0
Set doc = Nothing
Set doc = luna.GetDocumentObject(luna.GetDocumentID(newTabID))
Loop
doc.focus
-->
</script>
</head>
</html>
754:名無し~3.EXE
08/09/19 13:45:26 5OiClJyk
上のが実際に今使っているスクリプト。
これを IE MenuExt と言うフリーソフトを使って登録した。
755:名無し~3.EXE
08/09/19 13:48:48 5OiClJyk
<html>
<head>
<meta http-equiv="Content-Type"content="text/html; charset=Shift_JIS">
<title>選択語の辞書検索</title>
<script language="VBScript" type="text/vbscript">
<!--
Dim luna,sdocument,seleRng,seleword
Dim dcid,newTabID
Set luna = CreateObject("Lunascape2.LunascapeAPI")
dcid = luna.GetDocumentID(luna.ActiveIndex)
Set sdocument= external.menuArguments.document
Set seleRng = sdocument.selection.createRange()
seleword = Trim(seleRng.text)
luna.SearchBarString = seleword
Dim oSC, oJS
Set oSC = CreateObject("ScriptControl")
oSC.Language = "JavaScript"
Set oJS = oSC.CodeObject
seleword = oJS.encodeURI(seleword)
newTabID = luna.NewWindow("URLﾘﾝｸ(dic.yahoo.co.jp)" &_
seleword,true)
Dim doc
On Error Resume Next
Set doc = luna.GetDocumentObject(luna.GetDocumentID(newTabID))
Do While Err.Number <> 0
Set doc = Nothing
Set doc = luna.GetDocumentObject(luna.GetDocumentID(newTabID))
Loop
doc.focus
-->
</script>
</head></html>
756:名無し~3.EXE
08/09/19 13:50:42 5OiClJyk
因みに、Yahooの辞書検索（標準）が家では具合が悪いので、
上のスクリプトでURLエンコードして使ってる。
757:名無し~3.EXE
08/09/19 14:04:48 F3zLB1mq
うへえ大変そうだなあ
とりあえずさんきゅ
758:名無し~3.EXE
08/09/19 14:17:39 5OiClJyk
それなら、Googleツールバーを入れた時に、勝手に右クリックに
登録されるのを使うとか？
759:名無し~3.EXE
08/09/19 18:49:11 PAQvPdjn
他のブラウザにするのが一番速い
760:名無し~3.EXE
08/09/19 19:27:00 m7TkJpdT
文字ドラッグして検索に放り込むと検索する。
コンテキなら別のそーいうきのう追加できるの入れるべし。
探せばある。
>他のブラウザにするのが一番速い
センブラウンヌンって書いてるから他所から同様の無いか聞いているのかと。
761:ルナ使い
08/09/19 22:06:17 G38UR2zA
俺は_より有識者
張りついて真っ先にアドバイスするぜｗ
762:名無し~3.EXE
08/09/20 00:31:37 DyM0DUMH
ドラッグできなくなることがあるんですが。どうしたら解決しますか？
763:名無し~3.EXE
08/09/20 01:37:35 EBiTuX5F
公式でもだけど「どこで、どんな風に、何をして」ちゅー情報が無い。
>>762
どこで？
どんな風に操作して？
何をして？
ソフトのバージョンとか色々あるんだけどね。
再現性ないと答えられない、公式で結局聞かれる事なんだよね。
推測で書ける場合があるけどさ、>>761答えて。
764:名無し~3.EXE
08/09/20 03:24:31 MiyTgzMc
ついにルナ５っすか
ルナ６はまだっすか？
765:名無し~3.EXE
08/09/20 07:22:33 0sto8A3u
>>761
「有識者」というより、そのハンドルはなんかアニメに出てくる妖精みたいだの。
766:名無し~3.EXE
08/09/20 16:06:11 x5VvCzHi
このスレってなんでWindows板にあるんすか？
767:名無し~3.EXE
08/09/20 16:16:12 Pz6vQJQl
Windows用のソフトだから。
768:名無し~3.EXE
08/09/20 19:44:37 +iu/N8by
え？LUNA５に皆移ったの？