๑۩۞۩๑FreebuzZ๑۩۞۩๑
hi GUEST!!!!!!!!!!!

Welcome to FreeBuzz Team

Please register to have full access to the forum and be able to download stuff., stay with us..
lotfan baraye estefade az in anjoman site sabtenam konid baraye sabtenam kare shakhi lazem ni bokoni faghat miazni register sabtenam mikoni niazi be linke activate az email nis bad login mikoni
cheers
FreeBuzZ TeaM !

Bl4ck W4rning
๑۩۞۩๑FreebuzZ๑۩۞۩๑
hi GUEST!!!!!!!!!!!

Welcome to FreeBuzz Team

Please register to have full access to the forum and be able to download stuff., stay with us..
lotfan baraye estefade az in anjoman site sabtenam konid baraye sabtenam kare shakhi lazem ni bokoni faghat miazni register sabtenam mikoni niazi be linke activate az email nis bad login mikoni
cheers
FreeBuzZ TeaM !

Bl4ck W4rning
๑۩۞۩๑FreebuzZ๑۩۞۩๑
Would you like to react to this message? Create an account in a few clicks or log in to continue.

๑۩۞۩๑FreebuzZ๑۩۞۩๑

๑۩۞۩๑aTTack۩ Defece۩Code۩ Security۩ Anonymous Hackers۩ FreeBuzz Team ๑۩۞۩๑
 
HomeSearchLatest imagesRegisterLog in
Latest topics
» سلام علیک و رحمه الله...چه خبرا بچه ها؟
flooder - sourec room flooder vb6 help Icon_minitimeby DARK Sat Apr 30, 2022 11:59 pm

» oon ghadima!!!
flooder - sourec room flooder vb6 help Icon_minitimeby Inj3ctor Wed Aug 18, 2021 4:26 am

» need a source code of any server for university project help me for it
flooder - sourec room flooder vb6 help Icon_minitimeby xerockss Sun Jun 09, 2019 10:28 pm

» New : Run Python based bots like Aurora, Blacksmith, VBOt in your Android Mobile
flooder - sourec room flooder vb6 help Icon_minitimeby ltc_mkt Wed Feb 27, 2019 5:09 pm

» دوره ی اضافه کردن سکه به برنامه هایی همچون فالوور بگیر و ممبرگیر و ... (خریداری شده)
flooder - sourec room flooder vb6 help Icon_minitimeby mr.pitza Mon Oct 01, 2018 8:10 pm

» hach any id f.a.c.e.b.o.o.k 2019
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Sat Apr 21, 2018 4:41 am

» هديه للجميع 500 نك فلوود قديم شغالين 500 old ids flood free
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Mon Apr 09, 2018 6:37 pm

» Freebuzz & Nimbuzz yadet bekheyr !
flooder - sourec room flooder vb6 help Icon_minitimeby DARK Thu Apr 05, 2018 1:54 pm

» new flood 2018 فلود جديد يعمل على جميع انواع نكات لفلود القديمة والجديدة
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Fri Oct 20, 2017 6:20 am

» STEALTH PROJECT WEB FLOOD NIMBUZZ
flooder - sourec room flooder vb6 help Icon_minitimeby djsaim Sat Sep 30, 2017 8:51 pm

» XIO server & online bots
flooder - sourec room flooder vb6 help Icon_minitimeby ltc_mkt Mon May 29, 2017 8:12 pm

» فریباز دوباره برمیگردد
flooder - sourec room flooder vb6 help Icon_minitimeby Mer+sad Thu Apr 06, 2017 3:34 am

» Xio Server Updated Elite Version
flooder - sourec room flooder vb6 help Icon_minitimeby lekshmi321 Wed Mar 29, 2017 11:35 am

» Join MulTi id nimbuzz 2016
flooder - sourec room flooder vb6 help Icon_minitimeby sami-alarifi Mon Dec 05, 2016 3:09 am

» انجمن تیم امنیتی آنانیموس سکوریتی
flooder - sourec room flooder vb6 help Icon_minitimeby shirsefat Thu Nov 17, 2016 6:12 pm

» Xio Server Latest Version
flooder - sourec room flooder vb6 help Icon_minitimeby shirsefat Thu Nov 17, 2016 6:04 pm

» amooZesh kamele hack dar yek file pdf
flooder - sourec room flooder vb6 help Icon_minitimeby shirsefat Fri Nov 11, 2016 2:23 am

