这个是微信扫一扫的二维码，你用其余的工具扫描无效的。
修改红色代码的字符。
Dim Bar As New BarCodeBuilderBar.Symbology = Barpro.Symbology.QRCodebar.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")
加好友 
发短信
Post By：2017/10/11 9:17:00 [显示全部帖子]
