有vb6识别二维码图片的代码或者控件吗？

[无·法]

网上搜下“vb解析二维码” “vb读取二维码” 找到的几个代码也是假的或者就是其他语言的。

谁有可以解析的代码或者无限制的控件请提供下？ 因为有几万个二维码图片要批量进行识别。

[赵4老师]

WinLIRC Client: This script receives notifications from WinLIRC whenever you press a button on your remote control. It can be used to automate Winamp, Windows Media Player, etc. It's easy to configure. For example, if WinLIRC recognizes a button named "VolUp" on your remote control, create a label named VolUp and beneath it use the command "SoundSet +5" to increase the soundcard's volume by 5%. 1 Hour Software -- by skrommel: This is a large collection of useful scripts, professionally presented with short descriptions and screenshots. Titan's Scripts: This collection includes useful scripts such as: 1) XML Reader/Writer: An easy interface to XML files to retrieve and write values, like JavaScript. 2) Anchor: Keeps GUI controls attached to the right or bottom edge of a resizable GUI window. 3) Functions: A collection of wrapper functions, one for each AutoHotkey command that has an OutputVar. 4) Weather: Displays the current weather in the tray menu or displays forecasts in a rich GUI. Toralf's Scripts: This collection includes useful scripts such as: 1) AHK Window Info: Reveals information on windows, controls, etc. 2) Electronic Program Guide: Browses the TV programs/schedules of your region (supports several countries). 3) Auto-Syntax-Tidy: Changes indentation and case of commands in a script to give it a consistent format/style. Sean's Scripts: Includes useful scripts such as: 1) Network Download/Upload Meter: Displays the network download/upload KB in a small, always-on-top progress bar. 2) StdoutToVar: Redirects the output of a command or application into one of the script's variables. 3) Capture a Screen Rectangle: A callable function that captures a portion of the screen and saves it as a file (BMP/JPG/PNG/GIF/TIF). It can also capture transparent windows and the mouse cursor. 4) Color Zoomer/Picker: Magnifies the area near the cursor, allowing a single pixel to be selected and its color identified. 5) Embed an Internet Explorer Control: Incorporate an MSIE control into a script's GUI window. The control can display a web page or other browser-compatible content. SKAN’s Tips N Tricks: Contains sample code and techniques for achieving useful effects and often-requested capabilities. Scripts & Functions Forum: This is a searchable collection of nearly 1000 ready-to-run scripts and functions. Built and maintained by AutoHotkey users, this archive grows and improves daily. -- Home --

[赵4老师]

我这套狗P理论发出来目的不是让人赞同的；而是用来解决问题的。

[舉杯邀明月]

你的这个连起码的“认可”都得不到，还谈什么“解决问题”！！！ 你那一大篇的废话，最多只能拿来哄那些根本不入流的小白而已。

[一笑拔剑]

引用 18 楼 zhao4zhong1 的回复:

[quote=引用 14 楼 aspower_ 的回复:] 这个VB程序有吧 二维码识别还是蛮简单的 你自己写个不行么? 都T7了 不能和赵四一样不动脑子啊.

用http://www.autohotkey.com不动脑子？[/quote] 智障一样 autokey叫动脑子? 要不我们来试下, 你用aotokey 我用代码来写 同样一万个图片 谁慢谁滚出VB怎么样?

[一笑拔剑]

引用 23 楼 zhao4zhong1 的回复:

我这套狗P理论发出来目的不是让人赞同的；而是用来解决问题的。

你这套狗屁autokey能解决问题 然后别人写代码就不能解决了? 这是程序员编程论坛 不是AUTOKEY使用讨论论坛 不讨论怎么编程,来讨论autokey操作?

[赵4老师]

原来写.ahk脚本不叫编程。

[有虞先生]

引用 23 楼 zhao4zhong1 的回复:

我这套狗P理论发出来目的不是让人赞同的；而是用来解决问题的。

你真解决不了问题。。。别耽误大家时间了！

[weixin_43425174]

我用C++调用zbar 模式生成COM控件DLL，然后VB6调用，解决了问题。整个直接可以用的VB控件一直没有找到。

[无·法]

如果有谁要上面这个dll我可以免费提供。不好意思，破了楼上一些人的财路了。论坛学习交流氛围弄点，不要满手的铜臭味，接项目建议还是到专门的猪八戒之类的网站，能帮助的尽量提供帮助，如果对方愿意报酬答谢倒也是另外一码事。

[无·法]

网友豆子做了一个标准dll，生成速度极快，1秒钟可以解析一百多个二维码。可以用vb直接调用的。

Private Declare Function ScanQRCode Lib "QRCodeLibx.dll" Alias "ScanQRCodeA" (ByVal imgPath As String, ByRef imgResult As Byte) As Long

Private Sub Command1_Click()
    Dim imgBuff() As Byte
    Dim lRet As Long
    Dim strQRContent As String
    '--预先分配足够大的Byte数组--
    ReDim imgBuff(2048)

    '--函数失败返回0,成功返回数组大小--
    lRet = ScanQRCode("c:\qrtest.jpg", imgBuff(0))
    If lRet > 0 Then
        '--重新调整数组大小--
        ReDim Preserve imgBuff(lRet - 1)
        strQRContent = StrConv(imgBuff, vbUnicode)
    End If
    MsgBox strQRContent
End Sub

[PctGL]

我还有这玩意的源码呢…
纯vb代码制作，识别qr码，忘了哪下的，太复杂看不下去

[wujingyi2011]

我有这样的代码

[wujingyi2011]

我有更好的方法

[无·法]

引用 34 楼 wujingyi2011 的回复:

我有更好的方法

快上传分享给广大网友。

[wujingyi2011]

有的啊加我微信吧

[wujingyi2011]

我直接可以读取图片二维码

[无·法]

引用 36 楼 wujingyi2011 的回复:

有的啊加我微信吧

为什么要加微信？论坛交流不好吗

[无·法]

引用 37 楼 wujingyi2011 的回复:

我直接可以读取图片二维码

你有asp直接读取图片二维码的吗？

[wujingyi2011]

vb6 c#的

[wujingyi2011]

都可以要吗0