Qabul Kardan AutoMatic Add Dar Visual Basic

Aqa Age Baladi June Azizet Dariq Nakon Yadam Bede 1Mahe Donbalesham
Man Mikham Be Softi Ke Sakhtam Bfahmunam Age Kasi Addesh Kard AutoMatic Addo Qabul Kone Ama nemitunam behesh bfahmunam
Kolan Ye Jizo Nemitunam Be Soft Bfahmunam Unam Yineke Tarafe Moqablo In From Lamasabo Nemitunam Tu Xml Chi Benvisam Masalan Yeki Addam Kard Hala Man Bayad Qabul Konamo Adde Uno J Bdam
Ba in Code; bejaye un kalame " & TargetUsername & " az koja Bfahmunam kasi Ke addet Kardaro Bzar Unja Ke Add Beshe

Code:

<presence to='" & TargetUsername & "@nimbuzz.com' type='subscribe'></presence>

Hamin Etefaq Vase Pv Dadan Be Soft Ham Moshkel Daram; Az Koja Behesh Bfahmunam Age Kasi Pv Dad To Flan Matno Bfrest Khob Bayad Behesh Bfahmun Age Flan ID Flan Texto Dad To Flan Texto Be Hamun ID Bede Fahmidid???
Kholase Komakam KOnid plzzz

UP

Trtib asar dade mshe

nega
age vaghan balad bashi yekam
[You must be registered and logged in to see this link.] add kon
yadet midam kari nadare ye string tarif mikonim ke kc add dad x.Send("xml add ok kardan") :D add kon mifahmonamet azizam

Addeto Basti Haji

mamad alan 2ovin bare to frb idto dadi bra add on dafe ham baste bud

yeki aqayi kone behesh bege baz kone ye chand min

UP

age vb6 mikhay freebuzzsocket.ocx ro del kon khodesh ye khasiat dare be name addoption ke vaghti be surate zir tarifesh koni add ro ghabul mikone

Code:

socket.addoption = autoaccept

age dot nete va az lib use mikoni jai ke xml miad coda zir ro bezar

Code:

 
if instr(xml,"type='subscribe'>")<>0 then
dim id as string
id=mid(xml,instr(xml,"from=')+6)
di=left(id,instr(id,"')-1)
msgbox id & " be shoma add dade
end if