These source code samples are assembled by their programming language and functions they use. ByteScout Premium Suite helps with barcode reading profiles with barcode reader sdk in VBScript. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording.
This rich and prolific sample source code in VBScript for ByteScout Premium Suite contains various functions and options you should do calling the API to implement barcode reading profiles with barcode reader sdk. Just copy and paste this VBScript sample code to your VBScript application’s code editor, add a reference to ByteScout Premium Suite (if you haven’t added yet) and you are ready to go! Use of ByteScout Premium Suite in VBScript is also described in the documentation included along with the product.
On our website you may get trial version of ByteScout Premium Suite for free. Source code samples are included to help you with your VBScript application.
' 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