ByteScout QR Code SDK – VBScript and VB6 – Create Simple QR Code Barcode

Home
/
Articles
/
ByteScout QR Code SDK – VBScript and VB6 – Create Simple QR Code Barcode

printable version:
ByteScout-QR-Code-VBScript-and-VB6-Create-Simple-QR-Code-Barcode.pdf

How to create simple QR code barcode in VBScript and VB6 using ByteScout QR Code

How to code in VBScript and VB6 to create simple QR code barcode with this step-by-step tutorial

Learn how to create simple QR code barcode in VBScript and VB6 with this source code sample. What is ByteScout QR Code? It is the SDK for QR Code barcode generation. This SDK provides full set of features to control output barcodes quality, encoding, size, features. You may change output zize, set an image to be embedded into QR Code barcode generated. Includes special features to encode contact card, URL, phone and other information into QR Code barcode. Can run in batch barcode generation mode. It can help you to create simple QR code barcode in your VBScript and VB6 application.

Fast application programming interfaces of ByteScout QR Code for VBScript and VB6 plus the instruction and the code below will help you quickly learn how to create simple QR code barcode. Follow the instructions from the scratch to work and copy the VBScript and VB6 code. Enjoy writing a code with ready-to-use sample VBScript and VB6 codes.

You can download free trial version of ByteScout QR Code from our website to see and try many others source code samples for VBScript and VB6.

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

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

GeneralExample.vbs

      ' Create and activate QRCode instance
Set barcode = CreateObject("Bytescout.BarCode.QRCode")
barcode.RegistrationName = "demo"
barcode.RegistrationKey = "demo"

' Set barcode value
barcode.Value = "ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890"

' Uncomment if you don't need margins
'barcode.SetMargins 0, 0, 0, 0
'barcode.DrawQuietZones = False

' Save barcode image to file
barcode.SaveImage("result.png")

' Open the image in default image viewer (for demo purpose)
Set shell = CreateObject("WScript.Shell")
shell.Run "result.png", 1, false
Set shell = Nothing

Set barcode = Nothing