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

时间:2026-02-14 04:33:08

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

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

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

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

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

4、代码如图

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

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.内容 + “ [不在线或隐身]”

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

© 2026 五度知识库
信息来自网络 所有数据仅供参考
有疑问请联系站长 site.kefu@gmail.com