[Visual Basic] IRC Connetion - Miscellaneous Tutorials
 
  Buy Ebooks, Video Games, DVDs, Electronics and more !
Home | Help Forums | Web Design Tutorials | Free Swishmax Downloads Make Money Online Blog . Free Image and Photo Sharing and Hosting

 

 

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

   Free image hosting
   Web Design Pakistan
   Swish Templates
   SWiSH Climax
   Talkfreelance Community
   Template Desire
   Lite boards
   Script Sector
   GimpTalk
   13dots
   Idea Designs
   PHP Cafe
   Sposatoettore
   Free swishmax templates
   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


© 2002-2005 Flaxweb Network | Article Manager | Gimp Tutorials Library | RAD C++ Library | Free C/C++ Sourcecode |
Sites of interest : Web Design Blog | Swish Templates | Swishmax Ebook | Photoshop Templates | Gimp Tutorials | Text Forum | Make Money Online