1
2

原本接收應該為1的圖~!!不過傳輸有改過

不使用ASK碼1個1個傳以後變成了2那張(例如原先的057變成了9)
請問一下我VB程式該怎麼改才能讓2的圖變成1那樣子
我傳輸成是一次送一百筆資料(例如:000 000 [6個數字+1個空格為一筆])

Private Sub sockMain_ConnectionRequest(ByVal requestID As Long)
    If sockMain.State <> sckClosed Then
        sockMain.Close
    End If

    sockMain.Accept requestID

    txtStatus.Text = txtStatus.Text & _
        "Accepted connection from: " & _
        sockMain.RemoteHostIP & vbCrLf
End Sub

Private Sub sockMain_DataArrival(ByVal bytesTotal As Long)

    Dim strData As String
'  Dim strdata As Byte

    sockMain.GetData strData, vbString
    txtStatus.Text = txtStatus.Text & _
        strData & vbCrLf


End Sub