The sample source codes on this page will demonstrate you how to make barcode reading profiles in VBScript. ByteScout BarCode Reader SDK was made to help with barcode reading profiles in VBScript. ByteScout BarCode Reader SDK is the SDK for reading of barcodes from PDF, images and live camera or video. Almost every common type like Code 39, Code 128, GS1, UPC, QR Code, Datamatrix, PDF417 and many others are supported. Supports noisy and defective images and docs. Includes optional documents splitter and merger for pdf and tiff based on found barcodess. Batch mode is supported for superior performance using multiple threads. Decoded values are easily exported to JSON, CSV, XML and to custom format.
Fast application programming interfaces of ByteScout BarCode Reader SDK for VBScript plus the instruction and the VBScript code below will help you quickly learn barcode reading profiles. Follow the instruction from the scratch to work and copy and paste code for VBScript into your editor. Further enhancement of the code will make it more vigorous.
ByteScout BarCode Reader SDK free trial version is available for download from our website. Free trial also includes programming tutorials along with source code samples.
' This example demonstrates the use of profiles. Profiles are set of properties ' allowing to apply them to Reader in any combination quickly. You can use ' predefined profiles or create you own in JSON format like in this example. ' Create Bytescout.PDFExtractor.TextExtractor object Set reader1 = CreateObject("Bytescout.BarCodeReader.Reader") reader1.RegistrationName = "demo" reader1.RegistrationKey = "demo" ' Apply predefined profiles: ' enable Code39; ' enable EAN-13; ' render PDF at 150 DPI resoultion. reader1.Profiles = "code39, ean13, pdf150dpi" ' Decode and show barcodes from sample1.pdf reader1.ReadFromFile "sample1.pdf" For i = 0 To reader1.FoundCount - 1 WScript.Echo "Found type " & reader1.GetFoundBarcodeType(i) & " barcode with value " & reader1.GetFoundBarcodeValue(i) & """" Next Set reader2 = CreateObject("Bytescout.BarCodeReader.Reader") reader2.RegistrationName = "demo" reader2.RegistrationKey = "demo" ' Load and apply custom profiles reader2.LoadProfiles "profiles.json" reader2.Profiles = "negative-distorted-datamatrix" ' Decode and show barcodes from sample2.png reader2.ReadFromFile "sample2.png" For i = 0 To reader2.FoundCount - 1 WScript.Echo "Found type " & reader2.GetFoundBarcodeType(i) & " barcode with value " & reader2.GetFoundBarcodeValue(i) & """" Next