[كود] بديل مؤقت لاكواد كشف الاجهزة المتصلة بالشبكة

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