Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Monochrome Bitmap | VBScript
MonochromeBitmap.vbs:
VB
Set bc = CreateObject("Bytescout.BarCode.Barcode") ' set barcode type (symbology) bc.Symbology = 16 ' 16 = QR Code ' set monochrome output bc.ProduceMonochromeImages = True ' set barcode value to encode bc.Value = "012345" ' save image to file bc.SaveImage "result.bmp" Set bc = Nothing ' Open the output file in default app Set shell = CreateObject("WScript.Shell") shell.Run "result.bmp", 1, false Set shell = Nothing