» CRACKER IDS 2017 WORKING
flooder - sourec room flooder vb6 help Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:43 am

» NEW ... ROOM ANTI CAPCHA 2017 DESTROY ROOMS V 4 BY AL-JOOOCKER@N.C
flooder - sourec room flooder vb6 help Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:41 am

» NEW FLOOD ROOM AND PV 2017 ANTI CAPTCHA
flooder - sourec room flooder vb6 help Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:30 am

» add new server Work 24 hours --- تحديث حسابات السيرفرات قم بــاضافه السيرفرات الجديده تعمل 24 ساعه
flooder - sourec room flooder vb6 help Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:28 am

» new auto id maker
flooder - sourec room flooder vb6 help Icon_minitimeby sandy_rawat Tue Oct 04, 2016 4:24 pm

» wonderful list id arbic for crucker اكبر ليستة ايملات تخمين جديدة
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Sun Sep 25, 2016 12:59 am

» New Abdo Cobra Auto Id maker Source code working
flooder - sourec room flooder vb6 help Icon_minitimeby Kash007 Sat Sep 24, 2016 10:26 pm

» 2000 id flood free
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Sun Sep 18, 2016 3:54 am

» new ip address changer with crack@pishaash@n.c
flooder - sourec room flooder vb6 help Icon_minitimeby cebecis Sat Sep 10, 2016 3:19 am

» تجسس على الخصوصية
flooder - sourec room flooder vb6 help Icon_minitimeby majed5160 Thu Aug 25, 2016 3:26 am

» سلام دوستان من
flooder - sourec room flooder vb6 help Icon_minitimeby majed5160 Wed Aug 24, 2016 3:10 am

» Trusted online server bots
flooder - sourec room flooder vb6 help Icon_minitimeby bom Fri Aug 19, 2016 7:59 pm

» فلود جديد ناررررر
flooder - sourec room flooder vb6 help Icon_minitimeby christian777 Sat Aug 13, 2016 10:12 am

» Receive Captcha in PVT C# and VB.NET source code available
flooder - sourec room flooder vb6 help Icon_minitimeby wathk Thu Jul 28, 2016 3:01 am

» Attention nimbuzz users !
flooder - sourec room flooder vb6 help Icon_minitimeby -namakul- Tue Jul 26, 2016 8:27 pm

