ＵＷＳＣでGoogleのページランクを取得する

グーグルのページランクを取得できるAPIを
使ってURLのページランクを表示します。


// GooglePageRankの利用
url = "http://www.trynt.com/google-pagerank-api/v1/?u="

key = INPUT("URLを入れてください。","http://www.yahoo.co.jp/")// 検索文字
xml = GetRXML(url + Encode(Encode(key, CODE_UTF8), CODE_URL))//

wkp = xml.getElementsByTagName("Pagerank")

for i = 0 to wkp.Length-1
msgbox("Pagerank:"+wkp.item[i].text)　　// Title

next


// ResponseXMLの取得
Function GetRXML(url)
　oHttp = CreateOLEObj("MSXML2.XMLHTTP")
　oHttp.Open("GET", url, 0)
　oHttp.Send
　Result = oHttp.responseXML
Fend