从java到vb的不可读符号传入套接字

Question

我创建了一个android应用程序，它将java中的socket发送到我的计算机中的visual basic软件。我工作了，但vb的传入套接字是一个问号“？” 。我不知道为什么，但它假设是“你好”。 java代码：

package com.example.clientsocket;

import java.io.ObjectInputStream;
import java.io.ObjectOutputStream;
import java.net.Socket;

import android.os.Bundle;
import android.os.Handler;
import android.os.Message;
import android.app.Activity;
import android.view.Menu;
import android.view.View;
import android.widget.TextView;

public class MainActivity extends Activity {
TextView serverMessage;
Thread m_objThreadClient;
Socket clientSocket;
@Override
public void onCreate(Bundle savedInstanceState) {
    super.onCreate(savedInstanceState);
    setContentView(R.layout.activity_main);
    serverMessage=(TextView)findViewById(R.id.textView1);
}
public void Start(View view)
{
m_objThreadClient=new Thread(new Runnable() {
      public void run()
       {
          try 
           {
             clientSocket= new Socket("192.168.100.3",65535);
             ObjectOutputStream oos = new ObjectOutputStream(clientSocket.getOutputStream());
             oos.writeObject("a");
             Message serverMessage= Message.obtain();
             ObjectInputStream ois =new ObjectInputStream(clientSocket.getInputStream());
             String strMessage = (String)ois.readObject();
            serverMessage.obj=strMessage;
            mHandler.sendMessage(serverMessage); 
            oos.close();
            ois.close();
           } 
           catch (Exception e) 
           {
                // TODO Auto-generated catch block
                e.printStackTrace();
            }

         }
        });

 m_objThreadClient.start();

}
Handler mHandler = new Handler() {
@Override
public void handleMessage(Message msg) {
    messageDisplay(msg.obj.toString());
}
};
public void messageDisplay(String servermessage)
{
serverMessage.setText(""+servermessage);
}

}

视觉基本代码：

Imports System.Net.Sockets
Imports System.Threading
Imports System.IO

Public Class Form1

Dim Listener As New TcpListener(65535)
Dim Client As New TcpClient
Dim Message As String = ""

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Dim ListThread As New Thread(New ThreadStart(AddressOf Listening))
    ListThread.Start()
End Sub

Private Sub Listening()
    Listener.Start()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If TextBox1.Text = "" Or TextBox2.Text = "" Then
        MsgBox("You Can't Leave the IP Adresse or the port number empty! ")
    Else : Client = New TcpClient(TextBox1.Text, TextBox2.Text)
        Dim Writer As New StreamWriter(Client.GetStream())
        Writer.Write(TextBox3.Text)
        Writer.Flush()
    End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)     Handles Timer1.Tick
    If Listener.Pending = True Then
        Message = ""
        Client = Listener.AcceptTcpClient()

        Dim Reader As New StreamReader(Client.GetStream())
        While Reader.Peek > -1
            Message = Message + Convert.ToChar(Reader.Read()).ToString
            Label5.Text = Message
        End While

        MsgBox(Message, MsgBoxStyle.OkOnly, "Incoming Message")
    End If

End Sub

Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    Listener.Stop()
End Sub


End Class

我希望你理解我的问题，谢谢你的帮助。