显示验证码的InputBox

hyy514

论坛上有几个对网络提交很有兴趣的狂热分子，我也算是半个吧。
但现在很多网站都是有验证码的，OCR虽然有时可识别部分简单的验证码，但不会是百分百，总有错误的机率。
我的做法是提取验证码后，手工输入。所以想找个能显示图片的InputBOX,本来想偷懒在网上找个源码的，但
GOOGLE了很久竟然没法找到。最后决定自已写一个，所以有了如下：
一个可以将图片字节流绘制到界面的inputBox。会用xmlhttp做登录提交的朋友就知道这个东西的好处。
源码公开，下面附件你可以学习到
HOOK、子类化、绘图
mInputBox .rar (34.6 KB, 下载次数: 422)

2012-9-8 23:37 上传

点击文件名下载附件

-----------------------------------------------------
更新:win7可用 mInputBoxW .rar (35.25 KB, 下载次数: 530)

2012-9-9 09:40 上传

点击文件名下载附件

谢谢liucqa在win7下测试和提醒
-----------------------------------------------------
做了一个应用的小例子,在26楼
2012.9.11

liucqa

hyy514

运行后，打开立即窗口，看看有没有gdi初始化失败？貌似没挂勾成功，
我机器xp+2003+2007都正常

f8b1987

win7+office2010下，完败

liucqa

hyy514 发表于 2012-9-9 00:12
运行后，打开立即窗口，看看有没有gdi初始化失败？貌似没挂勾成功，
我机器xp+2003+2007都正常

我是win7+2007

Err.LastDllError=1428  没有挂上钩子

hyy514

可能win7的系统消息区别，没装win7无法测试

liucqa

Public Function mInputBox(ByRef PictureData() As Byte, Optional ByVal picX As Long = 10, Optional ByVal picY As Long = 10)
    Dim hInst As Long, IThreadId
   
    mPictureData = PictureData
    mPicX = picX
    mPicY = picY
    hInst = Application.Hinstance
    If hHook = 0 Then IThreadId = GetCurrentThreadId
    hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, ByVal hInst, IThreadId)
   
    sCaption = "请输入验证码:"

改一下，好了

liucqa

Public Function mInputBox(ByRef PictureData() As Byte, Optional ByVal picX As Long = 10, Optional ByVal picY As Long = 10)
    Dim hInst As Long, IThreadId
   
    mPictureData = PictureData
    mPicX = picX
    mPicY = picY
    hInst = Application.Hinstance
    If hHook = 0 Then IThreadId = GetCurrentThreadId
    hHook = SetWindowsHookEx(WH_CBT, AddressOf HookProc, ByVal hInst, IThreadId)
   
    sCaption = "请输入验证码:"
    mInputBox = InputBox("", sCaption)
    If hHook <> 0 Then
        UnhookWindowsHookEx hHook
        hHook = 0
    End If
    SetWindowLong hwndInput, GWL_WNDPROC, oldProcInput
    oldProcInput = 0
    hwndInput = 0
    Erase mPictureData
End Function

需要指定线程

liucqa

奇了怪了，我发个代码也进回收站

AVEL

WIN7+2010失败了
期待楼主更新啊。