HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0730
MameshibaGoogleやYahoo!の検索候補をHSP上で表示させることは可能ですか?4未解決


Mameshiba

リンク

2014/7/30(Wed) 21:08:16|NO.63211

GoogleやYahoo!など、検索するときに入力ボックスの真下に何個か検索候補(キーワード候補)がでてきますよね?
それをHSPで表示させることは可能ですか?

例えば、HSP上の入力ボックスに「あ」と入力すると、Googleでの検索候補を取得させて表示させるみたいなことは可能ですか?



この記事に返信する


ヒラギノ

リンク

2014/7/30(Wed) 21:56:40|NO.63213

こうです。


#include "hspinet.as" keyword = "あ" netinit if stat : dialog "ネット接続できません。" : end ; URLを指定 neturl "http://www.google.co.jp/" ; GET形式でCGIにパラメーターを渡す netrequest_get "search?q="+keyword+"&ie=Shift_JIS" *main ; 結果待ちのためのループ netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "ERROR "+estr stop *comp ; 完了 mes "DOWNLOAD 完了" netgetv buf mesbox buf,640,400,1 stop

http://hsp.tv/play/pforum.php?mode=pastwch&num=43810



87

リンク

2014/8/4(Mon) 05:46:29|NO.63375

検索候補はGoogleの場合、Google Suggest APIを使うと取得できます。
上のソースを改造してみました。


#include "hspinet.as" keyword = "あ" netinit if stat : dialog "ネット接続できません。" : end ; URLを指定 neturl "http://www.google.com/complete/" ; GET形式でCGIにパラメーターを渡す netrequest_get "search?hl=ja&output=toolbar&q="+keyword *main ; 結果待ちのためのループ netexec res if res > 0 : goto *comp if res < 0 : goto *bad await 50 goto *main *bad ; エラー neterror estr mes "ERROR "+estr stop *comp ; 完了 mes "DOWNLOAD 完了" netgetv buf mesbox buf,640,200,1 sdim result, 256 //取得したXMLからデータを抽出 axobj oXMLDoc, "Msxml2.DOMDocument", 0, 0 oXMLDoc("async") = 0 oXMLDoc->"setProperty" "SelectionLanguage", "XPath" oXMLDoc->"loadXML" buf oRoot = oXMLDoc("documentElement") comres oSuggest //すべてのsuggestion要素を取得 oRoot->"selectNodes" "/toplevel/CompleteSuggestion/suggestion" repeat oSuggest("length") //取得した要素の1つを取り出す oItem = oSuggest("item",cnt) //取り出した要素のdata属性を取得 oAttr = oItem("attributes") oData = oAttr("getNamedItem", "data") result += oData("nodeValue") +"\n" loop mes result stop



Satio Soft

リンク

2014/8/4(Mon) 08:31:23|NO.63376

これならどうですか?


//Search mes "検索する文字列は?" kensaku="" input kensaku,120,20 button "Search",*google stop *google cls axobj ie,"Shell.Explorer", 640,470 ie ->"Navigate" "http://www.google.co.jp/?q="+kensaku stop



Satio Soft

リンク

2014/8/4(Mon) 08:40:04|NO.63380

訂正です。正しくは

"http://www.google.co.jp/search?q="+kensaku
でした。



ONION software Copyright 1997-2021(c) All rights reserved.