Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

Sponsored by: █ Sparkhost - Hosting Without Compromises! █ Hybrid Performance Web Hosting █ Spark Host Stream Hosting █ Hybrid IRC & IRCd Server Shell Accounts

How To Build A Stable Bot In Vb6

Started by Guest_RandomCode_* , Sep 21 2005 07:04 AM

Next
»

Please log in to reply

47 replies to this topic

#1 Guest_RandomCode_*

Guests

Posted 21 September 2005 - 07:04 AM

First:

This client uses an activx control (OCX) so add the winsock control to your project.

Second:

Declare your form as: Option Explicit

Now let's assume that you winsock control that u have addeded to your form is called sckIRC

Make sure to add the folowing code to form load sub:

   With sckIRC
        .RemoteHost = "irc.someircserver.com" 'The IRC server here
        .RemotePort = 6667 'Connect on port 6667 (Normal port for irc)
        .Connect
    End With

The next sub will be the one when sckIRC will connect to irc.

   With sckIRC
        .SendData "NICK your_nick" & vbCrLf
        .SendData "USER your_nick " & sckIRC.LocalHostName & " " & _
            UCase(sckIRC.LocalHostName & ":" & sckIRC.LocalPort & "/0") & " :Winsock Client" & vbCrLf
        .SendData "JOIN #yourChanHere" & vbCrLf
    End With

Now add to your form a textbox called txtBuffer

The folowing code will make sure that you won't ping time out. It's a very important sub, it will reply to the ircServer PONG when this one PING your client.

Private Sub sckIRC_DataArrival(ByVal bytesTotal As Long)
    On Error Resume Next 
    Dim sRecv As String
    sckIRC.GetData sRecv    
    If Split(sRecv, " ")(0) = "PING" Then
        sckIRC.SendData "PONG " & Split(sRecv, " ")(1)
    End If
    
    'Update your text box with the new data that you have received
    txtBuffer.Text = txtBuffer.Text & sRecv & vbCrLf
    txtBuffer.SelStart = Len(txtBuffer.Text)
End Sub

Donne. at this moment you already have an irc bot. To get build some commands you just need to get the sRecv text from the last sub and manage it.

Data format is:

:NickNameFromWhoWriteInChan!host@ipmask PRIVMSG #chanName :text From the convo

when change #chanName to chanName it will send a private message to chanName (nickName)

This is an exemple on how to build a simple and fast irc bot or irc client, i am not do not assume any reponsability of bad use of this code.

Back to top

#2 Chris

Specialist

Sergeant Major
1,203 posts

Posted 21 September 2005 - 02:40 PM

Hey,

Nice clear to the point post and clean code. Thanks a lot for posting. What I have also found bloody handy in projects like this is the split() function which enables you to split up a string so you can have a command and parameters.

For example if I wanted the bot to send a message to the channel I would need:

!say texttosay

When the bot receives data it puts the data in the variable sRecv but all of the data so we cannot do a simple select case on it without first splitting it down into more than one variable (one for the command and as many as are needed for the parameters). To do this the following code could be used...

Dim recvcmd() As String
recvcmd = Split(sRecv, " ")

This returns each word as a seperate variable inside the array. For example:

!copy c:\text1.txt c:\text2.txt 1

Would be split to

recvcmd(0) = "!copy" 'can be used in a select case to carry out a command
recvcmd(1) = "c:\text1.txt" 'a parameter that can be used by the command, this case source.
recvcmd(2) = "c:\text2.txt" 'another parameter, this case destination
recvcmd(3) = 1 'yet another parameter, this case overwrite, set to 1 so is true.

Once you incorparate that with the above code you can start building up functions very quickly, file access and registry control are both easy ones, as is downloading and running an exe.

Chris

Back to top

#3 Guest_53v3n_*

Guests

Posted 21 September 2005 - 05:32 PM

this could come in very handy, i'll dust off my copy of visual basic, and give it a try! thanks so much

Back to top

#4 Guest_RandomCode_*

Guests

Posted 22 September 2005 - 01:24 AM

As i'v said this can do lot's of things really, it's the first start of any bot..
chris105, indeed, that cmds can be very handy..i'v used such a bot when i hav runing at home a apache server, unfortunatly my ip wasn't/still isn't fixed, and when my connection reseted the ip would change and i would loose my address..this was very handy because the bot could give me the home ip address when i requested it to..

nice exemple chris105 btw!

Back to top

#5 kbnet

Master Sergeant

Sergeant Major
800 posts

Posted 22 September 2005 - 01:40 AM

So easy yet so effective. If anyone wirtes and compiles their own version i would be interested to see some to see what ideas people come up with.

Back to top

#6 Guest_53v3n_*

Guests

Posted 22 September 2005 - 03:36 AM

