[سعود]

السلام عليكم ورحمة الله وبركاته
طبعا حاولت -  مرارا وتكرارا خصوصا بويندوز 8  و 10  - جلب كل الاجهزة المتصلة عن طريقة الراوتر(او المودم اللي هو عندي باسم شامل) فلم استطع.

فلجات لحيلة عسى ان تعجبكم.
وهي بناء على عدد الاجهزة المتصلة بالراوتر.
لنفترض مثلا 6 اجهزة .
الاجراءات التالية تؤدي الغرض

PHP كود :

Private Function ping(ByVal ip As String) As Boolean
        ping = My.Computer.Network.Ping(ip)
    End Function

    Private Function gpcn(ByVal ip As String) As String
        On Error Resume Next
        gpcn = Net.Dns.GetHostEntry(ip).HostName
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For id = 2 To 6
            Dim pip As String = "192.168.1." & id
            If ping(pip) Then
                On Error Resume Next
                ListBox1.Items.Add(gpcn(pip))
            End If
        Next
    End Sub 


هذه الخطوة الاولى لتلبية طلب الاخ هنا
العمل مستمر ..إنتظروا

---

انتهيت من برنامج المدير او المرسل والتالي هو الكلاس

PHP كود :

Imports System.IO
Imports System.Threading
Imports System.Net.Sockets
Imports System.Net
Imports System.ComponentModel
Public Class Form1
    'Dim listener As TcpListener
    Dim client As TcpClient
    Dim pcips As New List(Of String)
    Private Function ping(ByVal ip As String) As Boolean
        ping = My.Computer.Network.Ping(ip)
    End Function
    Private Function gpcn(ByVal ip As String) As String
        On Error Resume Next
        gpcn = Net.Dns.GetHostEntry(ip).HostName
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For id = 2 To 6
            Dim pip As String = "192.168.1." & id
            If ping(pip) Then
                On Error Resume Next
                Dim pn As String = gpcn(pip)
                If pn.ToString.ToLower.Contains(My.Computer.Name.ToLower) = False Then
                    pcips.Add(pip)
                    ListBox1.Items.Add(gpcn(pip))
                End If
            End If
        Next
    End Sub
    Private Sub ListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListBox1.MouseClick
        If sender.selectedindex = -1 Then Exit Sub
        Dim str As String = InputBox("اكتب الرسالة التي تود ارسالها للمستخدم: " & sender.text)
        If str.Trim <> "" Then
            client = New TcpClient(pcips(sender.selectedindex).ToString, "9999")
            Dim streamw As New StreamWriter(client.GetStream)
            streamw.Write(str)
            streamw.Flush()
            client.Close()
            MsgBox("تم الارسال")
        Else
            MsgBox("NONO", MsgBoxStyle.Critical, "")
            Exit Sub
        End If
    End Sub
End Class 


بقي المستقبل

[سعود]

كالعادة دائما توقفني اشياء بسيطة جدا
كيف لي ان استقبل من client ببرنامج مخصص فقط للاستقبال؟