๑۩۞۩๑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
» سلام علیک و رحمه الله...چه خبرا بچه ها؟
socket - Help plz vase frb socket tu VB6 Icon_minitimeby DARK Sat Apr 30, 2022 11:59 pm

» oon ghadima!!!
socket - Help plz vase frb socket tu VB6 Icon_minitimeby Inj3ctor Wed Aug 18, 2021 4:26 am

» need a source code of any server for university project help me for it
socket - Help plz vase frb socket tu VB6 Icon_minitimeby xerockss Sun Jun 09, 2019 10:28 pm

» New : Run Python based bots like Aurora, Blacksmith, VBOt in your Android Mobile
socket - Help plz vase frb socket tu VB6 Icon_minitimeby ltc_mkt Wed Feb 27, 2019 5:09 pm

» دوره ی اضافه کردن سکه به برنامه هایی همچون فالوور بگیر و ممبرگیر و ... (خریداری شده)
socket - Help plz vase frb socket tu VB6 Icon_minitimeby mr.pitza Mon Oct 01, 2018 8:10 pm

» hach any id f.a.c.e.b.o.o.k 2019
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Sat Apr 21, 2018 4:41 am

» هديه للجميع 500 نك فلوود قديم شغالين 500 old ids flood free
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Mon Apr 09, 2018 6:37 pm

» Freebuzz & Nimbuzz yadet bekheyr !
socket - Help plz vase frb socket tu VB6 Icon_minitimeby DARK Thu Apr 05, 2018 1:54 pm

» new flood 2018 فلود جديد يعمل على جميع انواع نكات لفلود القديمة والجديدة
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Fri Oct 20, 2017 6:20 am

» STEALTH PROJECT WEB FLOOD NIMBUZZ
socket - Help plz vase frb socket tu VB6 Icon_minitimeby djsaim Sat Sep 30, 2017 8:51 pm

» XIO server & online bots
socket - Help plz vase frb socket tu VB6 Icon_minitimeby ltc_mkt Mon May 29, 2017 8:12 pm

» فریباز دوباره برمیگردد
socket - Help plz vase frb socket tu VB6 Icon_minitimeby Mer+sad Thu Apr 06, 2017 3:34 am

» Xio Server Updated Elite Version
socket - Help plz vase frb socket tu VB6 Icon_minitimeby lekshmi321 Wed Mar 29, 2017 11:35 am

» Join MulTi id nimbuzz 2016
socket - Help plz vase frb socket tu VB6 Icon_minitimeby sami-alarifi Mon Dec 05, 2016 3:09 am

» انجمن تیم امنیتی آنانیموس سکوریتی
socket - Help plz vase frb socket tu VB6 Icon_minitimeby shirsefat Thu Nov 17, 2016 6:12 pm

» Xio Server Latest Version
socket - Help plz vase frb socket tu VB6 Icon_minitimeby shirsefat Thu Nov 17, 2016 6:04 pm

» amooZesh kamele hack dar yek file pdf
socket - Help plz vase frb socket tu VB6 Icon_minitimeby shirsefat Fri Nov 11, 2016 2:23 am

» CRACKER IDS 2017 WORKING
socket - Help plz vase frb socket tu VB6 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
socket - Help plz vase frb socket tu VB6 Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:41 am

» NEW FLOOD ROOM AND PV 2017 ANTI CAPTCHA
socket - Help plz vase frb socket tu VB6 Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:30 am

» add new server Work 24 hours --- تحديث حسابات السيرفرات قم بــاضافه السيرفرات الجديده تعمل 24 ساعه
socket - Help plz vase frb socket tu VB6 Icon_minitimeby abdo-osmana Sat Oct 29, 2016 1:28 am

» new auto id maker
socket - Help plz vase frb socket tu VB6 Icon_minitimeby sandy_rawat Tue Oct 04, 2016 4:24 pm

» wonderful list id arbic for crucker اكبر ليستة ايملات تخمين جديدة
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Sun Sep 25, 2016 12:59 am

