.NET (Core and Framework)

gymgym_jim wrote:

Really could do with some help!

Imports System
Imports System.Net.Sockets
Imports System.Text

Public Class Form1
    Private Const portNum As Integer = 13
    Private Const hostName As String = "hostMachineName" ' or IP "192.168.131.67"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim client As New TcpClient(hostName, portNum)

            Dim ns As NetworkStream = client.GetStream()

            Dim bytes(1024) As Byte
            Dim bytesRead As Integer = ns.Read(bytes, 0, bytes.Length)
            Dim xx$
            xx = Encoding.ASCII.GetString(bytes, 0, bytesRead)
            Beep()
            'client.Connect
            client.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


        'Return 0

    End Sub
End Class

Imports System
Imports System.Net.Sockets
Imports System.Text


Public Class Form1
    Private Const portNum As Integer = 13

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim done As Boolean = False

        Dim listener As New TcpListener(portNum)

        listener.Start()

        While Not done
            Console.Write("Waiting for connection...")
            Dim client As TcpClient = listener.AcceptTcpClient()

            Console.WriteLine("Connection accepted.")
            Dim ns As NetworkStream = client.GetStream()

            Dim byteTime As Byte() = _
                Encoding.ASCII.GetBytes(DateTime.Now.ToString())

            Try
                ns.Write(byteTime, 0, byteTime.Length)
                ns.Close()
                client.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End While

        listener.Stop()

    End Sub
End Class

Som Shekhar wrote:

Deepali is a female name. Deepali...

Som Shekhar wrote:

You know? Deepali is angry with us...She doesn't wanna respond to us