使用按键精灵自动注册网站账号

Function www_reg() '注册
url_reg = "http://xxx.xxx.xxx.xxx/user.php?mod=do&act=register&fromto=App" '后台注册地址
form_user = Register.Ipt_name.Text '用户名
form_passwd = Register.Ipt_pswd.Text '用户密码
form_email = Register.Ipt_email.Text '电子邮箱
form_refer = Register.Ipt_refer.Text '推荐人信息
form_SN = Plugin.Sys.GetHDDSN '硬盘序列号

Set ObjWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
'进行用户注册数据发送
Dim reg_data '定义用户登录数据
Dim html_bit '定义登录页面返回字节集

reg_data = "user_name=" & form_user & "&user_pw=" & form_passwd & "&user_email=" & form_email & "&user_refer=" & form_refer & "&user_sn=" & form_SN & "&reg_type=email" &"&pesubmit="
With ObjWinHttp
.SetTimeouts 0,0,0,0
.Open "POST", url_reg, False
.SetRequestHeader "Content-Type","application/x-www-form-urlencoded; charset=UTF-8"
.SetRequestHeader "Content-Length", Len(reg_data)  '提交数据长度
.Send reg_data '数据提交
html_bit = .ResponseText
End With
'TracePrint html_bit

Set ObjWinHttp = Nothing

If Instr(html_bit, "true") > 0 Then '验证返回数据，查看是否注册成功
MessageBox "注册成功。"
Delay 100
Register.Close