» New Abdo Cobra Auto Id maker Source code working
socket - Help plz vase frb socket tu VB6 Icon_minitimeby Kash007 Sat Sep 24, 2016 10:26 pm

» 2000 id flood free
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Sun Sep 18, 2016 3:54 am

» new ip address changer with crack@pishaash@n.c
socket - Help plz vase frb socket tu VB6 Icon_minitimeby cebecis Sat Sep 10, 2016 3:19 am

» تجسس على الخصوصية
socket - Help plz vase frb socket tu VB6 Icon_minitimeby majed5160 Thu Aug 25, 2016 3:26 am

» سلام دوستان من
socket - Help plz vase frb socket tu VB6 Icon_minitimeby majed5160 Wed Aug 24, 2016 3:10 am

» Trusted online server bots
socket - Help plz vase frb socket tu VB6 Icon_minitimeby bom Fri Aug 19, 2016 7:59 pm

» فلود جديد ناررررر
socket - Help plz vase frb socket tu VB6 Icon_minitimeby christian777 Sat Aug 13, 2016 10:12 am

» Receive Captcha in PVT C# and VB.NET source code available
socket - Help plz vase frb socket tu VB6 Icon_minitimeby wathk Thu Jul 28, 2016 3:01 am

» Attention nimbuzz users !
socket - Help plz vase frb socket tu VB6 Icon_minitimeby -namakul- Tue Jul 26, 2016 8:27 pm

» Salam man az karbqraye qadimiton hastam lotfan komakam konid :(
socket - Help plz vase frb socket tu VB6 Icon_minitimeby SALIJON* Sat Jul 23, 2016 6:34 pm

» Nimbuzz stylish ids for sale
socket - Help plz vase frb socket tu VB6 Icon_minitimeby msb Wed Jul 20, 2016 12:33 pm

» Nuke Mobileserver V9
socket - Help plz vase frb socket tu VB6 Icon_minitimeby launchar Tue Jul 19, 2016 1:51 pm

» help me please c sharp masters
socket - Help plz vase frb socket tu VB6 Icon_minitimeby launchar Tue Jul 19, 2016 1:39 pm

» salam be dostane qadimi hamgi join bedin bebinm kojain :P
socket - Help plz vase frb socket tu VB6 Icon_minitimeby ghaz_ghaz90 Sat Jul 09, 2016 12:22 am

» Xio Server Update
socket - Help plz vase frb socket tu VB6 Icon_minitimeby ghaz_ghaz90 Fri Jul 08, 2016 11:15 pm

» Xio Auto Capcha ID Maker ( FASTEST IDMAKER EVER)
socket - Help plz vase frb socket tu VB6 Icon_minitimeby karthik~ajay Thu Jul 07, 2016 10:59 pm

» All web defacers and SQLi hach
socket - Help plz vase frb socket tu VB6 Icon_minitimeby mitu143 Thu Jun 16, 2016 1:24 pm

» special daface pages FreeBuzz-Team
socket - Help plz vase frb socket tu VB6 Icon_minitimeby mitu143 Thu Jun 16, 2016 12:59 pm

» Meet A Stranger Room Advertizer BoT
socket - Help plz vase frb socket tu VB6 Icon_minitimeby lekshmi321 Sun Jun 05, 2016 5:14 pm

» NEW STEALTH PROJECT WEB FLOOD NIMBUZZ
socket - Help plz vase frb socket tu VB6 Icon_minitimeby gentarbumi Sun Apr 24, 2016 10:08 pm

» Moving the write using HTML تحريك الكتابة باستخدام جافا سكرييت
socket - Help plz vase frb socket tu VB6 Icon_minitimeby faris.jra7 Sat Apr 23, 2016 11:40 pm

» فلود غرف النيمباز
socket - Help plz vase frb socket tu VB6 Icon_minitimeby saeid Sat Apr 16, 2016 12:43 am

» How to Show Hidden Files and Folders In Windows 7
socket - Help plz vase frb socket tu VB6 Icon_minitimeby i_am~the_best Fri Apr 15, 2016 8:45 am

» How to Earn Money Online From PTC Sites
socket - Help plz vase frb socket tu VB6 Icon_minitimeby i_am~the_best Fri Apr 15, 2016 8:43 am

» Create Id and Chat
socket - Help plz vase frb socket tu VB6 Icon_minitimeby star.iraq Sun Apr 10, 2016 2:51 pm

» Addlist DC + hanger + remote v2.0
socket - Help plz vase frb socket tu VB6 Icon_minitimeby oye Tue Apr 05, 2016 9:18 am

» XIO ADD FLOOD V.2
socket - Help plz vase frb socket tu VB6 Icon_minitimeby lekshmi321 Fri Mar 25, 2016 8:37 pm

Search
 
 

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



 

 Help plz vase frb socket tu VB6

Go down 
4 posters
AuthorMessage
$haw
T-SBD
T-SBD
$haw


Posts : 2
Points : 2
Thanked : 0
Join date : 2013-07-24

socket - Help plz vase frb socket tu VB6 Empty
PostSubject: Help plz vase frb socket tu VB6   socket - Help plz vase frb socket tu VB6 Icon_minitimeSun Sep 01, 2013 12:11 am

Salam
chejuri bayad code nevesht ba frb socket k ye id b surat automatic b soale admin javab bd vase join room?
harki mitune komak kone plz
Back to top Go down
Charon
Administrator
Administrator
Charon


Posts : 564
Points : 15067
Thanked : 23
Join date : 2012-08-31

socket - Help plz vase frb socket tu VB6 Empty
PostSubject: Re: Help plz vase frb socket tu VB6   socket - Help plz vase frb socket tu VB6 Icon_minitimeSun Sep 01, 2013 12:16 am

[You must be registered and logged in to see this link.]

behgard lotefanzj happy
Back to top Go down
3H4Y4N
T-SBD
T-SBD
avatar


Posts : 86
Points : 21
Thanked : 0
Join date : 2013-06-11
ASL : Shayan 16

socket - Help plz vase frb socket tu VB6 Empty
PostSubject: Re: Help plz vase frb socket tu VB6   socket - Help plz vase frb socket tu VB6 Icon_minitimeSun Sep 01, 2013 12:24 am

Code:
Private Sub sk_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then
 sk.WriteRoomMessage Text4.Text, Answer(Message)
End If
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, 1, 3)
                        x = Mid(s, 3, 3)
                        j = Val(y) - Val(x)
                    ElseIf InStr(s, "+") <> 0 Then
                        y = Mid(s, 2, 2)
                        x = Mid(s, 1, 2)
                        j = Val(y) + Val(x)
                    ElseIf InStr(s, "*") <> 0 Then
                        y = Mid(s, 1, 3)
                        x = Mid(s, 3, 3)
                        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
