显示验证码的InputBox

jiu128

呵呵，我的是xp+2003， 没问题，楼主辛苦

f8b1987

这个还联网的呀，断网不是挂了么

kangatang

我这边 xp+excel2003运行正常。
但是有个疑问：
....
Xml.Open "GET", "https://ssl.captcha.qq.com/getimage", False
    Xml.Send
    picAry = Xml.responseBody
    MsgBox mInputBox(picAry) '腾讯的验证码
....

如上代码是获取图片，然后显示在消息框中。

根据我以前的分析，如果这个图片从IE缓存(客户端)读取，那应该就是当前的验证码。
如果从服务器读取，那应该不是实时（同步）的验证码。
大侠是不是这样认为的？
期待大侠的实例{:soso_e163:}

hyy514

kangatang 发表于 2012-9-10 23:35
我这边 xp+excel2003运行正常。
但是有个疑问：
....

想学习，去找个有验证码的网站注册个空帐号，放上来给我，做把它做成个实例。
但不要找参数加密的那种，比如你上次那个哈票那类就算了，我看了下，那东西是用随机密匙几次md5加密的，没有耐心去跟踪

蓝天630902

hyy514 发表于 2012-9-11 01:49
想学习，去找个有验证码的网站注册个空帐号，放上来给我，做把它做成个实例。
但不要找参数加密的那种， ...

http://club.excelhome.net/forum. ... DE2NjY1MTV8OTE3NjI1

hyy514

蓝天630902 发表于 2012-9-11 06:50
http://club.excelhome.net/forum.php?mod=attachment&aid=MTI0MjAyNHxlZjc4ODc2OXwxMzQ3MzE3MzU2fDE2NjY ...

谢谢提供帐号

hyy514

应用示例来了,看到了好东西,却又不知道好在哪里是非常遗憾的.
应用实例 .rar (28.21 KB, 下载次数: 299)

2012-9-11 12:26 上传

点击文件名下载附件

hyy514

kangatang 发表于 2012-9-10 23:35
我这边 xp+excel2003运行正常。
但是有个疑问：
....

IE的验证码图片缓存又从哪里来的呢?同样是浏览器发送一个GET得来的,看我上楼的示例吧.
不过上面的例子对COOKIE和参数都没有加密,相对就非常简单了.不过百分之90的网页都是这样的.
加密的只不过一些数据的有敏感性的网站,比如腾讯\新浪微博等少部分,但是只要有耐心去跟踪参数的加密过程,
同样可以破解,我签名链接中的工具就是登录腾讯群发飘流瓶的

kangatang

hyy514 发表于 2012-9-11 12:46
IE的验证码图片缓存又从哪里来的呢?同样是浏览器发送一个GET得来的,看我上楼的示例吧.
不过上面的例子对 ...

大师启蒙，大恩大德，努力汲取。
这几天有事，没有上网，今天一打开论坛，感受非同小可。

kangatang

经过大师指点，弄了个粗人版，大师的那个钩子一时无法吸收。


Sub try()
    Dim Xml
    Dim picAry() As Byte
    Dim vf As String
    Set Xml = CreateObject("Microsoft.XMLHTTP")
    Xml.Open "GET", "http://www.zhima.cc/member/inc/getcode.asp", False
    Xml.Send
    picAry = Xml.responseBody
    Call WriteBinary(ThisWorkbook.Path & "\verycode.gif", picAry)
    Do Until Dir(ThisWorkbook.Path & "\verycode.gif") <> ""
       DoEvents
    Loop
    ActiveSheet.Cells(2, 2).Select
    Set vCode = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\verycode.gif")
    vCode.ShapeRange.ScaleWidth 3, msoFalse, msoScaleFromTopLeft
    vCode.ShapeRange.ScaleHeight 3, msoFalse, msoScaleFromTopLeft
    ActiveSheet.Cells(2, 1).Select
    vf = InputBox("输入左上角的验证码")
    'ActiveSheet.Shapes(vCode.Name).Delete
    vCode.Delete
    Xml.Open "POST", "http://www.zhima.cc/member/login.asp", False
    Xml.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    Xml.Send "user_id=9375204@163.com&user_password=369852&GetCode=" + vf + "&tourl=&Submit.x=69&Submit.y=20"
    Xml.Open "GET", "http://www.zhima.cc/home.asp", False
    Xml.Send
    pt Xml.ResponseText, 1
    Xml.Open "GET", "http://www.zhima.cc/game/luckynums/", False
    Xml.Send
    pt Xml.ResponseText, 2
    MsgBox "ok"
End Sub
Sub pt(s, n)
    Open ThisWorkbook.Path + "\" & n & ".htm" For Output As #1
        Print #1, s
    Close #1
End Sub

Sub WriteBinary(FileName As String, aBuf As Variant)
  Dim I, bStream
  Set bStream = CreateObject("ADODB.Stream")
  bStream.Type = 1: bStream.Open
  With CreateObject("ADODB.Stream")
    .Type = 2: .Open: .WriteText aBuf
    .Position = 2: .CopyTo bStream: .Close
  End With
  bStream.SaveToFile FileName, 2: bStream.Close
  Set bStream = Nothing
End Sub