HelloWorld.vbs
Set bc = CreateObject("Bytescout.BarCode.Barcode") ' set symbology to Code39 bc.Symbology = 1 ' 1 = Code39 symbology type ' set barcode value to encode bc.Value = "012345" bc.AdditionalCaption = "2nd caption" bc.SaveImage "Code39.png" ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "code39.png", 1, false Set shell = Nothing Set bc = Nothing
Click here to get your Free Trial version of the SDK
also available as: