做网络营销不管是pc终端还是手机终端,腾讯QQ各种营销总是离不开我们。因为大家都知道腾信用户群体多,用它做营销肯定不错,但是时间久了,肯定广告泛滥,所以腾讯监管力度加大,导致QQ封号等等。所以我们手里需要大量QQ,不管是现在用,还是为以后做好准备是很有必要的,今天跟大家爱带来是利用按键精灵批量注册QQ号。
#p#
#p#
把以下打码直接复制到按键精灵,按F10进行调试。
Delay 1000
Call Plugin.Web.Bind("wqm.exe")
//<>===================================================打开网页免费申请
Call Plugin.Web.Tips("打开网页免费申请网页")
Call Plugin.Web.Go("http://zc.qq.com/chs/index.html")
Call Plugin.Web.SetSize(913,850)
Delay 1000
//<>===================================================输入名字
Call Plugin.Web.LeftClick(450,160)
Delay 500
Call Plugin.Web.HtmlInput("懒人模板", "id:nick")
//<>===================================================输入密码
Call Plugin.Web.LeftClick(450,215)
Delay 500
Call Plugin.Web.Tips("输入密码,默认密码:a111111")
Call Plugin.Web.KeyPress(65)
For 6
Call Plugin.Web.KeyPress(49)
Next
Delay 500
//<>===================================================确认密码
Call Plugin.Web.LeftClick(450,265)
Delay 500
Call Plugin.Web.KeyPress(65)
For 6
Call Plugin.Web.KeyPress(49)
Next
Delay 500
//<>===================================================输入生日-年
Call Plugin.Web.Tips("输入生日")
Delay 500
Call Plugin.Web.LeftClick(515,350)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
//<>===================================================输入生日-月
Call Plugin.Web.LeftClick(610,350)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
//<>===================================================输入生日-日
Call Plugin.Web.LeftClick(670,350)
Delay 500
For 3
Call Plugin.Web.KeyPress(40)
Next
Delay 500
//<>==================================================输入验证码
Call Plugin.Web.LeftClick(480,445)
Call Plugin.Web.Tips("等待输入验证码,结束按回车键")
Delay 500
Rem 等待
key=WaitKey()
//<>===================================================按回车键即可提交申请
If key=13 Then
Goto 离开
End If
Goto 等待
Rem 离开
//<>===================================================确定并同意以下条款
Call Plugin.Web.Tips("注册提交")
Call Plugin.web.HtmlClick("id:submit")
Delay 500
EndScript
Sub OnScriptExit()
Call Plugin.Web.Tips("脚本停止运行")
End Sub