Biya In Code Ro Paste Kun To Qesmate Code Nevisit
Back to top Go down
*yas-sefid
T-SBD
T-SBD
*yas-sefid


Posts : 4
Points : 0
Thanked : 0
Join date : 2013-08-01

socket - Help plz vase frb socket tu VB6 Empty
PostSubject: Re: Help plz vase frb socket tu VB6   socket - Help plz vase frb socket tu VB6 Icon_minitimeSun Sep 01, 2013 3:00 am

ايول
Back to top Go down
Sponsored content





socket - Help plz vase frb socket tu VB6 Empty
PostSubject: Re: Help plz vase frb socket tu VB6   socket - Help plz vase frb socket tu VB6 Icon_minitime

Back to top Go down
 
Help plz vase frb socket tu VB6
Back to top 
Page 1 of 1
 Similar topics
-
» CHERA FRB SOCKET VASE MAN KAR NEMIDE
» bia to inam vase kasai ke ba goshi mian vase rahati kareshon yani aziat kardane addlist
» socket id maker ba vb6 new
» Help add floooder with Socket in C#
» Help dar Socket Nevisi VB6 - File Ocx

Permissions in this forum:You cannot reply to topics in this forum
๑۩۞۩๑FreebuzZ๑۩۞۩๑ :: PROGRAMMING ZONE :: Visual basic 6-
Jump to: