08-02-18, 06:47 PM
طيب دلوقتى عايز مثلا بعد ما يتم عرض البيانات لو عايز اعمل مسح للبيانات الى هو عرضها من السيرفر ولما اضغط على بوتن مثلا يمسح البيانات الى هو حملها وتتمسح كمان من السيرفر يعنى بيخرج كل اليوزرات الى فتحا الان على السيرفر وتعمل تسجيل دخول من جديد
وده الــ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