vb获取网页验证码不正确，而易语言获取的是正确的解决办法

vb获取网页验证码不正确，而易语言获取的是正确的
https://authcode.jd.com/verify/image?a=0&acid=597676ae-28a0-4123-bfbb-6eec3e820b46&uid=597676ae-28a0-4123-bfbb-6eec3e820b46&srcid=reg&is=3fa073fb0992b66228e444004d2acfa9&yys=1402202716311
这个是京东商城注册的验证码，用vb获取的是4位的验证码，地址参数写的都没错，但是真实的验证码应该是5位，用易语言就能获取到5位的验证码，请问怎么回事呢？
------解决方案--------------------
不要乱说，肯定是5位：

Sub 查看京东5位验证码()

    Dim picAry() As Byte

    Set ms = CreateObject("msscriptcontrol.scriptcontrol")

    ms.Language = "JavaScript"

    With CreateObject("WinHttp.WinHttpRequest.5.1")

        .Open "GET", "https://reg.jd.com/reg/person?ReturnUrl=http%3A//www.jd.com/", False

        .Send

        

        .Open "GET", "https://" & Replace(Split(Split(.Responsetext, "+'//")(1), "'")(0), "amp;", "") & ms.Eval("(new Date).getTime();"), False

        .setRequestHeader "Referer", "https://reg.jd.com/reg/person?ReturnUrl=http%3A//www.jd.com/"

        .Send

        picAry = .ResponseBody

        Open "d:/a.jpg" For Binary As #1

            Put #1, , picAry

        Close #1

        ActiveSheet.Cells(2, 2).Select

        Set vcodeimage = ActiveSheet.Pictures.Insert("d:/a.jpg")

    End With

End Sub