[سعود]

(21-09-15, 10:05 PM)atefkhalf2004 كتب : حضرتك   الامثلة  لم  تنزل  download
معلهش
تقبل  منا  الطلب
مثال من حضرتك

اخي الكريم انت شفت الصفحة!!!
المسالة مش محتاجة تحميل مثال لان الكود بسيط ..

PHP كود :

If lstnames.SelectedItems.Count > 0 Then
  For Each strSeleted As String In lstnames.SelectedItems
    'somehow a list item is in fact a string
     Dim strname As String = " " & strSeleted
     Dim lngPos As Long = 1
     Do
         Dim lretval As Long = Shell("net send " & strname & _
    " """ & Mid(strMessage, lngPos, iChunk) & """", vbHide)
         lngPos += iChunk
         'pause to stop out of sequence message chunks
         Sleep(100)
     Loop Until lngPos > Len(strMessage)
     strStatus &= strname.ToString
  Next strSeleted
End If