تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة فى جلب البيانات
#1
السلام عليكم

عندى سيرفر mikrotik 

فى فورم فى برنامج ال mikrotik  بجيب الناس الى شغالة الان على الانترنت عندى 

عايز اجيب بيانات الناس الى شغالة من الفروم ده وينزلها فى DataGridView 

دى بيانات الناس الى شغالة الان واليوزرات 

ده api الخاص بجلب البيانات من السيرفر
/ip/hotspot/active/print
!re=.id=*D00000A=server=hotspot1=user=00=address=10.0.0.13=mac-address=00:E0:4C:95:C2:77=login-by=cookie=uptime=08:22:07==00:02:00=radius=false
!re=.id=*5600000A=server=hotspot1=user=12=address=10.0.0.86=mac-address=F8:3F:51:7F:C8:07=login-by=cookie=uptime=00:28:17=keepalive-timeout=00:02:00=radius=false
!re=.id=*BC00000A=server=hotspot1=user=0=address=10.0.0.188=mac-address=EC:51:BC:24:E4:59=login-by=cookie=uptime=00:33:00=keepalive-timeout=00:02:00=radius=false
!re=.id=*FE00000A=server=hotspot1=user=3=address=10.0.0.254=mac-address=98:0C:A5:05:A2:3F=login-by=http-chap=uptime=00:42:39=keepalive-timeout=00:02:00=radius=false


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

كود :
       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
       Try
           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=", False)
           mk.Send("=.proplist=keepalive-timeout=", False)
           mk.Send("=.proplist=disabled", True)
           For Each row In mk.Read()
               Dim a = row.Replace("!re", "")
               Dim b = a.Replace("=.id=", "")
               Dim c = b.Replace("=server=", "/")
               Dim z = c.Replace("=user=", "/")
               Dim x = b.Replace("=address=", "/")
               Dim d = c.Replace("=mac-address=", "/")
               Dim v = b.Replace("=uptime=", "/")
               Dim n = c.Replace("=keepalive-timeout=", "/")
               Dim f = d.Replace("=profile=", "/")
               Dim r = g.Replace("!done", "")
               Dim q = r.Replace("=disabled=", "/")
               If q = "" Then
               Else
                   Dim info = q.Split(New Char() {"/"c}, StringSplitOptions.RemoveEmptyEntries)
                   Dim id = info(0)
                   Dim name = info(1)
                   Dim password = info(2)
                   Dim profile = info(3)
                   Dim status = info(4)
                   Conn.Close()

                   Dim sql1 As String = "select * from customer_db Where m_id = '" & id & "'"
                   Dim cmd1 As New OleDbCommand(sql1, Conn)
                   cmd1.Parameters.Clear()
                   Conn.Open()
                   dr = cmd1.ExecuteReader
                   dr.Read()
                   If dr.HasRows = False Then

                       If r = "" Then
                       Else
                           Try
                               Dim sqlz As String = "select * from speed Where profile = '" & RTL(profile) & "'"
                               Dim cmdz As New OleDbCommand(sqlz, conn2)
                               Dim drz As OleDbDataReader
                               cmdz.Parameters.Clear()
                               conn2.Open()
                               drz = cmdz.ExecuteReader
                               drz.Read()
                               Label5.Text = drz.Item("price")
                               conn2.Close()
                           Catch
                               MsgBox(" غير مدرج في قائمة الاسعار" & RTL(profile) & "البروفايل ")
                           End Try
                           Conn.Close()
                           Dim sql = "INSERT INTO customer_db (m_id , m_us , m_pas , profile , c_name , c_add , c_tell , r_date , p_date , status , type , ip , mac , price , a_model , a_ip , a_mac , c_to , a_speed ) VALUES ('" & id & "' , '" & RTL(name) & "' , '" & convert(RTL(password)) & "' , '" & profile & "' , 'na' , 'na' , 'na' , '" & Date.Today & "' , '" & DateTime.Today.AddMonths(1) & "' , '" & conv(status) & "' , 'cable' , '0.0.0.0' , '00:00:00:00:00:00' , '" & Label5.Text & "' , 'na' , '0.0.0.0' , '00:00:00:00:00:00', 'na' , '" & profile & "')"
                           Dim cmd = New OleDb.OleDbCommand(sql, Conn)
                           Conn.Open()
                           cmd.ExecuteNonQuery()
                           Conn.Close()

                       End If
                   Else
                       Dim SavInto As New OleDb.OleDbCommand
                       Conn.Close()
                       SavInto.Connection = Conn
                       SavInto.CommandType = CommandType.Text
                       SavInto.CommandText = "UPDATE customer_db SET m_us = '" & RTL(name) & "',m_pas = '" & convert(RTL(password)) & "' where m_id = '" & id & "' "
                       Conn.Open()
                       SavInto.ExecuteNonQuery()
                       Conn.Close()
                   End If
               End If
           Next
           refrish1.Show()
           Me.Close()
           MsgBox("تم تحديث البيانات")
       Catch
           MsgBox("have some error")
       End Try
       Conn.Close()
الرد
تم الشكر بواسطة:
#2
اتفضل

   
الرد
تم الشكر بواسطة:
#3
استخدم هذه الطريقة
PHP كود :
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 
الرد
تم الشكر بواسطة: محمود صالح , MOSTAFA.KAMEL
#4
(07-02-18, 04:54 AM)طالب برمجة كتب : استخدم هذه الطريقة
PHP كود :
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 


بعتذر جدا للتاخير فى الرد 
ولكن هذا الكود هيضيف البيانات فى الDataGridView وهمسح الكود الثانى بالكامل ولا ايه بالظبط
الرد
تم الشكر بواسطة:
#5
الكود بديل عن طريقة الاستخراج عن طريق Replace

وهو يستخرج بيانات الحقول من النص
!re=.id=*5600000A=server=hotspot1=user=12=address=10.0.0.86=mac-address=F8:3F:51:7F:C8:07=login-by=cookie=uptime=00:28:17=keepalive-timeout=00:02:00=radius=false

وبالتالي تستيطيع التعامل مع البيانات باسماء متغيراتها بشكل واضح كما تريد بدلا من طريقة (info(1 و(info(2 ...
الرد
تم الشكر بواسطة: محمود صالح
#6
تمام كده طالب البرمجة سهل الدنيا
طبعا لان المثال السابق ذكره في الموضوع اخر مش بيشتغل عندي
انا عملتلك مثال طبقه عندك وهو سهل وبسيط هتفهمه

صورة
   

الكود كامل
PHP كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim STR 
As New List(Of String)
 
       STR.Add("!re=.id=*D00000A=server=hotspot1=user=00=address=10.0.0.13=mac-address=00:E0:4C:95:C2:77=login-by=cookie=uptime=08:22:07==00:02:00=radius=false")
 
       STR.Add("!re=.id=*5600000A=server=hotspot1=user=12=address=10.0.0.86=mac-address=F8:3F:51:7F:C8:07=login-by=cookie=uptime=00:28:17=keepalive-timeout=00:02:00=radius=false")
 
       STR.Add("!re=.id=*BC00000A=server=hotspot1=user=0=address=10.0.0.188=mac-address=EC:51:BC:24:E4:59=login-by=cookie=uptime=00:33:00=keepalive-timeout=00:02:00=radius=false")
 
       STR.Add("!re=.id=*FE00000A=server=hotspot1=user=3=address=10.0.0.254=mac-address=98:0C:A5:05:A2:3F=login-by=http-chap=uptime=00:42:39=keepalive-timeout=00:02:00=radius=false")

 
       For Each ROW In STR
            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(idserveruseraddressmac_addresslogin_byuptimekeepalive_timeoutradius)
 
       Next

    End Sub
End 
Class 


الملفات المرفقة
.rar   WindowsApplication11.rar (الحجم : 76.03 ك ب / التحميلات : 32)
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: طالب برمجة , طالب برمجة
#7
(07-02-18, 07:36 AM)طالب برمجة كتب : الكود بديل عن طريقة الاستخراج عن طريق Replace

وهو يستخرج بيانات الحقول من النص
!re=.id=*5600000A=server=hotspot1=user=12=address=10.0.0.86=mac-address=F8:3F:51:7F:C8:07=login-by=cookie=uptime=00:28:17=keepalive-timeout=00:02:00=radius=false

وبالتالي تستيطيع التعامل مع البيانات باسماء متغيراتها بشكل واضح كما تريد بدلا من طريقة (info(1 و(info(2 ...


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

كود :
       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)

(07-02-18, 12:53 PM)محمود صالح كتب : تمام كده طالب البرمجة سهل الدنيا
طبعا لان المثال السابق ذكره في الموضوع اخر مش بيشتغل عندي
انا عملتلك مثال طبقه عندك وهو سهل وبسيط هتفهمه

صورة


الكود كامل
PHP كود :
Imports System.Text.RegularExpressions

Public Class Form1

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim STR 
As New List(Of String)
 
       STR.Add("!re=.id=*D00000A=server=hotspot1=user=00=address=10.0.0.13=mac-address=00:E0:4C:95:C2:77=login-by=cookie=uptime=08:22:07==00:02:00=radius=false")
 
       STR.Add("!re=.id=*5600000A=server=hotspot1=user=12=address=10.0.0.86=mac-address=F8:3F:51:7F:C8:07=login-by=cookie=uptime=00:28:17=keepalive-timeout=00:02:00=radius=false")
 
       STR.Add("!re=.id=*BC00000A=server=hotspot1=user=0=address=10.0.0.188=mac-address=EC:51:BC:24:E4:59=login-by=cookie=uptime=00:33:00=keepalive-timeout=00:02:00=radius=false")
 
       STR.Add("!re=.id=*FE00000A=server=hotspot1=user=3=address=10.0.0.254=mac-address=98:0C:A5:05:A2:3F=login-by=http-chap=uptime=00:42:39=keepalive-timeout=00:02:00=radius=false")

 
       For Each ROW In STR
            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(idserveruseraddressmac_addresslogin_byuptimekeepalive_timeoutradius)
 
       Next

    End Sub
End 
Class 

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

كود :
       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)
الرد
تم الشكر بواسطة: sirnon
#8
انا مش فاهم حاجة والله 
الى دخل جلب البيانات في عرض البيانات
احنا بنتكلم عن عرض البيانات وتحديدا اظهارها في datagridview ودي اخر المراحل
كل الى هتعمله انك
اولا : حتشيل طريقة Replace الى عملها كما  قال لك طالب برمجة
ثانيا : هتصمم datagridview كما في المثال وتسميها dgv1
ثالثا : هتبدل جملة for each الى عندك بالكود ده

PHP كود :
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(idserveruseraddressmac_addresslogin_byuptimekeepalive_timeoutradius)
 
       Next 
لحد كده ايه المشكلة
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة:
#9
انا حول مع الكود وفعلا اشتغل وجاب الناس الى شغاله الان 

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




الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#10
حل المشكلة من فضلكم
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] هل من الضروري اغلاق الاتصال بعد جلب البيانات من sql في جملة الاستعلام alipro 3 103 26-10-20, 03:50 AM
آخر رد: Jounior_P
  مشكلة في قيمة ابتدائية في داتاجريد فيو cordava 2 90 24-10-20, 09:33 PM
آخر رد: 8409953
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 871 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  مشكلة عند تنصيب البرنامج للعميل تظهر الرسالة هده Alanwalker 9 254 22-10-20, 11:20 PM
آخر رد: kiki
  مشكلة في طباعة الفواتير ZaerAllail 17 584 19-10-20, 04:53 AM
آخر رد: ZaerAllail
  مشكلة فى كود الطباعة المباشرة khaled Mohammed 5 375 17-10-20, 08:39 AM
آخر رد: mustaf
  مشكلة الترقيم التلقائي sql moh developer 14 425 17-10-20, 04:47 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] ربط التقارير بقاعده البيانات احمد سليمان 0 73 14-10-20, 02:43 PM
آخر رد: احمد سليمان
  مشكلة فى طباعة التقرير khaled Mohammed 8 465 14-10-20, 02:27 PM
آخر رد: عمور2016
  مشكلة الداتا ريدر mustafa mohamed 0 78 13-10-20, 04:18 PM
آخر رد: mustafa mohamed

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


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