ByteScout Data Extraction Suite – VBScript – Read barcode from webcam or scanner with barcode reader sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VBScript – Read barcode from webcam or scanner with barcode reader sdk

printable version:
ByteScout-Data-Extraction-Suite-VBScript-Read-barcode-from-webcam-or-scanner-with-barcode-reader-sdk.pdf

How to read barcode from webcam or scanner with barcode reader sdk in VBScript with ByteScout Data Extraction Suite

How to write a robust code in VBScript to read barcode from webcam or scanner with barcode reader sdk with this step-by-step tutorial

The sample source code below will teach you how to read barcode from webcam or scanner with barcode reader sdk in VBScript. Want to read barcode from webcam or scanner with barcode reader sdk in your VBScript app? ByteScout Data Extraction Suite is designed for it. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK.

The following code snippet for ByteScout Data Extraction Suite works best when you need to quickly read barcode from webcam or scanner with barcode reader sdk in your VBScript application. This VBScript sample code is all you need for your app. Just copy and paste the code, add references (if needs to) and you are all set! Want to see how it works with your data then code testing will allow the function to be tested and work properly.

All these programming tutorials along with source code samples and ByteScout free trial version are available for download from 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)

AcquireImagesFromWebCam.vbs

      Set wia = CreateObject("Bytescout.BarCodeReader.WIAImageScanner")

wia.OutputFileNameTemplate = "BarCodeReader-scanned"
wia.OutputFolder = "." ' set output folder to current folder
wia.OutputImageFormat = 1 ' = WiaImageFormatType.PNG
wia.ImageQuality = 131072 ' = 0x00020000 = WiaImageBias.MaximizeQuality
wia.ImageIntent = 0 ' = WiaImageIntent.UnspecifiedIntent
wia.ShowDeviceSelectionDialog = True

If wia.Acquire() Then ' acquire images from device
	
	outputFiles = wia.OutputFilesCOM ' get names of acquire image files
	Msgbox outputFiles(0) ' display first file name 
	
End If

Set wia = Nothing