1、建立一個Batch檔QRCode.bat，內容為下面這行文字
C:\QREncrypter.exe C:\test.txt > C:\QRCode.txt
 
2、VB6內程式：以Shell呼叫QRCode.bat執行
Dim RetVal
RetVal = Shell("C:QRCode.bat", 1)
 
3、執行該段程式後，再讀取QRCode..txt文字檔內資料即為加密字串

---------------------------------------------------------------------
# test.txt 內的參數說明(!!請注意test.txt最後加解密金鑰後面需要 "增加一個換行" 才可以正確產生77碼QrCode字串)

AA12345678 :InvoiceNumber 發票字軌號碼
1001231 : InvoiceDate 開立年月日 (yyymmdd)
150000  : InvoiceTime 時間(hhmmss)
1234    : RandomNumber 四位隨機碼 (4碼) --四位英數字
1000000 : SalesAmount 銷售額
100     :  TaxAmount 稅額
1000100 : TotalAmount 總計
12345678: BuyerIdentifier 買受人統編 
87654321: RepresentIdentifier 代表店統編
12344321: SellerIdentifier 開立店統編
43211234: BusinessIdentifier 營業人統編
05D4A324ABAF4A570E64E572221E438B : AESKey(加解密金鑰 32碼)