» Salam man az karbqraye qadimiton hastam lotfan komakam konid :(
flooder - sourec room flooder vb6 help Icon_minitimeby SALIJON* Sat Jul 23, 2016 6:34 pm

» Nimbuzz stylish ids for sale
flooder - sourec room flooder vb6 help Icon_minitimeby msb Wed Jul 20, 2016 12:33 pm

» Nuke Mobileserver V9
flooder - sourec room flooder vb6 help Icon_minitimeby launchar Tue Jul 19, 2016 1:51 pm

» help me please c sharp masters
flooder - sourec room flooder vb6 help Icon_minitimeby launchar Tue Jul 19, 2016 1:39 pm

» salam be dostane qadimi hamgi join bedin bebinm kojain :P
flooder - sourec room flooder vb6 help Icon_minitimeby ghaz_ghaz90 Sat Jul 09, 2016 12:22 am

» Xio Server Update
flooder - sourec room flooder vb6 help Icon_minitimeby ghaz_ghaz90 Fri Jul 08, 2016 11:15 pm

» Xio Auto Capcha ID Maker ( FASTEST IDMAKER EVER)
flooder - sourec room flooder vb6 help Icon_minitimeby karthik~ajay Thu Jul 07, 2016 10:59 pm

» All web defacers and SQLi hach
flooder - sourec room flooder vb6 help Icon_minitimeby mitu143 Thu Jun 16, 2016 1:24 pm

» special daface pages FreeBuzz-Team
flooder - sourec room flooder vb6 help Icon_minitimeby mitu143 Thu Jun 16, 2016 12:59 pm

» Meet A Stranger Room Advertizer BoT
flooder - sourec room flooder vb6 help Icon_minitimeby lekshmi321 Sun Jun 05, 2016 5:14 pm

» NEW STEALTH PROJECT WEB FLOOD NIMBUZZ
flooder - sourec room flooder vb6 help Icon_minitimeby gentarbumi Sun Apr 24, 2016 10:08 pm

» Moving the write using HTML تحريك الكتابة باستخدام جافا سكرييت
flooder - sourec room flooder vb6 help Icon_minitimeby faris.jra7 Sat Apr 23, 2016 11:40 pm

» فلود غرف النيمباز
flooder - sourec room flooder vb6 help Icon_minitimeby saeid Sat Apr 16, 2016 12:43 am

» How to Show Hidden Files and Folders In Windows 7
flooder - sourec room flooder vb6 help Icon_minitimeby i_am~the_best Fri Apr 15, 2016 8:45 am

» How to Earn Money Online From PTC Sites
flooder - sourec room flooder vb6 help Icon_minitimeby i_am~the_best Fri Apr 15, 2016 8:43 am

» Create Id and Chat
flooder - sourec room flooder vb6 help Icon_minitimeby star.iraq Sun Apr 10, 2016 2:51 pm

» Addlist DC + hanger + remote v2.0
flooder - sourec room flooder vb6 help Icon_minitimeby oye Tue Apr 05, 2016 9:18 am

» XIO ADD FLOOD V.2
flooder - sourec room flooder vb6 help Icon_minitimeby lekshmi321 Fri Mar 25, 2016 8:37 pm

Search
 
 

Display results as :
 
Rechercher Advanced Search
Keywords
maziar bigwizard flooder change hexagora source Freebuzz visual amozesh bombotmod mashkook ehsan socket hidden changer famous star 2017 code shrek Quiz Jabber prime allstar groupchat info
Frb Upload Center



 

 sourec room flooder vb6 help

Go down 
3 posters
Go to page : 1, 2  Next
AuthorMessage
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 3:30 pm

bax ino lazem daram be yeki qol dadam
age kasi dare bede
Back to top Go down
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 3:37 pm

amuzeshe sakhte room flooder vb6 and answer to admins questions
dar zemn in be karam nayoomad
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 3:43 pm

dada reza ye source gozashte ouno estefade k.o.n
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 3:47 pm

6590 wrote:
dada reza ye source gozashte ouno estefade k.o.n
dadasham maanam hamoono migam be karam nayoomad dge
age ye projectesho dari mamnoon misham ajale am daram bad bakhti
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 3:59 pm

ba sockete Frb ya winsock?
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:07 pm

farq frb behtare
win sockam bood bood
dari?
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:10 pm

na ama frb daram male reza kar mikone Project bdamet? ya haminja b benevisam?
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:12 pm

project bedi mamnoon misham
male reza ro raftam didam yejash mige moshkel dare
inja:
Private Function ck(ByVal Control As Control) As Boolean ' function is a trick to check control(soket) loaded or no
Dim Qmars As String
On Error Resume Next
Qmars = Control.Name
ck = Err.Number = 0 ' if str value winded to control name ck value will be 1 or true so our control loaded else that will be 0 or false
End Function
Back to top Go down
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:17 pm

male reza age edit shodasho dari bede dada
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:36 pm

sharmande zaheresh zeshte!!!!!

faghat sockete frb k load kardamo bpak khodet az aval load k.o.n

az properties ina ro rosh bzar :

Name : soket ( c nazaaria )
index : 1 ( tamame moshkele in hamine k 1 nemizarim !!!!!!)

[You must be registered and logged in to see this link.]
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:39 pm

6590 wrote:
sharmande zaheresh zeshte!!!!!

faghat sockete frb k load kardamo bpak khodet az aval load k.o.n

az properties ina ro rosh bzar :

Name : soket ( c nazaaria )
index : 1 ( tamame moshkele in hamine k 1 nemizarim !!!!!!)

[You must be registered and logged in to see this link.]
t.r.o.j.a.n nakarde bashi too pachamoon:D:*
age nakardi boos
mc
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:46 pm

na dada man ahle dozdi nistam ,

sockete frb ro bikh beshi bhtare!!!!
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 4:54 pm

indesho 1 ke mizaram mipare biroon debug ke mikonam mire inja
soket(i).JoinRoom Text3.Text, Text5.Text
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:05 pm

text5.text ro bpak az aval khodet yeki bsaz
Back to top Go down
http://power-team98.tk
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:12 pm

text5.text ro bpak az aval khodet yeki bsaz
Back to top Go down
http://power-team98.tk
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:14 pm

rasti project b in mani nist k u hamon projecto va k.o.n.i va esmesho avaz k.o.n.i dadash!.
khodet ye bare dige vb6 ro va k.o.n va az aval har kari k neveshte shode mo b mo anjam bde.
ya ali.
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:15 pm

6590 wrote:
text5.text ro bpak az aval khodet yeki bsaz
]
aqa man alan mokham goozide az sobe pa pcim bara oon remotere
ye lotf k.o.n dada ino bara man radif k.o.n
be yeki qol dadam
bad jooor lazemesh daram
baaaad
to froumam nmikham bezzaram
jobran mishe age komakam k.o.n.i alan
Back to top Go down
gherti69
T-SBD
T-SBD
gherti69


