how to make welcome bot???

Subject: how to make welcome bot??? Mon Sep 24, 2012 5:20 pm

hey bro how to make welcome bot. after entering any id how to select jid+welcome message help me focus

Subject: Re: how to make welcome bot??? Mon Sep 24, 2012 6:15 pm

Code:: If InStr(getdata, "<x xmlns='http://jabber.org/protocol/muc#user'>") <> 0 And Not InStr(getdata, "type='unavailable'") <> 0 Then
Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
id = Left(id, InStr(id, "'") - 1)
MsgBox id ' now u have joined ids string, just send mesage 2 rom
Dim jid As String ' get gull jid
jid = Mid(getdata, InStr(getdata, "jid='") + 5)
jid = Left(jid, InStr(jid, "'") - 1)
MsgBox jid
End If

Subject: Re: how to make welcome bot??? Mon Sep 24, 2012 7:32 pm

reza jan be farsi migi????

Subject: Re: how to make welcome bot??? Fri Oct 05, 2012 1:13 pm

thaks for code bro SOPORIFIC

id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
whats this 24 mean :*HYPNOTIC*: :*HYPNOTIC*:

Subject: Re: how to make welcome bot??? Sat Oct 27, 2012 4:22 pm

mid have 3 argoment

mid(string, start as long, optional length)

e.g :

we have a string=> [email=id='leopard@nimbuzz']id='leopard@nimbuzz'[/email] and we wanna get a substring of our string and we know our number of string characters( our string is punctual(Static)) so we can set our mid start argument easy

Code:: dim a as string

dim result as string

a= "[email=id='leopard@nimbuzz.com]id='leopard@nimbuzz.com[/email]"

result = mid(a, + 5)

msgbox result

but occasionally our string not static and We do not know the starting number so we have to use of instr method to set our start number of from where

instr have 4 potional argument

instr(start, string1, string2, comparemethode)

Code:: dim a as string

dim result as string

a= "lskhdsdlljhduhsd sgdsdfsf [email=id='leopard@nimbuzz.com]id='leopard@nimbuzz.com[/email]" ' not static string

result = mid(a, instr(a, "id='") + 4) ' we set our start value 4 character after "id='"

msgbox result

I hope it will be helpful this comment

Subject: Re: how to make welcome bot??? Tue Oct 30, 2012 8:30 pm

Admin wrote:

Code:: If InStr(getdata, "") <> 0 And Not InStr(getdata, "type='unavailable'") <> 0 Then
Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
id = Left(id, InStr(id, "'") - 1)
MsgBox id ' now u have joined ids string, just send mesage 2 rom
Dim jid As String ' get gull jid
jid = Mid(getdata, InStr(getdata, "jid='") + 5)
jid = Left(jid, InStr(jid, "'") - 1)
MsgBox jid
End If

what he needs...is this code
FOR WELCOME BOT

Code:: If InStr(getdata, "") <> 0 And Not InStr(getdata, "type='unavailable'") <> 0 Then

Dim id As String
id = Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
id = Left(id, InStr(id, "'") - 1)
socket.senddata "<message to='" & room.Text & "@conference.nimbuzz.com' type='groupchat'><body> " + id + " Welcome"
</body></message>"

via this code if vampyr id enters room then your bot will say
vampyr Welcome

same can be repeated for leaving users if bot wants to say bye or something it goes like this
FOR BYE BOT

Code:: If InStr(getdata, "type='unavailable'") <> 0 Then
Dim leftid As String
leftid
= Mid(getdata, InStr(getdata, "@conference.nimbuzz.com/") + 24)
leftid
= Left(
leftid
, InStr(
leftid
, "'") - 1)

socket.senddata "<message to='" & room.Text & "@conference.nimbuzz.com' type='groupchat'><body>
" +
leftid
+ " Bye"
</body></message>"

bot will say vampyr Bye

all done I-) add [You must be registered and logged in to see this link.] for all kinda bots i can help u with vb6 projects...but on weekends only...nice forum btw

SAME METHOD CAN BE REARRANGED FOR BAN BOTS ;-) IF YOU GOT THIS CODE tangu

...ENJOY

Subject: Re: how to make welcome bot??? Tue Oct 30, 2012 8:34 pm

they're beginners teach them full codes I-) dnt expect them to learn from msg box lol not everyone gets it easily wt to do next:d...it is a fake id wont be replying anymore

Subject: Re: how to make welcome bot??? Sat Nov 03, 2012 10:06 pm

dadash mishe in coda ro ke mizarin file proje ro ham bezarin?

dasteton dard nakone

» how to make room searcher in vb 6
» help me to make id maker in vb 6
» help me 4 make cracker with vb6
» how to make id creator
» how to make quiz bot using winsock ?