ByteScout QR Code SDK – VBScript and VB6 – Unicode Value

ByteScout QR Code SDK – VBScript and VB6 – Unicode Value

UnicodeValue.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"

' Set the character encoding to UTF-16
barcode.SetCharacterEncoding "utf-16"

' Set Unicode barcode value
barcode.Value = "??"

' Show barcode caption (optional)
barcode.DrawCaption = True

' 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

  Click here to get your Free Trial version of the SDK