Posts : 312
Points : -8712
Thanked : 3
Join date : 2012-07-23
ASL : sHaHrAm 22 zAhEdAn

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:20 pm

chera dargirin ba khodetun? Very Happy
Flooder ba winsock ham hast tu forum ke kar mide!
Ba frbsocket ham hast ke kar mide! Faghat vase frb socketo ke dl kardi age error dad. Socket ro bepak dobare bezar esmesho bezan soket index 1 bezan dg error nemide! Age ham winsock ro dl kardi ke error nemideo khodesh kar mide. Jofteshunam admin answer daran!
Back to top Go down
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:23 pm

gherti69 wrote:
chera dargirin ba khodetun? Very Happy
Flooder ba winsock ham hast tu forum ke kar mide!
Ba frbsocket ham hast ke kar mide! Faghat vase frb socketo ke dl kardi age error dad. Socket ro bepak dobare bezar esmesho bezan soket index 1 bezan dg error nemide! Age ham winsock ro dl kardi ke error nemideo khodesh kar mide. Jofteshunam admin answer daran!
oon karo kardam frb baz eror dad nevesham
age linke ws ro bedi mamnoon misham
Back to top Go down
gherti69
T-SBD
T-SBD
gherti69


Posts : 312
Points : -8712
Thanked : 3
Join date : 2012-07-23
ASL : sHaHrAm 22 zAhEdAn

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:34 pm

[You must be registered and logged in to see this link.]
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:34 pm

ye form bsaz
6 ta text box
text1.text : for ids
text2.text : for pw
text3.text : for room
text5.text : for pw room
text6.text : for add flood

text4.text ham vase msg floode

hala
3 ta cmd(Command)
command1 vase logine idha
command2 vase start flood
command3 vase stop flood


1check box ke vaghti tik khorde bashe mitoni bahash yekio add flood k.o.n.i


2ta option button ,
avalish vase room floode
dovomish vase pv flood dar roome

nokte : add floode va pvfloode , hatman bayad to text6.text ye id k to roome neveshte shode bashe ( vase add flood niazi nist k taraf dakhel bashe)


2ta listbox
list1 vase idhaie online shode
list2 vase ounaei k on nashodan


2ta timer
timer1 : enabled : False , interval : 2000
timer2 : enabled : False , interval : 3000

hala sockete frb ro load k.o.n to form bad esmesho bzar : soket , indexesh ham bzar : 1

hala boro to ghesmate code nevisi va tamame code zir ro dar oun pase k.o.n , hamin :

Code:


Dim ids() As String
Dim i As Integer
Private Sub Command1_Click()
List1.Clear
List2.Clear
ids = Split(Text1.Text, "#")
For i = LBound(ids) To UBound(ids)
If ck(soket(i)) = False Then Load soket(i)
soket(i).Connect ids(i), Text2.Text, "lian RooM Flooder"
Next
End Sub
Private Function ck(ByVal Control As Control) As Boolean
Dim Str As String
On Error Resume Next
Str = Control.Name
ck = Err.Number = 0
End Function
Private Sub Command2_Click()
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Command3_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End Sub