As i'v said this can do lot's of things really, it's the first start of any bot..
chris105, indeed, that cmds can be very handy..i'v used such a bot when i hav runing at home a apache server, unfortunatly my ip wasn't/still isn't fixed, and when my connection reseted the ip would change and i would loose my address..this was very handy because the bot could give me the home ip address when i requested it to..

nice exemple chris105 btw!
<{POST_SNAPBACK}>

I haven't really gone into hardcore VB coding, so.. this definatley seems like something worth trying. Will start with some basic stuff, and hopefully build this

First:

This client uses an activx control (OCX) so add the winsock control to your project.

Just curious, how do you add OCX to this bot?

Back to top

#7 Guest_RandomCode_*

Guests

Posted 22 September 2005 - 05:08 AM

As i'v said this can do lot's of things really, it's the first start of any bot..
chris105, indeed, that cmds can be very handy..i'v used such a bot when i hav runing at home a apache server, unfortunatly my ip wasn't/still isn't fixed, and when my connection reseted the ip would change and i would loose my address..this was very handy because the bot could give me the home ip address when i requested it to..

nice exemple chris105 btw!
<{POST_SNAPBACK}>

I haven't really gone into hardcore VB coding, so.. this definatley seems like something worth trying. Will start with some basic stuff, and hopefully build this

First:

This client uses an activx control (OCX) so add the winsock control to your project.
Just curious, how do you add OCX to this bot?
<{POST_SNAPBACK}>

Just right click your right side toolbar (General), click on Components, select Microsoft Winsock Control 6.0 (SP6) or what ever is the version that you have.

I highly recomend to update your libs, service pack 6 is also freely avaiable on Microsoft web site.

Edit: btw, it's possible not to use the ocx file...it's possible to code/develop a module to interact with the ws2_32.dll file from the operating system but i don't think it's a good ideia..last time i tryed to do that (and i did) the file had 2562 lines of code (will make the bot very big) the ocx file has: 106 KB (109.248 bytes) and the bot would be more then 200kb with that modules that does not use the ocx file.

If you don't have the *.ocx file, it's easy to get it from Microsoft web site too or others.

Then, to register: RegSvr32 /s MSWINSCK.OCX
To unregister the ocx from system: RegSvr32 /u MSWINSCK.OCX

Back to top

#8 satknis

Corporal

Members
162 posts

Posted 22 September 2005 - 06:18 AM

how to do that with a api, so that no other files must be added?

Back to top

#9 Chris

Specialist

Sergeant Major
1,203 posts

Posted 22 September 2005 - 08:48 AM

Use csocket http://www.vbip.com/...et-class-01.asp as its not a control it all gets bundled in when you compile, means its only one file to send out. It also functions almost exactly as the winsock control does, take a look at the example source. If I get a chance I will rework RandomCode's example to use it.

Randomcode you could have used a dyndns or a no-ip domain, both are free and you run a little application on the computer, when the ip changes it automatically updates where the address is pointed to.

e.g computer.no-ip.com could point to 255.255.255.255 and it forwards on all ports too, handy for reverse connect if you dont care about leaving a trail about a mile long.

Back to top

#10 Guest_RandomCode_*

Guests

Posted 22 September 2005 - 09:41 AM

Randomcode you could have used a dyndns or a no-ip domain, both are free and you run a little application on the computer, when the ip changes it automatically updates where the address is pointed to.

e.g computer.no-ip.com could point to 255.255.255.255 and it forwards on all ports too, handy for reverse connect if you dont care about leaving a trail about a mile long.
<{POST_SNAPBACK}>

yes..now i know that hehe but in that time i didn't, that was the solution i found to manage the problem

And that's right http://www.vbip.com/...et-class-01.asp helps a lot. But that files have other kind of problems, with winsock ocx u can create arrays of sockets, for exemple to create a chat server when lot's of ppl may connect to one just port all at same time. But that class and that module can't do that. I'v tryed to bypass that problem but i never did it working 100% like with winsock ocx

I would love to see your Bot with some improvemets.

Back to top

#11 Chris

Specialist

Sergeant Major
1,203 posts

Posted 22 September 2005 - 12:13 PM

Hey again,

Been to the gym so havnt had a chance to go through it yet. Csocket comes in two different flavours, one of which supports multi threading (believe they are called csocket master and csocket plus, both are free).

I shant be adding features as I think people should do some work but I shall implement a basic framework with string delimitation etc etc.

Back to top

#12 Guest_RandomCode_*

Guests

Posted 22 September 2005 - 01:19 PM

Hey again,

Been to the gym so havnt had a chance to go through it yet. Csocket comes in two different flavours, one of which supports multi threading (believe they are called csocket master and csocket plus, both are free).

I shant be adding features as I think people should do some work but I shall implement a basic framework with string delimitation etc etc.
<{POST_SNAPBACK}>

