Android Question The Epson TM-T20II printer,How to receive Printer status?

#Region  Project Attributes
    
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: true
    #IncludeTitle: false
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    'Dim TMT20II As Socket 'Network library
    Dim AStreams As AsyncStreams 'RandomAccessFile library
    
    'Dim print_ok As Boolean
    
    'Dim client As Socket
    Dim client2 As Socket
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private Button1 As Button
    Private Button2 As Button
    Private Button3 As Button
    'Private Button4 As Button       
    
    Private EditText1 As EditText


    Private EditText2 As EditText

    Private Panel1 As Panel
    Private Panel2 As Panel
    Private Panel3 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:


    Activity.LoadLayout("main")
    
    
    
    '調整 主功能頁面畫面
    Panel1.Visible=True
    Panel1.Width=100%x
    Panel1.Left=0
    'Panel1.top= 5
    'Panel1.Height=100%y - Panel_Pdt.Height -50
    
    Panel3.Visible=True
    Panel3.Width=100%x
    Panel3.Left=0
    Panel3.top=  100%y  -Panel3.Height
    'Panel3.Height=100%y - Panel_Pdt.Height -50
        
    
    Panel2.Visible=True
    Panel2.Width=100%x
    Panel2.Left=0
    Panel2.top= Panel1.Height
    Panel2.Height=100%y - Panel1.Height -Panel3.Height
            
    
    
    
    
    
    
    
    EditText1.Text ="192.168.1.100"
    
    
    EditText2.Text =""
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印01" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印02" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印03" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印04" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印05" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印06" & Chr(13) & Chr(10)
    EditText2.Text =    EditText2.Text & "Hello, this is a 測試列印07" & Chr(13) & Chr(10)
    
    
    
    
    
'    Button1.Enabled = False
'    Button2.Enabled = False
'    Button3.Enabled = False


    'TMT20II.Initialize("TMT20II")
    'TMT20II.Connect(EditText1.Text, 9100, 0) '100=Printer address, 9100=Port number (please look up port number)

        
    Log("程式初始化完成~")
End Sub

Sub Activity_Pause(UserClosed As Boolean)
    If UserClosed Then
        Log("closing")
        'AStreams.Close
        'client.Close

    End If
End Sub




Sub Button3_Click
    
    client2.Close
    AStreams.Close
    client2.Initialize("client2")
    client2.Connect(EditText1.Text, 9100, 0)
    
    
    
End Sub

Sub client2_Connected(Connected As Boolean)
    If Connected = True Then
        'ToastMessageShow("Conectado",True)
        AStreams.Initialize(client2.InputStream,client2.OutputStream,"Astreams")
        
        Dim SendMsg As String


        Log("client2_Connected")
        'ToastMessageShow( "列印中...", False)
    
        SendMsg = SendMsg  & Chr(27) & Chr(61) & Chr(1) 'Select EPSON printer
        SendMsg = SendMsg  & Chr(13) & Chr(10)'Line feed
        
        
        AStreams.Write(SendMsg.GetBytes("UTF8"))
    
        SendMsg = SendMsg  & Chr(16) & Chr(4)& "1"        ' DLE EOT 1


        AStreams.Write(SendMsg.GetBytes("UTF8"))
    
    
    
        Dim rcv_bytes As Long
        Dim oqs As Int
        'Dim rcv_msg As String
    
        rcv_bytes = AStreams.StreamReceived
        oqs = AStreams.OutputQueueSize

        If oqs > 0 Then

            ToastMessageShow("Output Queue size: " & oqs, False)

            Log("Output Queue size: " & oqs)
        End If
        If rcv_bytes > 0 Then

            ToastMessageShow("Received bytes: " & rcv_bytes, False)
            
            Log("Received bytes: " & rcv_bytes)


        End If
        
        'Log(BytesToString(rcv_bytes, 0, rcv_bytes.Length, "UTF8"))
    
    
    Else
        ToastMessageShow("Servidor no disponible",True)
    End If
  
End Sub

Sub Astreams_Error
    Log("error")
    'client.Close
    'AStreams.Close
End Sub
Sub Astreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    
    Log(msg )
    
    ToastMessageShow(msg, False)

End Sub
Sub Astreams_ObjectSent (Key As String)
    Log("Object sent: " & Key)
End Sub
Sub AStreams_NewText(text As String)
    'cmd = text.Trim
    Log(text.Trim)
End Sub