[MOSTAFA.KAMEL]

(07-02-18, 11:46 PM)saad mahyoub كتب : في نفس الفورم اخي مصطفي

حضرتك بس    الكود الخاص بالاتصال اهو تمام الى هيتصل ويعمل تسجيل دخول للسيرفر 

كود :

       Dim IPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ip.Text)
       Dim mk = New Mikrotik(IPAddress)
       If Not mk.Login(user.Text, pass.Text) Then
           Console.WriteLine("Cant log in")
           mk.Close()
           Console.ReadLine()
           Return
       End If

ثانيا: الapi الى انا عايز ارسلها للسرفر وعرض البيانات منها 

كود :

mk.Send("/ip/hotspot/active/print", False)
           mk.Send("=.proplist=.id", False)
           mk.Send("=.proplist=server", False)
           mk.Send("=.proplist=user", False)
           mk.Send("=.proplist=address", True)
           mk.Send("=.proplist=mac-address", False)
           mk.Send("=.proplist=login-by", False)
           mk.Send("=.proplist=uptime", False)
           mk.Send("=.proplist=keepalive-timeout", False)
           mk.Send("=.proplist=radius", False)
           mk.Send("=.proplist=!done", False)

           For Each row In mk.Read()
               Dim id As String = Regex.Match(row, "(?<=id=).+?(?=\=|$)").Value
               Dim server As String = Regex.Match(row, "(?<=server=).+?(?==|$)").Value
               Dim user As String = Regex.Match(row, "(?<=user=).+?(?==|$)").Value
               Dim address As String = Regex.Match(row, "(?<=address=).+?(?==|$)").Value
               Dim mac_address As String = Regex.Match(row, "(?<=mac-address=).+?(?==|$)").Value
               Dim login_by As String = Regex.Match(row, "(?<=login-by=).+?(?==|$)").Value
               Dim uptime As String = Regex.Match(row, "(?<=uptime=).+?(?==|$)").Value
               Dim keepalive_timeout As String = Regex.Match(row, "(?<=keepalive-timeout=).+?(?==|$)").Value
               Dim radius As String = Regex.Match(row, "(?<=radius=).+?(?==|$)").Value
               dgv.Rows.Add(id, server, user, address , uptime, keepalive_timeout, radius)
           Next
           Conn.Close()
           MsgBox("تم الاتصال")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

تمام كدة الموضوع تمام لحد هنا الكود شغال وبيجيب البيانات بس بيعرض اول  3 فقط والباقى مش بيعرض البيانات ولو انا غيرت مثلا كلمة server باي كلمة uptime بيعرض البيانات الخاصه بيها بس انا عايز يعرض البيانات الى انا عايزها الى مكتوبه قدام حضرتك