Hi again too,

I don't really know that ones, they seem to be similar to the ones i did..i'm going to try to mod my chat server code using that class and that module...hope it works

Back to top

#13 Guest_RandomCode_*

Guests

Posted 23 September 2005 - 10:31 AM

Hey,

Nice clear to the point post and clean code. Thanks a lot for posting. What I have also found bloody handy in projects like this is the split() function which enables you to split up a string so you can have a command and parameters.

For example if I wanted the bot to send a message to the channel I would need:

!say texttosay

When the bot receives data it puts the data in the variable sRecv but all of the data so we cannot do a simple select case on it without first splitting it down into more than one variable (one for the command and as many as are needed for the parameters). To do this the following code could be used...
Dim recvcmd() As String
recvcmd = Split(sRecv, " ")
This returns each word as a seperate variable inside the array. For example:

!copy c:\text1.txt c:\text2.txt 1

Would be split to

recvcmd(0) = "!copy" 'can be used in a select case to carry out a command
recvcmd(1) = "c:\text1.txt" 'a parameter that can be used by the command, this case source.
recvcmd(2) = "c:\text2.txt" 'another parameter, this case destination
recvcmd(3) = 1 'yet another parameter, this case overwrite, set to 1 so is true.

Once you incorparate that with the above code you can start building up functions very quickly, file access and registry control are both easy ones, as is downloading and running an exe.

Chris
<{POST_SNAPBACK}>

Well, i started making mine, i noticed that something maybe was incorrect, not enterely but still.

Dim recvcmd() As String
recvcmd = Split(sRecv, " ")

!copy c:\text1.txt c:\text2.txt 1

Would give you:

recvcmd(0)=:nickName!Ident@HostName
recvcmd(1)=PRIVMSG
recvcmd(2)=#Chan From message came
recvcmd(3)=:!copy
recvcmd(4)=c:\text1.txt
recvcmd(5)=c:\text2.txt
recvcmd(6)=1

Maybe it will be possible to make a mask for this, it would be much easy to get through the messages

The mask would be something like this:
_ -> space

:*!*@*_PRIVMSG_#*_*

Back to top

#14 Guest_RandomCode_*

Guests

Posted 24 September 2005 - 02:14 AM

I made this module last night for my bot:

Option Explicit
Dim fullLine, nickName, ident, hostName, msgType, chan, message As String
Dim whoFullMSG() As String

Private Sub getWhoSendMSG(buffer As String)

nickName = Replace(Mid(buffer, 1, InStr(1, buffer, "!") - 1), ":", "")
fullLine = Replace(buffer, ":" & nickName & "!", "")
ident = Mid(fullLine, 1, InStr(1, fullLine, "@") - 1)
fullLine = Replace(fullLine, ident & "@", "")
hostName = Mid(fullLine, 1, InStr(1, fullLine, " ") - 1)
fullLine = Replace(fullLine, hostName & " ", "")
msgType = Mid(fullLine, 1, InStr(1, fullLine, " ") - 1)
fullLine = Replace(fullLine, msgType & " ", "")
chan = Mid(fullLine, 1, InStr(1, fullLine, " ") - 1)
fullLine = Replace(fullLine, chan & " :", "")
message = fullLine

ReDim whoFullMSG(0), whoFullMSG(1), whoFullMSG(2), whoFullMSG(3), whoFullMSG(4), whoFullMSG(5)

whoFullMSG(0) = nickName
whoFullMSG(1) = ident
whoFullMSG(2) = hostName
whoFullMSG(3) = msgType
whoFullMSG(4) = chan
whoFullMSG(5) = message

End Sub

When this is called and parsing the buffer to it, like:

Call getWhoSendMSG(sRecv)

The sub will put the values, splited in an array, this way it's possible to have a output of the bot like on mirc:

MsgBox "<" & whoFullMSG(0) & "> " & whoFullMSG(5)

whoFullMSG(5) has the full message that was typed in the chan or what ever it was..

Now chris105, your code will work as you said before:

Dim recvcmd() As String
recvcmd = Split(whoFullMSG(5), " ")

recvcmd(0) = "!copy"  'can be used in a select case to carry out a command
recvcmd(1) = "c:\text1.txt" 'a parameter that can be used by the command, this case source.
recvcmd(2) = "c:\text2.txt" 'another parameter, this case destination
recvcmd(3) = 1 'yet another parameter, this case overwrite, set to 1 so is true.

I hope you all enjoy this like i did/do atm.

Next step will be maybe in how to make a new module for this bot with dcc functions (send/receive).

Back to top

#15 Guest_53v3n_*

Guests

Posted 27 September 2005 - 03:59 AM

was thinking of irc bots some more. Would be interesting to see an irc !whois bot, that looks up hostnames of websites and ip's. Is this possible to code in VB?