Create Simple QR Code Barcode - VBScript and VB6
QR Code SDK sample in VBScript and VB6 demonstrating ‘Create Simple QR Code Barcode’
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