過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      10
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼選択検索(vbs)  YAma(作成Macyu氏) 02/8/1(木) 9:50

　───────────────────────────────────────
　■題名 ： 選択検索(vbs)
　■名前 ： YAma(作成Macyu氏)
　■日付 ： 02/8/1(木) 9:50
　-------------------------------------------------------------------------
   
'検索;選択検索

'

'入力されたキーワードで、検索エンジンをチェックボックスで選択して自動検索する

'　　　　　　　 By Macyu

'http://members.tripod.co.jp/archangel_seraphy/で公開されている「SeraphyScriptTools」が必要です。



dim obj



　　set obj = CreateObject("SeraphyScriptTools.Instance")

　　Set BugWeb = CreateObject("BugWeb.BugBrowserAPI")



　　If(BugWeb.Version < 81) Then

　　　　BugWeb.ShowMessage("BugBrowser v0.81以上で動作します。")

　　Else

　　　　'---------------------------------------

　　　　' コントロールを管理するオブジェクト用

　　　　dim edt

　　　　dim google,infoseek,lycos,goo,altavista,yahoo,excite

　　　　dim cmd1

　　　　Dim BugWeb

　　　　'---------------------------------------

　　　　' 初期設定とメイン処理

　　　　dim retcode

　　　　wscript.ConnectObject obj.mainframe, "event_"

　　　　with obj.mainframe

　　　　　　.backcolor = "&H999999"

　　　　　　.SetPlacement ,,,350



　　　　　　with .form

　　　　　　　　.label ""

　　　　　　　　.label "検索文字列"

　　　　　　　　set edt = .edit("")

　　　　　　　　.controlbreak

　　　　　　　　.label ""

　　　　　　　　.label "検索エンジン選択"

　　　　　　　　.ControlBreak

　　　　　　　　set google = .checkbox("Google")

　　　　　　　　set infoseek = .checkbox("infoseek")

　　　　　　　　set lycos = .checkbox("Lycos")

　　　　　　　　set goo = .checkbox("goo")

　　　　　　　　set altavista = .checkbox("altavista")

　　　　　　　　set yahoo = .checkbox("Yahoo!")

　　　　　　　　set excite = .checkbox("excite")

　　　　　　　　.controlbreak

　　　　　　　　.controlpad ,10

　　　　　　　　set cmd1 = .button("検索",10)

　　　　　　　　.ControlPad 10

　　　　　　　　.button("キャンセル",6).SetID(1)

　　　　　　end with



　　　　　　.open "検索エンジンを選んで検索"

　　　　　　retcode = .domodal

　　　　end with



　　　　wscript.disconnectobject obj.mainframe

　　End If



　　Set BugWeb = Nothing



'---------------------

' ハンドラ

sub event_OnCommand

　　select case obj.mainframe.event.parameter

　　case cmd1.id call search

　　end select

end sub



'---------------------

' 表示サブルーチン

sub search

dim keyword

　　keyword = edt.text

　　If google.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.google.com/search?q=" & keyword & "&hl=ja&lr=")

　　End If



　　If infoseek.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.infoseek.co.jp/Titles?qt=" & keyword & "&lk=noframes&svx=10&col=JW&qp=0&nh=10")

　　End If



　　If lycos.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.lycos.co.jp/cgi-bin/pursuit?cat=jp&query=" & keyword)

　　End If



　　If goo.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.goo.ne.jp/default.asp?MT=" & keyword & "&WTS=ntt&SM=MC&DE=2&DC=10&_v=2")

　　End If



　　If altavista.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.altavista.com/cgi-bin/query?q=" & keyword & "&pg=q&enc=sjis&sc=on&kl=XX&stype=stext")

　　End If



　　If yahoo.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://search.yahoo.co.jp/bin/search?p=" & keyWord )

　　End If



　　If excite.checkstate=1 Then

　　　　BugWeb.NavigateNew("http://www.excite.co.jp/search.gw?s=" & keyWord & "&c=web&lk=excite_jp&lang=jp&target=combined")

　　End If

end sub


				  
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ      10