ByteScout Barcode Reader SDK - VBScript - Simple barcode reading - ByteScout

ByteScout Barcode Reader SDK – VBScript – Simple barcode reading

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Reader SDK – VBScript – Simple barcode reading

simple barcode reading in VBScript with ByteScout BarCode Reader SDK

How to use ByteScout BarCode Reader SDK for simple barcode reading in VBScript

ByteScout tutorials explain the material for programmers who use VBScript. ByteScout BarCode Reader SDK was made to help with simple barcode reading 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.

VBScript code snippet like this for ByteScout BarCode Reader SDK works best when you need to quickly implement simple barcode reading in your VBScript application. This VBScript sample code should be copied and pasted into your application’s code editor. Then just compile and run it to see how it works. You can use these VBScript sample examples in one or many applications.

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

Try it today: Get 60 Day Free Trial or sign up for Web API

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

Try it today: Get 60 Day Free Trial or sign up for Web API

MORE INFORMATION

Get 60 Day Free Trial or Visit ByteScout BarCode Reader SDK page

Explore ByteScout BarCode Reader SDK documentation

WEB API VERSION

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next