Here you may get thousands pre-made source code samples for simple implementation in your own programming VBScript projects. ByteScout Barcode Suite was created to assist batch barcode generation with barcode sdk in VBScript. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.
Want to speed up the application development? Then this VBScript, code samples for VBScript, developers help to speed up the application development and writing a code when using ByteScout Barcode Suite. To use batch barcode generation with barcode sdk in your VBScript project or application just copy & paste the code and then run your app! VBScript application implementation mostly involves various stages of the software development so even if the functionality works please check it with your data and the production environment.
ByteScout Barcode Suite is available as a free trial. You may get it from our website along with all other source code samples for VBScript applications.
' 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