08-02-18, 09:03 PM
كود مسح البيانات بعد عرضها فى datagridview والمسح من السيرفر كمان
طيب دلوقتى عايز مثلا بعد ما يتم عرض البيانات لو عايز اعمل مسح للبيانات الى هو عرضها من السيرفر ولما اضغط على بوتن مثلا يمسح البيانات الى هو حملها وتتمسح كمان من السيرفر يعنى بيخرج كل اليوزرات الى فتحا الان على السيرفر وتعمل تسجيل دخول من جديد
وده الــapi الخاص بالمسح البيانات
/ip/hotspot/host/remove
كود :
#Region " StringToDatatable "
Function StringToDatatable(ByVal s As String) As DataTable
Dim IPAddress As System.Net.IPAddress = System.Net.IPAddress.Parse(ip.Text)
Dim mk = New Mikrotik(IPAddress)
mk.Login(user.Text, pass.Text)
mk.Send("/ip/hotspot/host/getall", False)
mk.Send("=.proplist=.id", False)
mk.Send("=.proplist=server", False)
mk.Send("=.proplist=user", False)
mk.Send("=.proplist=address", False)
mk.Send("=.proplist=uptime", True)
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 uptime As String = Regex.Match(row, "(?<=uptime=).+?(?==|$)").Value
If String.Concat(id.Trim, server.Trim, user.Trim, address.Trim, uptime.Trim.Trim) <> "" Then
DGV1.Rows.Add(id, server, user, address, uptime)
End If
Next
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
DGV1.AllowUserToAddRows = False
Me.DGV1.Rows.Clear()
Dim dt As DataTable = StringToDatatable("")
Me.DGV1.DataSource = dt
End Sub
