ByteScout QR Code SDK – VBScript and VB6 – Create GS1 QR Code

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

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

How to create gs1 QR code in VBScript and VB6 with ByteScout QR Code

How to create gs1 QR code in VBScript and VB6

Learn how to create gs1 QR code in VBScript and VB6 with this source code sample. Want to create gs1 QR code in your VBScript and VB6 app? ByteScout QR Code is designed for it. ByteScout QR Code 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.

VBScript and VB6 code samples for VBScript and VB6 developers help to speed up coding of your application when using ByteScout QR Code. 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. Test VBScript and VB6 sample code examples whether they respond your needs and requirements for the project.

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)

GS1QRCode.vbs

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

' Enable generation of GS1 version of QR Code
barcode.IsGS1 = True

' Set value that is formatted according to GS1 specification
barcode.Value = "(01)07046261398572(17)130331(10)TEST5632(21)19067811811"

' 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