yes form is visible.
in form1:
VB Code:
Private Sub DoRefresh() WebBrowser1.Navigate("http://www.delirious.co.uk") End Sub Public Sub CallDoRefreshViaMethodInvoker() Me.Invoke(New MethodInvoker(AddressOf DoRefresh)) End Sub
in clsServer class:
VB Code:
Private Sub AcceptClient() Dim pendingClient As TcpClient Dim nameOfClient As String Dim IPofClient As String Dim refreshbrow As String pendingClient = Listener.AcceptTcpClient() reader = New System.IO.StreamReader(pendingClient.GetStream) nameOfClient = reader.ReadLine() IPofClient = reader.ReadLine() refreshbrow = reader.ReadLine() Clients.Add(pendingClient, nameOfClient) My.Computer.FileSystem.WriteAllText("C:\displog.txt", _ Date.Now + " ID:" + nameOfClient + " IP:" + IPofClient + " - Connected" + vbCrLf, True) Clients.Clear() Form1.CallDoRefreshViaMethodInvoker() End Sub
thanks




Reply With Quote