UWSCで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
使って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

