visual basic sockets: how to send msg and how to receive msg

[zip10021nyc]

hi -

i can code some basic VB applications. but i am not a professional VB prograamer. i am in desperately need to know, in VB, how to receive data from socket and how to send data to socket. this is a constantly running and checking socket in real time. if there are data in socket, go and get them; otherwise, send some data to socket. all data are ascii text form with linefeeds it it.

can someone please help me and give me some simple examples????

thank YOU!!!

G in nyc

[demon.KILER]

hi zip10021nyc

I was working on that form yesterday but i didnot made it work I was doing that in vb.net [2005] ....


all i kbnow until now is we need to two app one server and one client ...

This what i did until now [server]


Option Strict Off
Imports System.Threading
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
Dim portno As Integer = 1000
Dim client As New Hashtable()
Dim hear As TcpListener









Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "server"
Dim value As Boolean

value = Control.CheckForIllegalCrossThreadCalls

Control.CheckForIllegalCrossThreadCalls = False

lisen()
AddHandler Application.ThreadException, AddressOf therading_error
End Sub
Sub therading_error(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
MsgBox(e.Exception.Message)

End Sub
Sub lisen()
hear = New TcpListener(portno)
hear.ExclusiveAddressUse = True
hear.Start()

hear.BeginAcceptTcpClient(AddressOf connection, Nothing)





End Sub
Sub connection(ByVal ar As System.IAsyncResult)
If ar.IsCompleted Then
TextBox2.Text &= "Connction allowed" & vbCrLf
hear.BeginAcceptTcpClient(AddressOf connection, Nothing)
End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


End Sub
End Class






and this is for client


Imports System.Net.Sockets
Public Class Form1
Const portno As Integer = 1000
Dim listner As TcpClient
Dim CheckForIllegalCrossThreadCalls() As Boolean

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Text = "client"
Dim value As Boolean

value = Control.CheckForIllegalCrossThreadCalls

Control.CheckForIllegalCrossThreadCalls = False
listen()
AddHandler Application.ThreadException, AddressOf therading_error
End Sub
Sub therading_error(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
MsgBox(e.Exception.Message)

End Sub


Function listen()
listner = New TcpClient("localhost", portno)

If listner.Connected Then

RichTextBox1.Text = "connected " & vbCrLf
ElseIf listner.Connected = False Then
listner.Connect("localhost", portno)
listner.SendBufferSize = 2
Else
MsgBox("canot ")
End If

Dim write As New System.IO.StreamWriter(listner.GetStream)
write.AutoFlush = True
write.Write("CHAT|hi")




End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim byt(255) As Byte
listner.GetStream.BeginWrite(byt, 0, 256, AddressOf Write, "hi")
End Sub
Sub Write(ByVal ar As IAsyncResult)
If ar.IsCompleted Then
RichTextBox1.Text &= "writecomple " & vbCrLf
End If
End Sub

End Class

[demon.KILER]

if I devolp this I will tell u else if u did pls tell me