ByteScout QR Code SDK – VBScript and VB6 – Encode Unicode Value to QR Code

Home
/
Articles
/
ByteScout QR Code SDK – VBScript and VB6 – Encode Unicode Value to QR Code

printable version:
ByteScout-QR-Code-VBScript-and-VB6-Encode-Unicode-Value-to-QR-Code.pdf

encode unicode value to QR code in VBScript and VB6 with ByteScout QR Code

How to code encode unicode value to QR code in VBScript and VB6: How-To tutorial

The sample source codes on this page will demonstrate you how to make encode unicode value to QR code in VBScript and VB6. Encode unicode value to QR code in VBScript and VB6 can be implemented with ByteScout QR Code. ByteScout QR Code is QR Code barcode generator SDK with tunnable quality and features like QR Code embedded logo or images. Supports batch generation and specialized features like encoding of vCard and other structures inside QR Code barcodes.

The SDK samples like this one below explain how to quickly make your application do encode unicode value to QR code in VBScript and VB6 with the help of ByteScout QR Code. Follow the instruction from the scratch to work and copy and paste code for VBScript and VB6 into your editor. Enjoy writing a code with ready-to-use sample VBScript and VB6 codes to implement encode unicode value to QR code using ByteScout QR Code.

ByteScout QR Code is available as free trial. You may get it from our website along with all other source code samples for VBScript and VB6 applications.

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

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

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