Private Sub soket_CloseSck(Index As Integer)
For i = 0 To List1.ListCount - 1
If ids(Index) = List1.List(i) Then
soket(Index).Connect ids(Index), Text2.Text, "LiaN"
End If
Next
End Sub
Private Sub soket_OnLogin(Index As Integer)
For i = 0 To List2.ListCount - 1
If ids(Index) = List2.List(i) Then
List2.RemoveItem (i)
End If
Next
List1.AddItem ids(Index)
End Sub
Private Sub soket_OnReadXml(Index As Integer, ByVal xml As String)
Text4.Text = xml
End Sub
Private Sub soket_OnSubscribe(Index As Integer, ByVal Id As String, ByVal Status As String)
soket(Index).DenyAdd Id
soket(Index).RemoveAdd Id
End Sub
Private Sub soket_OnWrongPassword(Index As Integer)
For i = 0 To List1.ListCount - 1
If ids(Index) = List1.List(i) Then
List1.RemoveItem (i)
End If
Next
List2.AddItem ids(Index)
End Sub
Private Sub Timer1_Timer()
On Error Resume Next
Dim ub As Integer
ub = soket.UBound / 2
For i = soket.LBound To ub
soket(i).JoinRoom Text3.Text, Text5.Text
Next
End Sub
Private Sub Timer2_Timer()
On Error Resume Next
Dim lb As Integer
lb = soket.UBound / 2
For i = lb To soket.UBound
soket(i).JoinRoom Text3.Text, Text5.Text
Next
End Sub

