ByteScout QR Code SDK – VBScript and VB6 – Make QR Code With Embedded Image

Home
/
Articles
/
ByteScout QR Code SDK – VBScript and VB6 – Make QR Code With Embedded Image

printable version:
ByteScout-QR-Code-VBScript-and-VB6-Make-QR-Code-With-Embedded-Image.pdf

How to make QR code with embedded image in VBScript and VB6 and ByteScout QR Code

How to make QR code with embedded image in VBScript and VB6

The sample source code below will teach you how to make QR code with embedded image in VBScript and VB6. What is ByteScout QR Code? It is QR Code barcode generator SDK with tunnable quality and features like QR Code embedded logo or images. Supports batch generation and specialized features like encoding of vCard and other structures inside QR Code barcodes. It can help you to make QR code with embedded image in your VBScript and VB6 application.

This rich sample source code in VBScript and VB6 for ByteScout QR Code includes the number of functions and options you should do calling the API to make QR code with embedded image. In order to implement the functionality, you should copy and paste this code for VBScript and VB6 below into your code editor with your app, compile and run your application. This basic programming language sample code for VBScript and VB6 will do the whole work for you to make QR code with embedded image.

Free trial version of ByteScout QR Code is available on our website. Documentation and source code samples are included.

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 QRCode instance
Set barcode = CreateObject("Bytescout.BarCode.QRCode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"

' Set high QR Code error correction level
barcode.QROption_ErrorCorrectionLevel = 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