تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] بديل مؤقت لاكواد كشف الاجهزة المتصلة بالشبكة
#1
السلام عليكم ورحمة الله وبركاته
طبعا حاولت -  مرارا وتكرارا خصوصا بويندوز 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 ObjectAs EventArgsHandles MyBase.Load
        For id 
2 To 6
            Dim pip 
As String "192.168.1." id
            If ping
(pipThen
                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 

بقي المستقبل
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
كالعادة دائما توقفني اشياء بسيطة جدا
كيف لي ان استقبل من client ببرنامج مخصص فقط للاستقبال؟
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم