dbpediaの研究 その31

#概要

dbpediaが難解なので、手出してみる。
vbsで、取得してみた。

#環境

windows7 64bit

#サンプルコード

Dim http
Dim url
Dim data
Set http = CreateObject("WinHttp.WinHttpRequest.5.1")
url = "http://ja.dbpedia.org/sparql"
data = "query=SELECT+DISTINCT+*+WHERE+%7B+dbpedia-ja%3A%E3%83%87%E3%83%BB%E3%83%88%E3%83%9E%E3%82%BD+dbpedia-owl%3Aabstract+%3Fabstract+.%7D"
With http
	.Open "POST", url, False
	.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
	.SetRequestHeader "Content-length", "132"
	.Send data
	msgbox .ResponseText
End With

以上。