| HElp For Show Add List In Vb6 | |
|
|
Author | Message |
---|
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: HElp For Show Add List In Vb6 Wed May 01, 2013 5:12 pm | |
| slm dostan
Mikham Ye Soft BEsazam
Alan Hamechi6 kamele
Faqat Mikham Addlist ID Ri Ham NEshun Bede
Bayad Chikar KOnam ?
Plz In Dafe Ro Javab Bedid
Note : Ba WinSock Ba6e
| |
|
| |
ahoora94 T-SBD
Posts : 212 Points : 977 Thanked : 5 Join date : 2012-09-05 ASL : Khoz-Izeh-MiR Nimbuzz Id : q(-_o)p@n.c
| Subject: Re: HElp For Show Add List In Vb6 Wed May 01, 2013 6:33 pm | |
| dada6 ba mid va left id haro joda k.o.n bezar to listbox ye halghe for mizari ye moteghayer tarif mikoni bebin dada6 intori mishe ye moteghayer bezar esmesho bezar xml ono barabare xml daryaftit gharar bede | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 10:29 am | |
| slm daj
Mc
age Mije Dakhele Ye Project Behem Tozih Bede Mamnoon Mijam
Source SHo BEzar | |
|
| |
ahoora94 T-SBD
Posts : 212 Points : 977 Thanked : 5 Join date : 2012-09-05 ASL : Khoz-Izeh-MiR Nimbuzz Id : q(-_o)p@n.c
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 3:32 pm | |
| idimo add k.o.n ta barat begam chetore | |
|
| |
logic T-SBD
Posts : 650 Points : 26018 Thanked : 3 Join date : 2012-08-15 ASL : farhad 21 teh
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 5:09 pm | |
| - ahoora94 wrote:
- idimo add k.o.n ta barat begam chetore
duste aziz age inja porside pas inja ham javab bede ta baghie ham betunan estefade konan na inke tedade addlistaro afzayesh bedi | |
|
| |
mohammad FreeBuzz Team
Posts : 2177 Points : 17268 Thanked : 39 Join date : 2013-02-24 ASL : mohammad Nimbuzz Id : parwardgara@n.c
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 5:41 pm | |
| - logic wrote:
- ahoora94 wrote:
- idimo add k.o.n ta barat begam chetore
duste aziz age inja porside pas inja ham javab bede ta baghie ham betunan estefade konan na inke tedade addlistaro afzayesh bedi farhad dahanet servic in harfet mese joke ful funy bod lol | |
|
| |
logic T-SBD
Posts : 650 Points : 26018 Thanked : 3 Join date : 2012-08-15 ASL : farhad 21 teh
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 5:43 pm | |
| | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Thu May 02, 2013 8:01 pm | |
| avaz Kal Andakhtan Ba Ham Javabe Mano Bedid | |
|
| |
logic T-SBD
Posts : 650 Points : 26018 Thanked : 3 Join date : 2012-08-15 ASL : farhad 21 teh
| Subject: Re: HElp For Show Add List In Vb6 Fri May 03, 2013 7:32 pm | |
| - ($enator) wrote:
- avaz Kal Andakhtan Ba Ham Javabe Mano Bedid
kasi ke baiad javab bede guya naz mikone be ma che | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Sat May 04, 2013 7:55 pm | |
| Ajab
Pas TeaM Frb Hich KodomeShun Balad Nistan?
Khobe Vala
| |
|
| |
mahdi-1375 T-SBD
Posts : 145 Points : 233 Thanked : 10 Join date : 2013-02-10 ASL : Mahdi male Gorgan Nimbuzz Id : mahdi1375@n.c
| Subject: Re: HElp For Show Add List In Vb6 Sat May 04, 2013 8:05 pm | |
| - Code:
-
If InStr(mahdi, "<presence from='") <> 0 Then Dim id As String id = Mid(mahdi, InStr(mahdi, "<presence from='") + 16) id = Left(id, InStr(id, "@") - 1) List1.AddItem id End If age soali dashti to hamin topic replay k.o.n | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Sat May 04, 2013 9:17 pm | |
| MC daj.
Mije Ruye Ye Source Behem Tozih BEdi? | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Sun May 05, 2013 1:47 pm | |
| | |
|
| |
logic T-SBD
Posts : 650 Points : 26018 Thanked : 3 Join date : 2012-08-15 ASL : farhad 21 teh
| Subject: Re: HElp For Show Add List In Vb6 Sun May 05, 2013 1:59 pm | |
| - ($enator) wrote:
- Chi jod?
codi ke dadaro bendaz akhare data arrival et mindazi unja ke zade mahdi ro ham ba un esmi ke khodet avale data arrival gozashti avaz mikoni bad ye list mindazi to form et esmesho ba uni ke tu code set mikoni bad idio on mikoni.be hamin sadegi | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Sun May 05, 2013 7:32 pm | |
| Injuri daj nagereftam . Plz Age Mije Ruye Yek Project Behem Tozih Bede | |
|
| |
gherti69 T-SBD
Posts : 312 Points : -8712 Thanked : 3 Join date : 2012-07-23 ASL : sHaHrAm 22 zAhEdAn
| Subject: Re: HElp For Show Add List In Vb6 Sun May 05, 2013 10:04 pm | |
| - Code:
-
Dim u As Integer Dim o As Integer Dim p As Integer
If InStr(xml, "<item subscription='both'") <> 0 Then Dim ehem As String Dim arr() As String arr = Split(xml, "jid='") xml = xml & "jid='" For w = LBound(arr) To UBound(arr) + 1 xml = Mid(xml, InStr(xml, "jid='") + 5) If InStr(xml, "jid='") <> 0 Then ehem = Mid(xml, InStr(xml, "jid='") + 5) ehem = Left(ehem, InStr(ehem, "@") - 1)
For u = 0 To List1.ListCount - 1 If List1.List(u) = ehem Or InStr(List1.List(u), "fb.nimbuzz.com") <> 0 Or InStr(List1.List(u), "gtalk.nimbuzz.com") <> 0 Or InStr(List1.List(u), "twitter.nimbuzz.com") <> 0 Or InStr(List1.List(u), "yahoo.nimbuzz.com") <> 0 Or InStr(List1.List(u), "chat.f.a.c.e.b.o.o.k.com") <> 0 Then List1.RemoveItem (u) Next u
List1.AddItem ehem End If Next w End If
ino akhare sube data arrival copy k.o.n. | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Mon May 06, 2013 12:53 pm | |
| Man Migam Nare . Migi Shir BEgir .
Bw Migam Dakhele Ye Project Behem Tozih Bede
Bad Project Ro Upload k.o.n Linkesho Bede BE MEe | |
|
| |
logic T-SBD
Posts : 650 Points : 26018 Thanked : 3 Join date : 2012-08-15 ASL : farhad 21 teh
| Subject: Re: HElp For Show Add List In Vb6 Mon May 06, 2013 2:22 pm | |
| e zarb ol masal kharam bede kharjim bede ta biam barat arz konam ? age mikhay on shodane id ro ham befahmi yani a ye tir 2 neshun projrctash tu bakhshe e marbute hast. nega mikoni sakhte ama dar amal asune | |
|
| |
gherti69 T-SBD
Posts : 312 Points : -8712 Thanked : 3 Join date : 2012-07-23 ASL : sHaHrAm 22 zAhEdAn
| Subject: Re: HElp For Show Add List In Vb6 Tue May 07, 2013 2:38 am | |
| - ($enator) wrote:
- Man Migam Nare . Migi Shir BEgir . Bw Migam Dakhele Ye Project Behem Tozih Bede Bad Project Ro Upload k.o.n Linkesho Bede BE MEe
Enghad source amade dl kardin ke alan dg behetun bedehkaram shodimo ella bella bayad source bedim. Na dadash dg source tatil. Chizai ke lazeme vase yad giri sourceshun hast. Kheyliam bishtaresh hast. Soala az in be bad injur javab dade mishan. Source dg nakhayd. Hala yeki az khubiye khodesh miad source mide hesabesh jodast. Vali dg talabkar nabashin ke source bede. Reza ye source login id gozashte ba winsock. Uno dl k.o.n in code ke behet dadam ro bezar tush. Ye listboxam be formet ezafe k.o.n. In kheyli kare sakhtiye? Bad esme khodetunam mizarin programer! (jahate jologiri az kal kal, manam hichi yad nadaram. Programer ham nistam) | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Tue May 07, 2013 12:07 pm | |
| Tanks Dadash Bebin Cod Ro InJuri dorost Gozashtam ? - Code:
-
Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim u As Integer Dim o As Integer Dim p As Integer
If InStr(xml, "<item subscription='both'") <> 0 Then Dim ehem As String Dim arr() As String arr = Split(xml, "jid='") xml = xml & "jid='" For w = LBound(arr) To UBound(arr) + 1 xml = Mid(xml, InStr(xml, "jid='") + 5) If InStr(xml, "jid='") <> 0 Then ehem = Mid(xml, InStr(xml, "jid='") + 5) ehem = Left(ehem, InStr(ehem, "@") - 1)
For u = 0 To List1.ListCount - 1 If List1.List(u) = ehem Or InStr(List1.List(u), "fb.nimbuzz.com") <> 0 Or InStr(List1.List(u), "gtalk.nimbuzz.com") <> 0 Or InStr(List1.List(u), "twitter.nimbuzz.com") <> 0 Or InStr(List1.List(u), "yahoo.nimbuzz.com") <> 0 Or InStr(List1.List(u), "chat.f.a.c.e.b.o.o.k.com") <> 0 Then List1.RemoveItem (u) Next u
List1.AddItem ehem End If Next w End If End Sub | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Thu May 09, 2013 2:33 pm | |
| | |
|
| |
gherti69 T-SBD
Posts : 312 Points : -8712 Thanked : 3 Join date : 2012-07-23 ASL : sHaHrAm 22 zAhEdAn
| Subject: Re: HElp For Show Add List In Vb6 Thu May 09, 2013 5:02 pm | |
| to maro gerefti engar! akhe tu data arival nabayad xmlaye connecto besendi?? ajaba!!! idt connect nashe vali addlistesh namayesh dade beshe khoda khodesh rahm kone - Code:
-
Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error GoTo pekh Dim xml As String ws.GetData xml xml = Replace(xml, """", "'") DoEvents
If InStr(xml, "<stream:features><starttls xmlns='urn:ietf:params:xml:ns:xmpp-tls'/><compression xmlns='http://jabber.org/features/compress'><method>zlib</method></compression><mechanisms xmlns='urn:ietf:params:xml:ns:xmpp-sasl'><mechanism>PLAIN</mechanism><mechanism>DIGEST-MD5</mechanism></mechanisms><register xmlns='http://jabber.org/features/iq-register'/></stream:features>") <> 0 Then Dim aham As String aham = EncodeBase64(StrConv(vbNullChar + id.Text + vbNullChar + psw.Text, vbFromUnicode)) ws.SendData "<auth id='sasl2' xmlns='urn:ietf:params:xml:ns:xmpp-sasl' mechanism='PLAIN'>" + aham + "</auth>" End If If InStr(xml, "<success xmlns='urn:ietf:params:xml:ns:xmpp-sasl'/>") Then ws.SendData "<stream:stream to='nimbuzz.com' xmlns='jabber:client' xmlns:stream='http://etherx.jabber.org/streams' version='1.0'><xml version='1.0'></xml>" ws.SendData "<iq type='set' id='xml'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'><resource>" + rec.Text + "</resource></bind></iq>" End If
If InStr(xml, "<iq id='xml' type='result'><bind xmlns='urn:ietf:params:xml:ns:xmpp-bind'>") <> 0 Then ws.SendData "<iq to='nimbuzz.com' type='set' id='xml'><session xmlns='urn:ietf:params:xml:ns:xmpp-session'/></iq>" pin = True Timer1.Enabled = True End If
'=========balaiya vase logine id bodan.=======
'=========painiya vase get addlist============ Dim u, o, p As Integer
If InStr(xml, "<item subscription='both'") <> 0 Then Dim ehem As String Dim arr() As String arr = Split(xml, "jid='") xml = xml & "jid='" For w = LBound(arr) To UBound(arr) + 1 xml = Mid(xml, InStr(xml, "jid='") + 5) If InStr(xml, "jid='") <> 0 Then ehem = Mid(xml, InStr(xml, "jid='") + 5) ehem = Left(ehem, InStr(ehem, "@") - 1)
For u = 0 To List1.ListCount - 1 If List1.List(u) = ehem Or InStr(List1.List(u), "fb.nimbuzz.com") <> 0 Or InStr(List1.List(u), "gtalk.nimbuzz.com") <> 0 Or InStr(List1.List(u), "twitter.nimbuzz.com") <> 0 Or InStr(List1.List(u), "yahoo.nimbuzz.com") <> 0 Or InStr(List1.List(u), "chat.f.a.c.e.b.o.o.k.com") <> 0 Then List1.RemoveItem (u) Next u
List1.AddItem ehem End If Next w End If
pekh: End Sub
Last edited by gherti69 on Thu May 09, 2013 5:19 pm; edited 1 time in total (Reason for editing : code edite shod) | |
|
| |
ATA$H T-SBD
Posts : 79 Points : 17 Thanked : 0 Join date : 2013-04-11
| Subject: Re: HElp For Show Add List In Vb6 Thu May 09, 2013 7:15 pm | |
| daj Roye In EncodeBase64 Eroor Mide | |
|
| |
.syntax_error. T-SBD
Posts : 198 Points : 1011 Thanked : 1 Join date : 2012-09-17
| Subject: Re: HElp For Show Add List In Vb6 Sun May 12, 2013 2:28 pm | |
| FOR SHOW LIST IN YOUR CONTACT LIST,HERE THE SAMPLE PARSING ON HOW TO PARSE ALL IN LIST... DOWNLOAD SAMPLE I HOPE I CAN HELP YOU BY THIS... [You must be registered and logged in to see this link.] | |
|
| |
Sponsored content
| Subject: Re: HElp For Show Add List In Vb6 | |
| |
|
| |
| HElp For Show Add List In Vb6 | |
|