一句代码,自动注册!

今天仔细看了一下石头发给我的制作反弹上线原理的文章,他好兄弟陈经韬2年前写的,看到里面讲解黑洞注册域名转向的功能~用一个TidHTTP直接Get就注册成功了!实现这个功能,只需要编写一句代码,比我以前用TClientSocket来post精简10几倍!妈的~爽死我了~都怪自己平时懂的太少,以前写的程序垃圾代码不少,大富翁的高手常说一个好的程序,代码一定要够精练,看来还是要多锻炼才行了!刚刚我练手了一下,也用一句代码写了个Discuz论坛自动注册的程序!写一些不需要验证的灌水程序或自动提交数据的程序,用这招最方便了!程序及源程序下载:blank>http://www.hackdiy.com/code/discuz.rar(我提交的数据包是discuz的,你可以改成动网的)procedureTForm1.Button1Click(Sender:TObject);varS:String;beginS:=idhttp1.Get(PostURL.text+?username=+EdUserName.Text+&password=+EdPassWord.Text+&password2=+EdPassWord.Text+&email=+

EdEMail.Text+&gendernew=1&year=&month=&day=&locationnew=&site=&oicq=&icq=&yahoo=&msn=&bio=&styleidnew=&tppnew=0&pppnew=0&timeformatnew=12&cstatus=&dateformatnew=yyyy-mm-dd&showemail=1&newsletter=1&timeoffsetnew=8&avatar=&sig=&regsubmit=注册);//一句代码ifPos(非常感谢您的注册,s)>1then//判断部分ShowMessage(注册成功!)elseifPos(已经被注册了,S)>1thenShowMessage(该用户名或E-Mail已被注册!)elseShowMessage(已关闭注册,注册失败!);end;