VB - Chat program

[eax]

Here is a simple chat program that uses IP's to talk to each other.
You can adapt it to work how you like;

Code:

Imports VB = Microsoft.VisualBasic
Public Class frmChat
    Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, ByRef nSize As Integer) As Integer
    Dim UserID As String

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End
    End Sub

    Private Sub btnMySend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMySend.Click
        Dim Message As String
        Message = "[" & UserID & "] " & txtMySend.Text

        AxWinsock1.RemoteHost = AxWinsock1.LocalIP
        AxWinsock1.SendData(Of Date)()
        If AxWinsock1.LocalIP = txtIPAddress.Text Then
            AxWinsock1.RemoteHost = txtIPAddress.Text
            AxWinsock1.SendData(Message)
        End If
        txtMySend.Text = ""
        txtMySend.Focus()
    End Sub

    Private Sub frmChat_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWinsock1.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
        AxWinsock1.RemoteHost = AxWinsock1.LocalIP
        AxWinsock1.RemotePort = 10
        AxWinsock1.LocalPort = 11

        Dim sBuffer As String
        Dim lSize As Integer
        sBuffer = Space(255)
        lSize = Len(sBuffer)
        Call GetUserName(sBuffer, lSize)
        If lSize > 0 Then
            UserID = VB.Left(sBuffer, lSize - 1)
        Else
            UserID = vbNullString
        End If
        Me.Text = Me.Text + UserID & " at " & AxWinsock1.LocalIP
        txtIPAddress.Text = AxWinsock1.LocalIP
        txtMyIP.Text = AxWinsock1.LocalIP
    End Sub

    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
        Dim Arrival As String = ""
        AxWinsock1.GetData(Arrival)
        txtMyArrival.Text = txtMyArrival.Text & Arrival & vbNewLine
    End Sub
    Private Sub txtIPAddress_Leave(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles txtIPAddress.Leave
        AxWinsock1.RemoteHost = txtIPAddress.Text
    End Sub
End Class

[Shane]

Nice Program Good Work!

[Resistance]

Smart and Crafty... I like it! Thanks for the application!

[Statics]

Can't believe it!

I did not know there was a simple program such as this that does these kind of things!

LOVE IT!

[eax]

Can't believe it!

I did not know there was a simple program such as this that does these kind of things!

LOVE IT!

If there's anything else you require just ask. I'll do the best I can. (:

[Jet]

So basically you connect to someone's ip that has this program, and you can talk to each other?

[eax]

So basically you connect to someone's ip that has this program, and you can talk to each other?

That's correct.

[SYNTAX ERR0R]

GUI is a little basic, but that's nothing that can't be easily sorted. VERY nice work amigo.

[eax]

Yeah it is. It was only to show how it works. I wasn't actually using it for anything.

[SYNTAX ERR0R]

Yeah it is. It was only to show how it works. I wasn't actually using it for anything.

Well I really like it, and it is something I will use . I will have to wait until I get comp out of safe mode though as it won't let me download VB .