京东半自动注册机

灰灰 发布于:2014-4-8 9:16 分类:电商相关  有 849 人浏览,获得评论 0 条 标签: 京东刷单 京东帐户批量注册 京东注册机 

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

QQ截图20140408092202.png


  1. 帐户名不可以粘贴,需要手打输入
  2. 设置密码不可以粘贴,需要手打输入
  3. 验证码输入
  4. 同一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


QQ截图20140408093333.png



发表评论: