Code
Imports System.Net.Sockets
Imports System.IO
Module Module1
Dim tcp As TcpClient
Dim net As NetworkStream
Sub Main()
tcp = New TcpClient
tcp.Connect("", "")
net = tcp.GetStream
tcp.GetStream.BeginRead(New Byte() {}, 0, 0, AddressOf Citaj, Nothing)
Console.ReadLine()
End Sub
Public Function Citaj()
Dim bajt(100) As Byte
net.Read(bajt, 0, bajt.Length)
Dim splitme As String() = Split(System.Text.Encoding.Default.GetString(bajt), "/")
Console.WriteLine(System.Text.Encoding.Default.GetString(bajt))
Select Case splitme(0)
Case "login"
PT("login|username|password")
End Select
tcp.GetStream.BeginRead(New Byte() {}, 0, 0, AddressOf Citaj, Nothing)
End Function
Public Function PT(ByVal podatak)
Dim bajt As Byte() = System.Text.Encoding.Default.GetBytes(podatak)
net.Write(bajt, 0, bajt.Length)
net.Flush()
End Function
End ModuleI have deleted server IP.
I receive data, and when i send data, notihng happens.
Few seconds later, i get 1k empty lines in Console.
