乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 198|回复: 7

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

[复制链接]

5

主题

28

帖子

5

银币

初来乍到

Rank: 1

铜币
48
发表于 2020-9-30 12:26:00 | 显示全部楼层 |阅读模式
网上找来的VB程序,跟据输入的字符自动生成二维码,不是调用DLL而是直接计算生成的每一个像素。
很想改编成托管程骗子的一部分,由于水平有限没能成功。
那个大神能改编成VS.net,能方便大家集成到自已开发的软件中。


jscj2rdmsqd.jpg

jscj2rdmsqd.jpg

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

0

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
3
发表于 2020-10-17 02:14:00 | 显示全部楼层
,无法加载。。
回复

使用道具 举报

37

主题

267

帖子

15

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
407
发表于 2020-11-12 11:38:00 | 显示全部楼层
有大佬改成纯lisp吗
回复

使用道具 举报

2

主题

18

帖子

6

银币

初来乍到

Rank: 1

铜币
25
发表于 2020-12-12 08:51:00 | 显示全部楼层
是什么软件的vba?
回复

使用道具 举报

0

主题

3

帖子

2

银币

初来乍到

Rank: 1

铜币
3
发表于 2020-12-26 22:38:00 | 显示全部楼层

大神,就等你来....
回复

使用道具 举报

1

主题

8

帖子

2

银币

初来乍到

Rank: 1

铜币
12
发表于 2021-1-11 09:54:00 | 显示全部楼层
下载了,CAD加载不了,提示“文件格式错误”
回复

使用道具 举报

13

主题

42

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
94
发表于 2021-6-1 16:16:00 | 显示全部楼层
下载一个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;
        }
回复

使用道具 举报

3

主题

16

帖子

8

银币

初来乍到

Rank: 1

铜币
28
发表于 2021-11-30 13:40:00 | 显示全部楼层
学习一下,做个二维码看看
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-12 22:29 , Processed in 0.868091 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表