Lunascape Part18at WINLunascape Part18 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト748:名無し~3.EXE 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検索」をマウスジェスチャに登録する 或いは、 ttp://homepage3.nifty.com/mad-o10yan/tips.htm#tips5 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("http://www.google.com/search?" &_ "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> 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch