ByteScout Barcode Suite – VBScript – Simple barcode reading with barcode reader sdk

Home
/
Articles
/
ByteScout Barcode Suite – VBScript – Simple barcode reading with barcode reader sdk

printable version:
ByteScout-Barcode-Suite-VBScript-Simple-barcode-reading-with-barcode-reader-sdk.pdf

simple barcode reading with barcode reader sdk in VBScript using ByteScout Barcode Suite

simple barcode reading with barcode reader sdk in VBScript

An easy to understand guide to learn how to simple barcode reading with barcode reader sdk in VBScript. ByteScout Barcode Suite was made to help with simple barcode reading with barcode reader sdk in VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

If you want to quickly learn then these fast application programming interfaces of ByteScout Barcode Suite for VBScript plus the guideline and the VBScript code below will help you quickly learn simple barcode reading with barcode reader sdk. Just copy and paste this VBScript sample code to your VBScript application’s code editor, add a reference to ByteScout Barcode Suite (if you haven’t added yet) and you are ready to go! Check these VBScript sample code examples to see if they acknowledge to your needs and requirements for the project.

If you want to try other samples for VBScript then free trial version of ByteScout Barcode Suite is available on our website.

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

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

TestBarcodeReading.vbs

      Set bc = CreateObject("Bytescout.BarCodeReader.Reader")

' Limit search to 1D barcodes only (exclude 2D barcodes to speed up the search).
' Change to bc.BarcodeTypesToFind.SetAll() to scan for all supported 1D and 2D barcodes 
' or select specific type, e.g. bc.BarcodeTypesToFind.PDF417 = True
bc.BarcodeTypesToFind.SetAll1D()

bc.ReadFromFile "BarcodePhoto.jpg"

For i = 0 To bc.FoundCount - 1
     Msgbox "Found barcode on page #" & CStr(bc.GetFoundBarcodePage(i)) & " with type " & Cstr(bc.GetFoundBarcodeType(i)) & " and value " & bc.GetFoundBarcodeValue(i) & vbCRLF & " and confidence=" & Cstr(bc.GetFoundBarcodeConfidence(i))
Next

Set bc = Nothing