These sample source codes given below will show you how to handle a complex task, for example, batch barcode generation with barcode sdk in VBScript. ByteScout Premium Suite helps with batch barcode generation with barcode 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.
VBScript code snippet like this for ByteScout Premium Suite works best when you need to quickly implement batch barcode generation with barcode sdk in your VBScript application. If you want to implement this functionality, you should copy and paste code below into your app using code editor. Then compile and run your application. Updated and detailed documentation and tutorials are available along with installed ByteScout Premium Suite if you’d like to learn more about the topic and the details of the API.
Visit our website to get a free trial version of ByteScout Premium Suite. Free trial contains many of source code samples to help you with your VBScript project.
' HOW TO USE: save this file as "GenerateMultipleBarcodes.vbs' ' change parameters below to your parameters required ' the script wlil generate barcodes into the same folder ' output images are named using encoded value, for example: 100.png represents barcode with encoded value "100" ' TO RUN: install BarCode SDK and in Windows Explorer double-click on "MultipleBarcodes.vbs" ' BEGIN OF BARCODE BATCH GENERATION PARAMETERS BarCodeType = 16 ' 16 = qr code, for full list of available barcode types see this link: https://bytescout.com/files/help/BytescoutBarCodeSDK/source/html/T_Bytescout_BarCode_SymbologyType.htm StartValue = 1 ' starting value StepValue = 2 ' incrementing step for each new barcode NumberOfBarcodes = 100 ' number of barcodes to generate BarCodeSDKLicenseName = "demo" BarCodeSDKLicenseSerial = "demo" ' END OF BARCODE BATCH GENERATION PARAMETERS ' do not change below this line ' initialize barcode library Set bc = CreateObject("Bytescout.BarCode.Barcode") bc.RegistrationName = BarCodeSDKLicenseName bc.RegistrationKey = BarCodeSDKLicenseSerial ' set barcode type to generate bc.Symbology = BarCodeType ' now make list of barcodes For i = StartValue to (StartValue + NumberOfBarcodes)*StepValue Step StepValue bc.Value = CStr(i) bc.SaveImage CStr(i) & ".png" Next j = (StartValue + NumberOfBarcodes)*StepValue Msgbox "Done: saved " & NumberOfBarcodes & " barcodes in PNG format with values starting from " & CStr(StartValue) & " to " & CStr(j) & " (including) with step by " & CStr(StepValue) ' deinitialize barcode sdk Set bc = Nothing