| Latest topics | » سلام علیک و رحمه الله...چه خبرا بچه ها؟
 by DARK Sat Apr 30, 2022 11:59 pm
» oon ghadima!!!
by Inj3ctor Wed Aug 18, 2021 4:26 am
» need a source code of any server for university project help me for it
by xerockss Sun Jun 09, 2019 10:28 pm
» New : Run Python based bots like Aurora, Blacksmith, VBOt in your Android Mobile
by ltc_mkt Wed Feb 27, 2019 5:09 pm
» دوره ی اضافه کردن سکه به برنامه هایی همچون فالوور بگیر و ممبرگیر و ... (خریداری شده)
by mr.pitza Mon Oct 01, 2018 8:10 pm
» hach any id f.a.c.e.b.o.o.k 2019
by christian777 Sat Apr 21, 2018 4:41 am
» هديه للجميع 500 نك فلوود قديم شغالين 500 old ids flood free
by christian777 Mon Apr 09, 2018 6:37 pm
» Freebuzz & Nimbuzz yadet bekheyr !
by DARK Thu Apr 05, 2018 1:54 pm
» new flood 2018 فلود جديد يعمل على جميع انواع نكات لفلود القديمة والجديدة
by christian777 Fri Oct 20, 2017 6:20 am
» STEALTH PROJECT WEB FLOOD NIMBUZZ
by djsaim Sat Sep 30, 2017 8:51 pm
» XIO server & online bots
by ltc_mkt Mon May 29, 2017 8:12 pm
» فریباز دوباره برمیگردد
by Mer+sad Thu Apr 06, 2017 3:34 am
» Xio Server Updated Elite Version
by lekshmi321 Wed Mar 29, 2017 11:35 am
» Join MulTi id nimbuzz 2016
by sami-alarifi Mon Dec 05, 2016 3:09 am
» انجمن تیم امنیتی آنانیموس سکوریتی
by shirsefat Thu Nov 17, 2016 6:12 pm
» Xio Server Latest Version
by shirsefat Thu Nov 17, 2016 6:04 pm
» amooZesh kamele hack dar yek file pdf
by shirsefat Fri Nov 11, 2016 2:23 am
» CRACKER IDS 2017 WORKING
by abdo-osmana Sat Oct 29, 2016 1:43 am
» NEW ... ROOM ANTI CAPCHA 2017 DESTROY ROOMS V 4 BY AL-JOOOCKER@N.C
by abdo-osmana Sat Oct 29, 2016 1:41 am
» NEW FLOOD ROOM AND PV 2017 ANTI CAPTCHA
by abdo-osmana Sat Oct 29, 2016 1:30 am
» add new server Work 24 hours --- تحديث حسابات السيرفرات قم بــاضافه السيرفرات الجديده تعمل 24 ساعه
by abdo-osmana Sat Oct 29, 2016 1:28 am
» new auto id maker
by sandy_rawat Tue Oct 04, 2016 4:24 pm
» wonderful list id arbic for crucker اكبر ليستة ايملات تخمين جديدة
by christian777 Sun Sep 25, 2016 12:59 am
» New Abdo Cobra Auto Id maker Source code working
by Kash007 Sat Sep 24, 2016 10:26 pm
» 2000 id flood free
by christian777 Sun Sep 18, 2016 3:54 am
» new ip address changer with crack@pishaash@n.c
by cebecis Sat Sep 10, 2016 3:19 am
» تجسس على الخصوصية
by majed5160 Thu Aug 25, 2016 3:26 am
» سلام دوستان من
by majed5160 Wed Aug 24, 2016 3:10 am
» Trusted online server bots
by bom Fri Aug 19, 2016 7:59 pm
» فلود جديد ناررررر
by christian777 Sat Aug 13, 2016 10:12 am
» Receive Captcha in PVT C# and VB.NET source code available
by wathk Thu Jul 28, 2016 3:01 am
» Attention nimbuzz users !
by -namakul- Tue Jul 26, 2016 8:27 pm
» Salam man az karbqraye qadimiton hastam lotfan komakam konid :(
by SALIJON* Sat Jul 23, 2016 6:34 pm
» Nimbuzz stylish ids for sale
by msb Wed Jul 20, 2016 12:33 pm
» Nuke Mobileserver V9
by launchar Tue Jul 19, 2016 1:51 pm
» help me please c sharp masters
by launchar Tue Jul 19, 2016 1:39 pm
» salam be dostane qadimi hamgi join bedin bebinm kojain :P
by ghaz_ghaz90 Sat Jul 09, 2016 12:22 am
» Xio Server Update
by ghaz_ghaz90 Fri Jul 08, 2016 11:15 pm
» Xio Auto Capcha ID Maker ( FASTEST IDMAKER EVER)
by karthik~ajay Thu Jul 07, 2016 10:59 pm
» All web defacers and SQLi hach
by mitu143 Thu Jun 16, 2016 1:24 pm
» special daface pages FreeBuzz-Team
by mitu143 Thu Jun 16, 2016 12:59 pm
» Meet A Stranger Room Advertizer BoT
by lekshmi321 Sun Jun 05, 2016 5:14 pm
» NEW STEALTH PROJECT WEB FLOOD NIMBUZZ
by gentarbumi Sun Apr 24, 2016 10:08 pm
» Moving the write using HTML تحريك الكتابة باستخدام جافا سكرييت
by faris.jra7 Sat Apr 23, 2016 11:40 pm
» فلود غرف النيمباز
by saeid Sat Apr 16, 2016 12:43 am
» How to Show Hidden Files and Folders In Windows 7
by i_am~the_best Fri Apr 15, 2016 8:45 am
» How to Earn Money Online From PTC Sites
by i_am~the_best Fri Apr 15, 2016 8:43 am
» Create Id and Chat
by star.iraq Sun Apr 10, 2016 2:51 pm
» Addlist DC + hanger + remote v2.0
by oye Tue Apr 05, 2016 9:18 am
» XIO ADD FLOOD V.2
by lekshmi321 Fri Mar 25, 2016 8:37 pm
|
| | | HelP Remoter & Answer Admin |  |
| | | Author | Message |
|---|
Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: HelP Remoter & Answer Admin Fri Sep 20, 2013 10:50 pm | |
| slm
man vase full bot ke mikham remoter dashte bashe o javab admin ro bede
code ro mikham yani daram ama nemidunam bayad b che shekl vared kunam
vase frb socket visual basic 6
mikham ham javab admin ro bede ham remoter faal bashe
pls yeki cod ro behem bede
ty | |
| | | | vah6ati
T-SBD
Posts : 351
Points : 110
Thanked : 11
Join date : 2013-04-01
ASL : 20 zahedan
Nimbuzz Id : Vah6ati@Nimbuzz.com Tm.Bax.Hoosen@NimBuZz.Com
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 10:55 pm | |
| - Macsoud wrote:
- slm
man vase full bot ke mikham remoter dashte bashe o javab admin ro bede
code ro mikham yani daram ama nemidunam bayad b che shekl vared kunam
vase frb socket visual basic 6
mikham ham javab admin ro bede ham remoter faal bashe
pls yeki cod ro behem bede
ty Salam Dada
- Code:
-
'soket name = soket
Private Sub soket_OnRoomMessage(ByVal RoomName As String, ByVal Id As String, ByVal Message As String)
If InStr(Message, " the right answer to start chatting.") <> 0 Then 'baraye AnTi ADMIN
soket.WriteRoomMessage "room name", Answer(Message) ' mige
End If
If InStr(Message, "pm/") <> 0 Then
Message = Replace(Message, "pm/", "")
soket.WriteRoomMessage "room name", 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
| |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:04 pm | |
| +
vase textremoter kudum az / ro taqir bedam
esme textremoter ro inja chi vared kardi | |
| | | | kiarash
T-SBD
Posts : 365
Points : 68
Thanked : 5
Join date : 2013-07-17
ASL : kiyarash 17sHahsavar(shomaL)
Nimbuzz Id : kia=rash
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:07 pm | |
| Hossein mokhetam  | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:20 pm | |
| - Code:
-
If InStr(Message, "pm/") <> 0 Then
Message = Replace(Message, "pm/", "")
soket.WriteRoomMessage "room name", Message
Code Member Kardan Roo in Qesmate vared kunam?
End If
End Sub | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:40 pm | |
| Pls Baghiye Code ro ham bezar vase remoter
soursi k man daram ba in 2 tae | |
| | | | Ahriman
FreeBuzz Team
Posts : 1286
Points : -1195
Thanked : 5
Join date : 2012-08-19
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:46 pm | |
| bebin bayad ye string tarif k.o.n.i age id jozve id remoter ha ke ba # ya harchi to ye text boxi chizi zakhire shode bood badesh to incodet ye else ham bezari,amoozeshe remote + full bot to bakhshe vb6 hastesh ba sockete frb ham neveshte shode ,oono download k.o.n.i fek konam komaket kone
link:full bot with frb socket with remoter | |
| | | | Macsoud
T-SBD
Posts : 116
Points : 26
Thanked : 1
Join date : 2013-07-08
| | Subject: Re: HelP Remoter & Answer Admin Fri Sep 20, 2013 11:59 pm | |
| in ro download kardam ama b dardam nakhurd | |
| | | | admin
Administrator
Posts : 651
Points : 10562
Thanked : 29
Join date : 2012-04-18
ASL : AFRA 19
| | Subject: Re: HelP Remoter & Answer Admin Sat Sep 21, 2013 12:14 am | |
| - Code:
-
If InStr(Message, "pm/") <> 0 Then
Message = Replace(Message, "pm/", "")
soket.WriteRoomMessage "room name", Message
Code Member Kardan Roo in Qesmate vared kunam?
End If
End Sub - Quote :
- If InStr(Message, "pm/") <> 0 Then
Message = Replace(Message, "pm/", "")
soket.WriteRoomMessage "room name", Message
End If
' khoshtip inja ye if dg tarif k.o.n code memberkardan ro vared kn
if instr(message,"me/")<>0 then
message =replace(message,"me/","")
soket.member Roomname , message
end if
End Sub | |
| | | | Ahmad75
Badbuzzer
Posts : 275
Points : 41
Thanked : 2
Join date : 2013-06-27
ASL : ahmad 18 babolsar
Nimbuzz Id : Monster996
| | Subject: Re: HelP Remoter & Answer Admin Sat Sep 21, 2013 12:50 am | |
| dameton garam bx kheili + dariiiin  | |
| | | | Sponsored content
| | Subject: Re: HelP Remoter & Answer Admin | |
| |
| | | | | | HelP Remoter & Answer Admin | |
|
Similar topics | |
|
| | Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |
