Home | Help Forums | Web Design Tutorials | Free Swishmax Downloads | All Downloads

 

 

Company

Home

Nework Details

Tutorials

SWiSH 2

SWiSHMax

Flash MX

PHP & MySQL

HTML / JScript

Adobe Photoshop

Corel Draw

Gimp

Miscellaneous

Downloads

Templates

Plugins

Fonts

Wallpapers

Free Images

Scripts and Codes

Products

E-Books

SWiSH BB

SWiSH Templates

SWiSH-DB Newsletter
Subscribe to our newsletter : GO
  Partners / Affiliates

   Swish Templates
   SWiSH Climax
   GimpTalk
   Idea Designs
   Sposatoettore
   Try Acai Berry Diet
   Download Free Ringtones
   Swishzone

Manage your site with Flax Article Content Management System
[Visual Basic] IRC Connetion
Category : Miscellaneous | Level : Intermediate | Language : English
Ask Question | Read Comments | Post tutorial | Previous | Next

Web www.swish-db.com

hello everyone ,

This is Tutorial #6 by me smile.gif

You can use , Standaed EXE ( IRC Client ) or ActiveXControl (WebChat) .


Irc Connections in my eye's is the most easist thing on VB for what it does .

1 ) Put an WINSOCK on your presentation .

2 ) Well ovibulsly we have to connect the damn thing .

QUOTE

Private Sub Form_Load()
Winsock1.Close
Winsock1.Connect "Server - IP or Domain", 6667 'Port
End Sub


3 ) Now your connected the server wants to kno your name ! so :
QUOTE

Private Sub Winsock1_Connect()
    With Winsock1
        .SendData "NICK JOHNO" & vbCrLf
        .SendData "USER TEST TEST TEST TEST TESt" & vbCrLf
        End With
End Sub


4 ) Now your on with a name and stuff you need to play ping pong with the server so you dont get BOOTED off
QUOTE

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next
    Dim sRecv As String

    Winsock1.GetData sRecv ' Put the data recieved into the string
    ' Play ping pong with the server
    If InStr(sRecv, "PING") = 1 Then
        Winsock1.SendData "PONG " & Split(sRecv, " ")(1)
    End If
End Sub


Simply use the same methord as the ping to now show in the textbox wink.gif


All rights reserved - swish-db.com