ByteScout Text Recognition SDK – VBScript and VB6 – Screen Text Reader

Home
/
Articles
/
ByteScout Text Recognition SDK – VBScript and VB6 – Screen Text Reader

printable version:
ByteScout-Text-Recognition-SDK-VBScript-and-VB6-Screen-Text-Reader.pdf

screen text reader in VBScript and VB6 with ByteScout Text Recognition SDK

ByteScout Text Recognition SDK: the text recognition SDK to help with extraction of text using OCR from scanned images and documents. Supports English and non-Latin languages, can take PDF as input.

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

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

ScreenTextReader.vbs

      ' Create and activate TextRecognizer object
Set textRecognizer = CreateObject("ByteScout.TextRecognition.TextRecognizer")
textRecognizer.RegistrationName = "demo"
textRecognizer.RegistrationKey = "demo"

outputDocument = "result.txt"

' Create ScreenshotMaker object
Set screenshotMaker = CreateObject("ByteScout.TextRecognition.ScreenshotMaker")
' Set rectangle to take screenshot from
screenshotMaker.SetScreenshotArea 0, 0, 200, 200

' Load screenshot
textRecognizer.LoadDocument_4(screenshotMaker)

' Set the location of OCR language data files
textRecognizer.OCRLanguageDataFolder = "c:\Program Files\ByteScout Text Recognition SDK\ocrdata_best\"

' Set OCR language.
' "eng" for english, "deu" for German, "fra" for French, "spa" for Spanish, etc. - according to files in "ocrdata" folder
' Find more language files at https://github.com/bytescout/ocrdata
textRecognizer.OCRLanguage = "eng" 

' Recognize text from all pages and save it to file
textRecognizer.SaveText(outputDocument)

WScript.Echo "Extracted text saved to " + outputDocument

Set recognizer = Nothing