Link Search Menu Expand Document

Encode Unicode Value to QR Code - VBScript and VB6

QR Code SDK sample in VBScript and VB6 demonstrating ‘Encode Unicode Value to QR Code’

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 = "�e,g"



' 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


Download Source Code (.zip)

Return to the previous page Explore QR Code SDK


Copyright © 2016 - 2021 ByteScout