[MOSTAFA.KAMEL]

انا حول مع الكود وفعلا اشتغل وجاب الناس الى شغاله الان 

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


    

الكود اهو 

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try

           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
           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", False)
           mk.Send("=.proplist=mac-address=", False)
           mk.Send("=.proplist=uptime=", True)
           mk.Send("=.proplist=keepalive-timeout=", False)
           mk.Send("=.proplist=radius", 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
               DGV1.Rows.Add(id, server, user, address, uptime, keepalive_timeout, radius)
           Next
           Conn.Close()
           MsgBox("تم الاتصال")
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub