Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' Dim data1 = Encoding.UTF8.GetBytes("{'command': 'summary'}")
sendCommand("summary")
End Sub
Private Sub sendCommand(ByVal command As String)
Try
Dim clientSocket As New System.Net.Sockets.TcpClient()
clientSocket.Connect("192.168.1.72", 4028)
Dim serverStream As NetworkStream = clientSocket.GetStream()
Dim outStream As Byte() = System.Text.Encoding.ASCII.GetBytes(command)
serverStream.Write(outStream, 0, outStream.Length)
serverStream.Flush()
Dim inStream As Byte() = New Byte(65536) {}
serverStream.Read(inStream, 0, CInt(clientSocket.ReceiveBufferSize))
Dim returnData As String = System.Text.Encoding.ASCII.GetString(inStream)
' MsgBox(returnData)
TextBox1.Text = (returnData)
' Debug.Print(returnData)
clientSocket.Close()
Catch exc As Exception
End Try
End Sub