• Home
 · 
• Internet/HTML
 · 
• Connect to an irc server using winsock

Connect to an irc server using winsock

Connect to an irc server using winsock

Rate Connect to an irc server using winsock

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

winsock1.remoteport=6667 /*usually this is th port */
winsock1.connect
/*add the following code to the private sub Winsock1_Connect()*/
winsock1.senddata ("NICK yournicknamehere" & vbcrlf)
winsock1.senddata ("USER yourusernamehere yourproviderhere_      winsock1.remoteserver :Yournamehere Yoursurname here" &vbcrlf )
/* suppose your email is [email protected] your user name = nick and your provider = provider.*/
/*here is the code to response to a ping so you will remain connected added to the private sub winsock1_dataarrival*/
dim redata as string
Winsock1.GetData redata
If Left$(redata, 4) = "PING" Then
    Winsock1.SendData ("PING " & Right$(redata, (Len(redata) - 5)))