ByteScout Premium Suite – VBScript – Qr code barcode with image inside with barcode sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Qr code barcode with image inside with barcode sdk

printable version:
ByteScout-Premium-Suite-VBScript-Qr-code-barcode-with-image-inside-with-barcode-sdk.pdf

qr code barcode with image inside with barcode sdk in VBScript using ByteScout Premium Suite

Build qr code barcode with image inside with barcode sdk in VBScript

Step-by-step instructions on how to do qr code barcode with image inside with barcode sdk in VBScript

The example source codes on this page will display you how to make qr code barcode with image inside with barcode sdk in VBScript. ByteScout Premium Suite was made to help with qr code barcode with image inside with barcode sdk in VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.

Want to speed up the application development? Then this VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Premium Suite. If you want to know how it works, then this VBScript sample code should be copied and pasted into your application’s code editor. Then just compile and run it. Want to see how it works with your data then code testing will allow the function to be tested and work properly.

ByteScout Premium Suite free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

QRCodeWithImage.vbs

      ' 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