QRCodeWithImage.vbs
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ' Create and activate barcode generator instance Set barcode = CreateObject( "Bytescout.BarCode.Barcode" ) barcode.RegistrationName = "demo" barcode.RegistrationKey = "demo" ' Set barcode type barcode.Symbology = 16 ' 16 = QRCode symbology ' Set high QR Code error correction level barcode.Options.QRErrorCorrectionLevel = 3 ' 3 = QRErrorCorrectionLevel.High ' Set barcode value barcode.Value = "1234567890 abcdefghijklmnopqrstuvwxyz 1234567890 abcdefghijklmnopqrstuvwxyz" ' Add decoration image and scale it to 15% of the barcode square barcode.AddDecorationImage ".\logo.png" , 15 barcode.SaveImage "result.png" ' Open the output file in default app Set shell = CreateObject( "WScript.Shell" ) shell.Run "result.png" , 1, false Set shell = Nothing Set barcode = Nothing |
Click here to get your Free Trial version of the SDK
also available as: