京东半自动注册机

公司计划自己操作刷单的事情，以前是外包的，需要大量的京东帐号，注册帐号这个苦逼的任务交给我去完成。注册了大概百十来个终于顶不住了，效率太低了，且看京东通过哪些方法防止恶意注册。

帐户名不可以粘贴，需要手打输入
设置密码不可以粘贴，需要手打输入
验证码输入
同一ip连续注册大概十个左右会被禁止注册
主要影响注册效率在于第一点和第二点，正常情况下一个帐户名也就是邮箱的长度在15个字符左右，密码的字符我们设置最短的也要6个，验证码需要4个，总共下来注册一个帐号要输入30个字符左右。另外手工输入容易出错尤其是在你注册了几十个帐号之后，出错就更明显，校对更正显示也是比较浪费时间的。

通过多年前学习的vb再加上网上查一些资料，自己试着写了一个半自动的注册机。用户名可以复制粘贴，密码自动输入，一键清除缓存。注册的时候不用在电子表格和注册页面来回切换，大大提高了工作效率。

先看代码吧，代码比较简单，网上也是一大把。

Private Sub Command1_Click()
If WebBrowser1.Document.URL = "http://reg.jd.com/reg/person" Then
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
List1.Clear
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Or UCase(vDoc.All(i).tagName) = "SELECT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Or vTag.Type = "password" Or vTag.Type = "radio" Or vTag.Name = "aihao" Then
List1.AddItem vTag.Name
Select Case vTag.Name
Case "regName"
vTag.Value = Text1.Text
Case "pwd"
vTag.Value = "****"
Case "pwdRepeat"
vTag.Value = "****"
Case "Password"
vTag.Value = "IMGodpass"
Case "authcode"
vTag.Value = Text2.Text

    End Select
End If
End If

Next i
If vTag.Type = "button" Then
WebBrowser1.Document.All("registsubmit").Click
End If
End If
End Sub

Private Sub Command2_Click()
WebBrowser1.Navigate2 "http://reg.jd.com/reg/person"
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 2"
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 16"
Shell "RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 32"

End Sub

Private Sub Form_Load()
WebBrowser1.Navigate2 "http://reg.jd.com/reg/person"
Label1.Caption = "京东注册帐号无法复制邮箱帐号，手打实在痛苦，哥只好自己写个注册小工具了！~！~ "
Command1.Caption = "点击注册-很苦逼有木有"
Text3.Text = "邮箱列表"
End Sub

Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)

End Sub

再来看看界面，请无视这掉渣的UI