help vb6 programmera bian

Subject: help vb6 programmera bian Fri Jul 12, 2013 1:01 pm

slm. aqa man ye bot daram ba winsocke na frbsocket. hala mikham ye remote besh bedam ke age to pvish goftam id/m,ostashar onvaqat text1 beshe m,ostashar.

bazam migam bote ba winsocke ha .(xml)

mc bax

Subject: Re: help vb6 programmera bian Fri Jul 12, 2013 1:15 pm

Code:: If InStr(GetData, "<body>") <> 0 And InStr(GetData,"@conference.nimbuzz.com/" & remoter) <> 0 Then

Dim dastor As String

dastor = Mid(GetData, InStr(GetData, "<body>") + 6)

dastor = left(dastor, InStr(dastor, "<") - 1)

If Instr(dastor,"id/") then

Dim T As String

T = Mid(dastor, InStr(dastor, "/") + 1)

Text1.Text = T

End If

End If

Age Dasture Koli Vase Remoter Mikhay Bego behet Amoozesh midam be behtarin ravesh.

Subject: Re: help vb6 programmera bian Fri Jul 12, 2013 1:31 pm

mc mishe ba xmle getpm tozih bedi vasam?

Subject: Re: help vb6 programmera bian Fri Jul 12, 2013 1:40 pm

Code:: 'Amoozeshe Remoter To VB6 (Be Tore Koli va behtarin ravesh)

'Aval az hame begam ke xml pm az room ke daryaft mishe be tore koli Ine:

'1.tush From Vojud dare (chun az tarafe kesi miad)
'2.Type hamishe GorupChat hast (chun az tarafe Roome)
'3.Tuye From hamishe @conference.nimbuzz.com Vojud dare (Chun az tarafe roome)
'4.badaneye pm hamishe beyne <body> va </body> hast (chun type az noe chat hast (pm))

If InStr(GetData, "<body>") <> 0 And InStr(GetData,"@conference.nimbuzz.com/" & remoter) <> 0 Then 'migim age dakhele XML , Type Gorup chat shod va Pm dahande Remotere ma bud
If InStr(GetData,"type='gorupchat'") <> 0 Then ' age type = Gorup chat bud (Pm az tarafe room)

Dim dastor As String ' Reshte Dastor ro tarif mikonim

dastor = Mid(GetData, InStr(GetData, "<body>") + 6)
dastor = left(dastor, InStr(dastor, "<") - 1)
'to dasture bala ba Mid Va Left beyne <body> va </body> ro dar miarim az xml (beyne in 2ta pmi ke taraf dade hast)

If InStr(dastor, "/") Then ' migim age dakhele dasturemun '/' bud edame bede ....
Dim D, T As String ' Reshteye D (ke mishe dastur) va reshte T (ke mishe Target) ro tarif mikonim

D = left(dastor, InStr(dastor, "/") - 1) ' D = mishe ba harchi ke paein tar az / bud ( - 1)
T = Mid(dastor, InStr(dastor, "/") + 1) ' T = Mishe ba harchi bala tar az / bud ( +1 )

D = LCase(D) ' tamame horufe dastur ro kuchik mikonim ta soft ba moshkele kuchik ya bozorg budane horuf ru be ru nashe

'hala inja mitunim dasturamuno set konim be rahati mese abe khordan :D

'be tore mesal mikhaym ye remoter set konim va remoteremun to text2 bayad set konim
'mikhaym dastur ham R2 bashe (yani Remoter2)

If D = "r2" Then ' age dastur = bud ba R2 kare ziro anjam bede:
Text2.Text = T ' Text2 ro = k.o.n ba Taraf ( ke bala towzih dadam)
End If 'Payane If

If D = "pm" ' age dastur = bud ba pm kare ziro anjam bede:
Ws.SendData "<message type='gorupchat' to='" & room & "@conference.nimbuzz.com' id='dark'><body>" & T & "</body></message>" 'xml pm to room ro ba pme Target Send k.o.n
End If

'Dige harchi bekhayd mitunid ezafe konid

End If ' payane avalin If
End If ' payane Dovomin If

» programmera bian to [ instagram.com ]
» MehdiComponent.dll 0.0.2.5 Beta 4 ( Update ) Programmera Bian
» Mosabeqe Beyne Programmera [Age fkr mikoni programmeri bia 2]
» Hame bian to
» dabirestania bian too