IRC Connect

[-=Player=-]

Achtung: Nicht von mir!

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

[chester2112]

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

[Sawyer]

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

MfG

[chester2112]

Und wie kann ich das anwenden?

[b0ne]

mit nem vb6 Visual Basic compiler

[chester2112]

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

[Sawyer]

Und wie kann ich das anwenden?

Lern erstmal die vb Grundlagen , bevor du versuchst sowas anzuwenden

und informiere dich

MfG