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
|
| | Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) | |
| | Author | Message |
---|
DARK T-SBD
Posts : 846 Points : -1821 Thanked : 17 Join date : 2012-10-17 ASL : DARK ! Nimbuzz Id : 0xd4rk@nimbuzz.com
| Subject: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Mon Sep 02, 2013 9:05 pm | |
| - Quote :
ba salam , kheeeeeeeeeeili didam ke topic midan rajebe vb6 va aslan nemidunan chetor barnamashuno benevisan va nemidunan ke to barname nevisi vase nim , 30% marbut be mid va left mishe!
mikham be kesaei ke vb6 kar mikonan yad bdam chetori ba mid va left kar konan to vb.net az SubString va Index Of use mishe va to vb6 az Mid va Left! mid va left to barname nevisi vase nim to vb6 KHEYLI KHEYLI karbord dare mid va left vase joda kardane string be kar mire (albate mid va left karaeiaye dige ei ham daran vali vase nim tozih midam)
dasture Kollish ine: - Code:
-
String = Mid(String,instr(String,"data") +integer) String = Left(String,instr(String,"data") -integer)
be jaye String , reshte qarar midim be jaye Integer , Adad (age nemidunid string va integer chie behtare in matlabo nakhunid va beshinid az aval vb ro yad begirid!) (kar ba xml az mohem tarin chizaie ke to soft nevisi vase nim estefade mishe , age az xml sar dar nemiari bayad rajebesh motale-e k.o.n.i dar hade kam)
ba zabune sade tozih midam (dar hade nim): be tore mesal , to sube DataArrival (to winsock) mikhaym ye kari konim vaqti Add umad vase idimun , be surate khodkar add ro Subscribed kone (Accpet)
to in halat aval bayad ye if vasash tarif konim ke shart bezarim va begim: age dakhele String , "beyne from=' va ' ro joda k.o.n payane if
inam code kamel: - Code:
-
If Instr(GetData,"<presence") Then If Instr(GetData,"type='subscribe'") Then
Dim Taraf As String Taraf = Mid(GetData,instr(GetData,"from='") +6) Taraf = Left(Taraf,Instr(Taraf,"'") -1)
sk.SendData "<presence to='" + Taraf + "' type='subscribe' />" sk.SendData "<presence to='" + Taraf + "' type='subscribed' />"
End If End If
khob in qesmato bebinid: - Code:
-
Dim Taraf As String Taraf = Mid(GetData,instr(GetData,"from='") +6) Taraf = Left(Taraf,Instr(Taraf,"data") -1)
aval az hame Stringe Taraf tarif shode bad ba mid va left joda karde tariqeye joda kardan: aval qesmatio ke mikhaym joda konim ro dar nazar migirim masalan Xmle Kollie daryafte Add ine: - Code:
-
<presence from='user@nimbuzz.com' type='subscribe />
khob mibinim ke idie taraf beyne from=' va ' hast ba mid va left be in surat joda mikonim: 1.jaei ke mikhaym joda konim ro hefz mikonim 2.dasture example (hamun dasture kolli ke behetun dadam) ro minevisim 3.be jaye Stringe aval va charom va panjom va sheshom , Stringi ke mikhaym dakhelesh jaeio ke joda kardimo berizim mizarim 4.be jaye Stringe dovom va sevom , Stringi ke mikhaym azash qesmate morede nazaremuno joda konim ro mizarim 5.be jaye data ye aval , qesmate avale jaeio ke mikhaym joda konim ro mizarim ( from=' ) va be jaye data ye dovom , qesmate dovome jaeio ke mikhaym joda konim ro mizarim ( ' ) 6.be jaye integere aval , tedad character haye dataye aval ro mizarim ( +6 ) 7.be jaye integere dovom , -1 mizarim
TAMAM!
behtar az in nemitunam tozih bdam :-/
| |
| | | saman..tanha T-SBD
Posts : 126 Points : 4966 Thanked : 0 Join date : 2012-08-01
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Mon Sep 02, 2013 9:19 pm | |
| nice topic mamad vaqean topic mofidie .
inam + | |
| | | нάήõмάή Administrator
Posts : 193 Points : 988 Thanked : 15 Join date : 2012-04-30 ASL : aria 24-KHORAMABAD Nimbuzz Id : нάήõмάή@nimbuzz.com
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Mon Sep 02, 2013 9:31 pm | |
| nice mamad tu vb.net ham mituni az mid o left use k.o.n.i - Code:
-
Dim xml As String = "<presence from='user@nimbuzz.com' type='subscribe />" Dim target As String = Microsoft.VisualBasic.Mid(xml, InStr(xml, "from='") + 6) target = Microsoft.VisualBasic.Left(target, InStr(target, "'") - 1) MsgBox(target) | |
| | | DARK T-SBD
Posts : 846 Points : -1821 Thanked : 17 Join date : 2012-10-17 ASL : DARK ! Nimbuzz Id : 0xd4rk@nimbuzz.com
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Mon Sep 02, 2013 9:54 pm | |
| doroste aria tozihat vase baqie: mid va left joze-e vbscript hast va vb.net vase inke jash khali namune dakhele librarysh to qesmate Microsoft.visualbasic hameye chizaei ke to vbscript hast ro tarif karde
vali be nazare khodam substring va indexof behtare. | |
| | | ekbir T-SBD
Posts : 438 Points : 29 Thanked : 2 Join date : 2013-04-29 ASL : :)
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Mon Sep 02, 2013 10:08 pm | |
| mamad toke inghad jaleb amozesh midi biao yekari k.o.n yek anjoman amozesh vb6 ya topic baz k.o.n to site vb6 nimbuzz tike tike rozi 2ta ya yek matlabo amozesh bede karet kheyli jaleb bod behet + midam dash :x | |
| | | saman..tanha T-SBD
Posts : 126 Points : 4966 Thanked : 0 Join date : 2012-08-01
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) Tue Sep 03, 2013 1:20 am | |
| | |
| | | Sponsored content
| Subject: Re: Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) | |
| |
| | | | Amoozeshe kar ba mid va left dar VB6 (30% az barname nevisi vaseye nimbuzz dar vb6) | |
|
Similar topics | |
|
| Permissions in this forum: | You cannot reply to topics in this forum
| |
| |
| |