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

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

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

simple barcode reading with barcode reader sdk in VBScript and ByteScout Premium Suite

Learn to code in VBScript to make simple barcode reading with barcode reader sdk with this simple How-To tutorial

The example source codes on this page will display you how to make simple barcode reading with barcode reader sdk in VBScript. ByteScout Premium Suite was made to help with simple barcode reading 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.

If you want to quickly learn then these fast application programming interfaces of ByteScout Premium Suite for VBScript plus the guideline and the VBScript code below will help you quickly learn simple barcode reading with barcode reader sdk. To use simple barcode reading with barcode reader sdk in your VBScript project or application just copy & paste the code and then run your app! Enjoy writing a code with ready-to-use sample VBScript codes to implement simple barcode reading with barcode reader sdk using ByteScout Premium Suite.

Trial version can be downloaded from our website for free. It contains this and other source code samples for VBScript.

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