30-06-17, 01:01 PM
(30-06-17, 12:24 PM)L_3 كتب :PHP كود :Dim strArray As String() = PV.PVOWN.Text.Split(New Char() {"#"c})
Dim i As Integer = strArray.GetLowerBound(0)
Me.ProgressBar1.Maximum=100
For i=0 To strArray.Count-1
Try
Me.ProgressBar1.Value=(i/(strArray.Count-1))*100
Application.DoEvents
emad21.Send("<message
xmlns='jabber:client' to='" + room.Text + "@conference.nimbuzz.com/" +
strArray(i) + "' type='chat' id='292'><body>" + mpnone.Text +
"</body><active xmlns='http://jabber.org/protocol/chatstates' /><x
xmlns='jabber:x:event'><composing /></x></message>")
i += 1
Catch ex As Exception
End Try
Next
شكرا مبدع
