如何用易语言制作QQ资料查询器

1、打开易语言，新增加一个WINDOWS窗口。

2、按照以下界面设计，加入一个图片框，七个按钮，一个标签，一个编辑框。

3、加入以下窗口1,2,3/窗口程序集1,2,3,4（注意：窗口1,2添加一个透明标签，窗口3添加一个编辑框；窗口程序集1写入以下给的代码，程序集2,3,4写入子程序：_窗口_创建完毕，也可以双击窗口）。

4、代码如图

5、代码在这里：

————————————————————————————————

.版本 2

.支持库 internet

.支持库 shell

.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮1_被单击

图片框1.图片 ＝ HTTP读文件 (“http://qqshow-user.tencent.com/” ＋ 编辑框1.内容 ＋ “/10/00”)

.子程序 _按钮2_被单击

载入 (窗口1, , 假)

.子程序 _按钮3_被单击

执行 (, “http://” ＋ 编辑框1.内容 ＋ “.qzone.qq.com/”, , )

.子程序 _按钮4_被单击

载入 (窗口2, , 假)

.子程序 _按钮6_被单击

载入 (窗口3, , 假)

.子程序 _按钮5_被单击

执行 (, “tencent://Message/?Uin=200000”, , )

.子程序 _按钮7_被单击

_按钮1_被单击 ()

调试输出 (到文本 (HTTP读文件 (“http://webpresence.qq.com/getonline?Type=1&” ＋ 编辑框1.内容 ＋ “:”)))

.如果 (到文本 (HTTP读文件 (“http://webpresence.qq.com/getonline?Type=1&” ＋ 编辑框1.内容 ＋ “:”)) ＝ “online[0]=1;”)

    _启动窗口.标题 ＝ “QQ:” ＋ 编辑框1.内容 ＋ “ [在线]”

.否则

    _启动窗口.标题 ＝ “QQ:” ＋ 编辑框1.内容 ＋ “ [不在线或隐身]”

————————————————————————————————