Private Sub soket_OnRoomMessage(Index As Integer, ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If LCase(Id) = LCase("admin") Then
soket(Index).WriteRoomMessage Text3.Text, Answer(Message)

End If
For i = 1 To 5
If Option1.Value = True Then
soket(Index).WriteRoomMessage Text3.Text, Text4.Text
Else
soket(Index).WritePrivateMessage Text3.Text & "@conference.nimbuzz.com/" & Text6.Text, Text4.Text
End If
Next i
If Check1.Value = 1 Then
soket(Index).AddId Text6.Text, "ramTin PMC"
End If
soket(Index).LeftRoom Text3.Text
End Sub
Private Function Answer(ByVal Question As String) As String
On Error Resume Next
Dim j As String
Dim s As String
Dim d() As String
Dim y As String
Dim x As String
Dim i As Integer
Dim lng As Long

                    s = Replace(LCase(Question), " ", "")
                    s = Mid(s, InStr(s, "chatting.") + 10)
                    s = Replace(s, "=...", "")
                    s = Replace(s, "thousand", "")
                    s = Replace(s, "hundred", "")
                    s = Replace(s, "and", ",")
                    s = Replace(s, "ten", "10")
                    s = Replace(s, "eleven", "11")
                    s = Replace(s, "twelve", "12")
                    s = Replace(s, "thirteen", "13")
                    s = Replace(s, "fourteen", "14")
                    s = Replace(s, "fifteen", "15")
                    s = Replace(s, "sixteen", "16")
                    s = Replace(s, "seventeen", "17")
                    s = Replace(s, "eighteen", "18")
                    s = Replace(s, "nineteen", "19")
                    s = Replace(s, "twenty-", "2")
                    s = Replace(s, "thirty-", "3")
                    s = Replace(s, "forty-", "4")
                    s = Replace(s, "fifty-", "5")
                    s = Replace(s, "sixty-", "6")
                    s = Replace(s, "seventy-", "7")
                    s = Replace(s, "eighty-", "8")
                    s = Replace(s, "ninety-", "9")
                    s = Replace(s, "twenty", "20")
                    s = Replace(s, "thirty", "30")
                    s = Replace(s, "forty", "40")
                    s = Replace(s, "fifty", "50")
                    s = Replace(s, "sixty", "60")
                    s = Replace(s, "seventy", "70")
                    s = Replace(s, "eighty", "80")
                    s = Replace(s, "ninety", "90")
                    s = Replace(s, "one", "1")
                    s = Replace(s, "two", "2")
                    s = Replace(s, "three", "3")
                    s = Replace(s, "four", "4")
                    s = Replace(s, "five", "5")
                    s = Replace(s, "six", "6")
                    s = Replace(s, "seven", "7")
                    s = Replace(s, "eight", "8")
                    s = Replace(s, "nine", "9") '
                    s = Replace(s, "is?", "")
                    If InStr(s, "-") <> 0 Then
                  y = Mid(s, 2, 1)
                  x = Mid(s, 4, 1)
                  j = Val(y) - Val(x)
                    ElseIf InStr(s, "+") <> 0 Then
                      y = Mid(s, 2, 1)
                          x = Mid(s, 4, 1)
                          j = Val(y) + Val(x)
                    ElseIf InStr(s, "*") <> 0 Then
                          y = Mid(s, 2, 1)
                          x = Mid(s, 4, 1)
                          j = Val(y) * Val(x)
                    ElseIf InStr(s, "whatisthe1stdigitof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                        j = Left(j, InStr(j, "?") - 5)

                    ElseIf InStr(s, "whatisthe2nddigitof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 3)
                        j = Left(j, InStr(j, "?") - 4)

                    ElseIf InStr(s, "whatisthe3rddigitof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 4)
                        j = Left(j, InStr(j, "?") - 3)

                    ElseIf InStr(s, "whatisthe4thdigitof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 5)
                        j = Left(j, InStr(j, "?") - 2)

                    ElseIf InStr(s, "whatisthe5thdigitof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 6)
                        j = Left(j, InStr(j, "?") - 1)


                    ElseIf InStr(s, "asdigits?") <> 0 Then
                          j = Mid(s, InStr(s, "whatis") + 6)
                          j = Left(j, InStr(j, "as") - 1)

                    ElseIf InStr(s, "whichisthesmallest?") <> 0 Then
                          j = Mid(s, InStr(s, "bers") + 4)
                          j = Left(j, InStr(j, ",w") - 1)
                       
                        d = Split(j, ",")
                     
                        lng = d(LBound(d))
                        For i = LBound(d) To UBound(d)
                            If lng > d(i) Then
                                lng = d(i)
                            End If
                        Next
                        j = lng

                    ElseIf InStr(s, "whichisthebiggest?") <> 0 Then
                        j = Mid(s, InStr(s, "bers") + 4)
                          j = Left(j, InStr(j, ",w") - 1)
                       
                        d = Split(j, ",")
                       
                        lng = d(UBound(d))
                        For i = LBound(d) To UBound(d)
                            If lng < d(i) Then
                                lng = d(i)
                            End If
                        Next
                        j = lng

                    ElseIf InStr(s, "the1stnumberof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                          d = Split(j, ",")
                        j = d(0)

                    ElseIf InStr(s, "the2ndnumberof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                     
                        d = Split(j, ",")
                        j = d(1)

                    ElseIf InStr(s, "the3rdnumberof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                          d = Split(j, ",")
                        j = d(2)

                    ElseIf InStr(s, "the4thnumberof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                     
                        d = Split(j, ",")
                        j = d(3)

                    ElseIf InStr(s, "the5thnumberof") <> 0 Then
                        j = Mid(s, InStr(s, "of") + 2)
                        d = Split(j, ",")
                        j = d(4)
                        End If
                    Answer = j

                  End Function
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:44 pm

aqa be injash gir mide lamasab!!!!!
Str = Control.Name
in manzooresh chie akhe!!!!
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:50 pm

dadash khodet formi k goftamo sakhti ya inke az forme reza ya ini k man dadam use kardi?
age male ma k error mide khodet bayad bsazi!!!!!!!
Back to top Go down
http://power-team98.tk
qmars(pkq)
FreeBuzz Team
FreeBuzz Team
qmars(pkq)


Posts : 590
Points : 26098
Thanked : 15
Join date : 2012-05-12
ASL : Q

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 5:51 pm

khodam sakhtam dada!
bazam hamoon eroro mide!
akh fekro kharab karde!
Back to top Go down
6590
T-SBD
T-SBD
6590


Posts : 267
Points : -858
Thanked : 7
Join date : 2012-08-01
ASL : RamTin 18 Fars/Kazeroun

flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitimeFri Dec 07, 2012 6:27 pm

nemidonam dige chikar bayad konam!!! vase khodam mizane k doroste
Back to top Go down
http://power-team98.tk
Sponsored content





flooder - sourec room flooder vb6 help Empty
PostSubject: Re: sourec room flooder vb6 help   flooder - sourec room flooder vb6 help Icon_minitime

Back to top Go down
 
sourec room flooder vb6 help
Back to top 
Page 1 of 2Go to page : 1, 2  Next
 Similar topics
-
» Pursuit Flooder V2.1 | Moshkele Remoter hal shod | + new Option | add - pv - room - dc flooder
» Frb Server Hidden Flooder(Pv Flood + Room Flood + Pv Flood To Room User) Version 1
» 100 room flooder
» flooder room
» FRB room flooder(New)

Permissions in this forum:You cannot reply to topics in this forum
๑۩۞۩๑FreebuzZ๑۩۞۩๑ :: PROGRAMMING ZONE :: Programming's support-
Jump to: