ウィキペディアで検索してみる | Codetter（こーどったー）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include "hspinet.as"
#include "encode.as"
src = "ウィキペディア"
dest = ""
urlWd = ""
urlWp = "http://ja.wikipedia.org/wiki/"
input src, ginfo_winx
button "検索", *kensaku
stop
;   検索を実行
*kensaku
    sjis2utf8n dest, src
    urlencode urlWd, dest
    mes urlWp + urlWd
    exec urlWp + urlWd, 16
    stop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX