Solved

trying to get simple connection to irc

Posted on 2006-11-11
11
276 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
  • 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
Technology Partners: 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!

 
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

I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
Attackers love to prey on accounts that have privileges. Reducing privileged accounts and protecting privileged accounts therefore is paramount. Users, groups, and service accounts need to be protected to help protect the entire Active Directory …

740 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