Vb6 - Qr Code In

ReDim qr.matrix(0 To qr.size - 1, 0 To qr.size - 1)

' Download Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", url, False http.send qr code in vb6

' Fill with finder patterns (simplified) ' You would need full QR encoding algorithm here ReDim qr

' Build command strCommand = "java -jar zxing.jar QRCodeWriter -o qrcode.png temp.txt" ReDim qr.matrix(0 To qr.size - 1

Private Function URLEncode(str As String) As String Dim i As Integer Dim result As String Dim ch As String

Private Type QRCodeMatrix size As Integer matrix() As Integer End Type Private Function GenerateSimpleQRCode(data As String) As QRCodeMatrix Dim qr As QRCodeMatrix Dim i As Integer, j As Integer