Solved

trying to get simple connection to irc

Posted on 2006-11-11
11
277 Views
Last Modified: 2010-04-23
im trying to send a logon string to a irc server and capture the return how do i do this

ive been trying with the below code but it does not work...

            Connect(txtServer.Text, txtPort.Text, "NICK " & txtBaseNick.Text & Index & vbLf & "USER TEST tst text :text" & Index & vbLf & "PONG :mkv" & vbLf & "JOIN " & txtChannel.Text & vbLf)


   Sub Connect(ByVal server As [String], ByVal irc_port As Int32, ByVal message As [String])
        Try
            ' Create a TcpClient.
            ' Note, for this client to work you need to have a TcpServer
            ' connected to the same address as specified by the server, port
            ' combination.
            Dim port As Int32 = irc_port
            Dim client As New TcpClient(server, port)

            ' Translate the passed message into ASCII and store it as a Byte array.
            Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)

            ' Get a client stream for reading and writing.
            '  Stream stream = client.GetStream();
            Dim stream As NetworkStream = client.GetStream()

            ' Send the message to the connected TcpServer.
            stream.Write(data, 0, data.Length)

            Console.WriteLine("Sent: {0}", message)
            Form1.ListBox1.Items.Add("Sent: " & message)
            'My.Application.DoEvents()
            ' Receive the TcpServer.response.
            ' Buffer to store the response bytes.
            data = New [Byte](256) {}

            ' String to store the response ASCII representation.
            Dim responseData As [String] = [String].Empty

            ' Read the first batch of the TcpServer response bytes.
            Dim bytes As Int32 = stream.Read(data, 0, data.Length)
            responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
            Console.WriteLine("Received: {0}", responseData)
            Form1.ListBox2.Items.Add("Received: " & responseData)
            'My.Application.DoEvents()
            ' Close everything.
            stream.Close()
            client.Close()
        Catch e As ArgumentNullException
            Console.WriteLine("ArgumentNullException: {0}", e)
        Catch e As SocketException
            Console.WriteLine("SocketException: {0}", e)
        End Try

        'Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
        'Console.Read()
    End Sub 'Connect
0
Comment
Question by:Johnny
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
  • 2
  • +1
11 Comments
 
LVL 29

Expert Comment

by:Nightman
ID: 17921167
What error do you get, and where?
0
 
LVL 7

Accepted Solution

by:
Mohamed Zedan earned 500 total points
ID: 17921226
If you could understand C# here is a library for IRC in C#

http://www.codeproject.com/cs/internet/smartirc4net.asp
0
 
LVL 7

Expert Comment

by:Mohamed Zedan
ID: 17921228
or you could use it's compiled dll in your vb.net application without converting it :)
0
SharePoint Admin?

Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.

 
LVL 13

Expert Comment

by:newyuppie
ID: 17921395
if that code, works he can even add the whole C# code as a separate project on his VB application and it would work too.
0
 

Author Comment

by:Johnny
ID: 17921462
im not getting a full connection..it send the info, and gets back the info

maybe im missing the logon itself.. besides what im sending to login to join a room

0
 
LVL 29

Expert Comment

by:Nightman
ID: 17921483
Perhaps you could give the library from mohzedan a try. It also looks to be well documented, with some examples as well.
0
 

Author Comment

by:Johnny
ID: 17923701
went with the smart irc code.... having problems converting it

hopefully it will be ok tho

thanks for the help on to converting it questions
http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_22057410.html
0
 
LVL 7

Expert Comment

by:Mohamed Zedan
ID: 17924582
You don't need to convert it. ... you should just build the project and add the dll as a reference to your project and use it as is
0
 

Author Comment

by:Johnny
ID: 17925586
theres no vb.net example code so to have c code converted it all there is...


i did most of it..and have it connecting...im trying to show the sends and the replies now..then ill be ok having problems with that..i was gonna open another question sometime for ask how to do that..if i cnat figure it out soon
0
 
LVL 7

Expert Comment

by:Mohamed Zedan
ID: 17926267
why don't you post the c# example code here and I'll convert it for you ?
0
 

Author Comment

by:Johnny
ID: 17926614
0

Featured Post

Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A while ago, I was working on a Windows Forms application and I needed a special label control with reflection (glass) effect to show some titles in a stylish way. I've always enjoyed working with graphics, but it's never too clever to re-invent …
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
A short tutorial showing how to set up an email signature in Outlook on the Web (previously known as OWA). For free email signatures designs, visit https://www.mail-signatures.com/articles/signature-templates/?sts=6651 If you want to manage em…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below. https://filedb.experts-exchange.com/incoming/2017/03_w12/1151775/Permutations.txt https://filedb.experts-exchange.com/incoming/201…

752 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question