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

poly168

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

yufr

,无法加载。。

tryhi

有大佬改成纯lisp吗

caoliu023

是什么软件的vba？

yufr

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

大神，就等你来....

jsnjwang

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

piao1887

下载一个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

学习一下，做个二维码看看