poly168 发表于 2020-9-30 12:26:23

发一个二维码计算的VBA源码，那个大神能改编成VS.net

本帖最后由 poly168 于 2020-9-30 12:35 编辑

网上找来的VB程序，跟据输入的字符自动生成二维码，不是调用DLL而是直接计算生成的每一个像素。
很想改编成托管程骗子的一部分，由于水平有限没能成功。
那个大神能改编成VS.net，能方便大家集成到自已开发的软件中。





yufr 发表于 2020-10-17 02:14:00

,无法加载。。

tryhi 发表于 2020-11-12 11:38:45

有大佬改成纯lisp吗:lol

caoliu023 发表于 2020-12-12 08:51:25

是什么软件的vba？

yufr 发表于 2020-12-26 22:38:15

tryhi 发表于 2020-11-12 11:38
有大佬改成纯lisp吗

大神，就等你来....

jsnjwang 发表于 2021-1-11 09:54:58

下载了，CAD加载不了，提示“文件格式错误”

piao1887 发表于 2021-6-1 16:16:31

下载一个ThoughtWorks.QRCode的类库 就可以做了
public static string NewQRCodeByThoughtWorks(string imgPath, string codeContent, ImageFormat imgType)
      {
            QRCodeEncoder encoder = new QRCodeEncoder();
            encoder.QRCodeEncodeMode = QRCodeEncoder.ENCODE_MODE.BYTE;//编码方式(注意：BYTE能支持中文，ALPHA_NUMERIC扫描出来的都是数字)
            encoder.QRCodeScale = 4;//大小(值越大生成的二维码图片像素越高)
            encoder.QRCodeVersion = 0;//版本(注意：设置为0主要是防止编码的字符串太长时发生错误)
            encoder.QRCodeErrorCorrect = QRCodeEncoder.ERROR_CORRECTION.M;//错误效验、错误更正(有4个等级)
            encoder.QRCodeBackgroundColor = Color.White;
            encoder.QRCodeForegroundColor = Color.Black;
            Bitmap bcodeBitmap = encoder.Encode(codeContent, System.Text.Encoding.GetEncoding("UTF-8"));
            if (System.IO.File.Exists(imgPath))
            {
                System.IO.File.Delete(imgPath);
            }
            bcodeBitmap.Save(imgPath, imgType);//@"E:\test.png"      ImageFormat.Png
            bcodeBitmap.Dispose();
            return imgPath;
      }

Myday 发表于 2021-11-30 13:40:57

学习一下，做个二维码看看
页: [1]
查看完整版本: 发一个二维码计算的VBA源码，那个大神能改编成VS.net