07-04-13, 12:30 PM
السلام عليكم ورحمة الله وبركاته
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
أخي الكريم
تفضل هذا الكود
كود :
If dat.Contains("<message xmlns='jabber:client' from='") = True Then
Dim Start As Integer = dat.ToLower.IndexOf("<body>") + 6
msg = dat.Substring(Start, dat.ToLower.IndexOf("</body>") - Start)
End If
بالتوفيق
بارك الله فيك
السلام عليكم ورحمة الله وبركاته
