-- 作者:有点甜
-- 发布时间:2017/10/11 9:17:00
--
这个是微信扫一扫的二维码,你用其余的工具扫描无效的。
修改红色代码的字符。
Dim Bar As New BarCodeBuilder Bar.Symbology = Barpro.Symbology.QRCode bar.Code = "MECARD:N:1;EMAIL:3;ORG:4;TEL:2;ADR:6;NOTE:SKYPE:;TITLE:5;URL:http://www.foxtable.com;" bar.SaveImage("d:\\test.jpg")
|