IRC Connect

Achtung: Nicht von mir!

Code:

---

Dim defaultnickname As String

    Dim defaultchannel As String

   

    Private Sub Form_Load()

    defaultnickname = "hai"

    defaultchannel = "#darkmindz"

    Winsock1.RemoteHost = "irc.darkmindz.com"

    Winsock1.RemotePort = "6667"

    Winsock1.Connect

    End Sub

   

    Private Sub Winsock1_Connect()

    Winsock1.SendData "NICK " & defaultnickname & vbCrLf

    Winsock1.SendData "USER " & defaultnickname & " " & defaultnickname & " " & defaultnickname & " " & defaultnickname & " :" & defaultnickname & vbCrLf

    End Sub

   

    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

    Dim buffer As String

    Winsock1.GetData buffer

    RecievedData.Text = buffer & RecievedData.Text

    If InStr(buffer, "PING :") Then

    ping = buffer

    pingnumbers = Split(ping, "PING :")

    Winsock1.SendData "PONG :" & pingnumbers(1)

    Winsock1.SendData "JOIN " & defaultchannel & vbCrLf

    End If

    End Sub

---

Für was is das wenn man fragen darf?Kann ich damit in den irc chat?

lässt sich doch aus dem code schon erschließen das es genau dafür ist , wie du schon sagtest ;)

MfG

Und wie kann ich das anwenden?

mit nem vb6 Visual Basic compiler

lol sorry kennmich mit vb6 garnicht aus kann mir jemand per PM da weiter helfen zb wo ich das programm herbekomme?

Zitat:

---

Zitat von chester2112

Und wie kann ich das anwenden?

---

Lern erstmal die vb Grundlagen , bevor du versuchst sowas anzuwenden

und informiere dich

MfG