تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب التعديل علي كود سحب بيانات سيرفر
#1
السلام عليكم ورحمة الله وبركاته

كنت بعمل فورم عباره عن سحب بيانات سيرفر Iptv

عبارة عن 
الحالة 
واسم المستخدم
والباسورد
وعدد المتصلين
واقصي عدد للمتصلين
وتاريخ الانتهاء

فورم عبارة عن list view فقط 

بستخدم الكود دا 

كود :
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading
Public Class ServerInfo
   Private cookies As CookieContainer = New CookieContainer
   Dim client As New WebClient
   Public PIC As String = """large"":""(.*?)"""
   Dim nom As String = """first"":""(.*?)"",""last"":""(.*?)"""
   Dim Pitter As String = """status"":""(.*?)""|""username"":""(.*?)""|""password"":""(.*?)""|""active_cons"":""(.*?)""|""max_connections"":""(.*?)""|""exp_date"":""(.*?)""|""allowed_output_formats"":""(.*?)""|""max_connections"":""(.*?)""|""server_info"":""(.*?)""|""categories"":""(.*?)""|""dob"":""(.*?)"""
   Public Sub New()
       InitializeComponent()
       Control.CheckForIllegalCrossThreadCalls = False
   End Sub
   Public Sub GetID()
       Try
           Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://" & My.Settings.url & ":" & My.Settings.port & "/panel_api.php?username=" & My.Settings.user & "&password=" & My.Settings.pass & "&type=m3u&output=ts"), HttpWebRequest)
           request.Method = "GET"
           request.CookieContainer = Me.cookies
           request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:47.0) Gecko/20100101 Firefox/47.0"
           request.ContentType = "application/x-www-form-urlencoded"
           Dim reader As New StreamReader(request.GetResponse.GetResponseStream, Encoding.UTF8)
           Dim input As String = reader.ReadToEnd
           Dim I As String = """dob"":""(.*?)"""
           For Each p As ListViewItem In LV1.Items
               Dim F As ListView = LV1
               Dim match As Match = Regex.Match(input, Pitter.Split("|")(p.Index), RegexOptions.IgnoreCase)
               p.SubItems.Add(match.Groups(1).Value.Trim)
           Next
       Catch ex As Exception
       End Try
   End Sub
   Public Sub ResetItems()
       On Error Resume Next
       LV1.Items.Clear()
       LV1.Items.Add("Status :")
       LV1.Items.Add("User Name :")
       LV1.Items.Add("Password :")
       LV1.Items.Add("Active Connections :")
       LV1.Items.Add("Maximum Connections :")
       LV1.Items.Add("Expire :")
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim lvi As ListViewItem = New ListViewItem
       lvi.Text = "Active"
       lvi.BackColor = Color.Blue
       LV1.Items.Add(lvi)
   End Sub
   Private Sub ServerInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Application.DoEvents()
       ResetItems()
       Dim Exinfo As New Thread(AddressOf GetID)
       Exinfo.IsBackground = True
       Exinfo.Start()
   End Sub
End Class

وشغال تمام بس عندي مشكله
هيا تاريخ الانتهاء مش بيظهر بالشكل الصحيح 

بيظهر بالشكل دا



كنت عايز اضافة علشان يظهر بالشكل الطبيعي ليه 

وهو بينتهي يوم كذا وشهر كذا وسنة كذا
الرد
تم الشكر بواسطة:
#2
(10-11-18, 05:50 PM)ScreamVoice كتب : السلام عليكم ورحمة الله وبركاته

كنت بعمل فورم عباره عن سحب بيانات سيرفر Iptv

عبارة عن 
الحالة 
واسم المستخدم
والباسورد
وعدد المتصلين
واقصي عدد للمتصلين
وتاريخ الانتهاء

فورم عبارة عن list view فقط 

بستخدم الكود دا 

كود :
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading
Public Class ServerInfo
   Private cookies As CookieContainer = New CookieContainer
   Dim client As New WebClient
   Public PIC As String = """large"":""(.*?)"""
   Dim nom As String = """first"":""(.*?)"",""last"":""(.*?)"""
   Dim Pitter As String = """status"":""(.*?)""|""username"":""(.*?)""|""password"":""(.*?)""|""active_cons"":""(.*?)""|""max_connections"":""(.*?)""|""exp_date"":""(.*?)""|""allowed_output_formats"":""(.*?)""|""max_connections"":""(.*?)""|""server_info"":""(.*?)""|""categories"":""(.*?)""|""dob"":""(.*?)"""
   Public Sub New()
       InitializeComponent()
       Control.CheckForIllegalCrossThreadCalls = False
   End Sub
   Public Sub GetID()
       Try
           Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://" & My.Settings.url & ":" & My.Settings.port & "/panel_api.php?username=" & My.Settings.user & "&password=" & My.Settings.pass & "&type=m3u&output=ts"), HttpWebRequest)
           request.Method = "GET"
           request.CookieContainer = Me.cookies
           request.UserAgent = "Mozilla/5.0 (Windows NT 6.1; rv:47.0) Gecko/20100101 Firefox/47.0"
           request.ContentType = "application/x-www-form-urlencoded"
           Dim reader As New StreamReader(request.GetResponse.GetResponseStream, Encoding.UTF8)
           Dim input As String = reader.ReadToEnd
           Dim I As String = """dob"":""(.*?)"""
           For Each p As ListViewItem In LV1.Items
               Dim F As ListView = LV1
               Dim match As Match = Regex.Match(input, Pitter.Split("|")(p.Index), RegexOptions.IgnoreCase)
               p.SubItems.Add(match.Groups(1).Value.Trim)
           Next
       Catch ex As Exception
       End Try
   End Sub
   Public Sub ResetItems()
       On Error Resume Next
       LV1.Items.Clear()
       LV1.Items.Add("Status :")
       LV1.Items.Add("User Name :")
       LV1.Items.Add("Password :")
       LV1.Items.Add("Active Connections :")
       LV1.Items.Add("Maximum Connections :")
       LV1.Items.Add("Expire :")
   End Sub

   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       Dim lvi As ListViewItem = New ListViewItem
       lvi.Text = "Active"
       lvi.BackColor = Color.Blue
       LV1.Items.Add(lvi)
   End Sub
   Private Sub ServerInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Application.DoEvents()
       ResetItems()
       Dim Exinfo As New Thread(AddressOf GetID)
       Exinfo.IsBackground = True
       Exinfo.Start()
   End Sub
End Class

وشغال تمام بس عندي مشكله
هيا تاريخ الانتهاء مش بيظهر بالشكل الصحيح 

بيظهر بالشكل دا



كنت عايز اضافة علشان يظهر بالشكل الطبيعي ليه 

وهو بينتهي يوم كذا وشهر كذا وسنة كذا

و عليكم السلام حبيبي 
جرب هذا الكود 
و قم ب اضافة زر جديد و textbox 
كود :
 Dim x As New DateTime
       x = DateTime.Parse("January 1 1970 12:00:00 am")
       Try

           TextBox2.Text = "Status: " & LV1.Items(0).SubItems(1).Text & vbNewLine & "Username: " & LV1.Items(1).SubItems(1).Text & vbNewLine & "Password: " & LV1.Items(2).SubItems(1).Text & vbNewLine & "Maximum Connections: " & LV1.Items(3).SubItems(1).Text & vbNewLine & "Active Connections: " & LV1.Items(4).SubItems(1).Text & vbNewLine & "Expires: " & x.AddSeconds(LV1.Items(5).SubItems(1).Text).ToString

       Catch ex As Exception

       End Try

الرد
تم الشكر بواسطة: ScreamVoice , elgokr , elgokr
#3
(10-11-18, 10:01 PM)و عليكم السلام حبيبي كتب : جرب هذا الكود 
و قم ب اضافة زر جديد و textbox 
كود :
 Dim x As New DateTime
       x = DateTime.Parse("January 1 1970 12:00:00 am")
       Try

           TextBox2.Text = "Status: " & LV1.Items(0).SubItems(1).Text & vbNewLine & "Username: " & LV1.Items(1).SubItems(1).Text & vbNewLine & "Password: " & LV1.Items(2).SubItems(1).Text & vbNewLine & "Maximum Connections: " & LV1.Items(3).SubItems(1).Text & vbNewLine & "Active Connections: " & LV1.Items(4).SubItems(1).Text & vbNewLine & "Expires: " & x.AddSeconds(LV1.Items(5).SubItems(1).Text).ToString

       Catch ex As Exception

       End Try


تسلم ايدك يا هندسه تمام
الرد
تم الشكر بواسطة: trakktour , elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] بحاجة الى اكواد الاضافة و الحذف و التعديل و البحث .. georgos 7 145 اليوم, 10:52 AM
آخر رد: georgos
  عرض بيانات في الليست فيو Emam emam 5 141 01-02-19, 11:13 PM
آخر رد: asemshahen5
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 263 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  [VB.NET] مشكلة في تصدير بيانات الى إكسيل محمد بوقزاحة 3 126 26-01-19, 11:29 PM
آخر رد: محمد بوقزاحة
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 4 123 26-01-19, 08:54 PM
آخر رد: سمير جمال
  [VB.NET] تصدير بيانات من DGV الى ملف اكسيل محمد بوقزاحة 1 88 24-01-19, 03:52 PM
آخر رد: sendbad100
  جلب بيانات الموظفين من جهاز البصمة الاحيائية ibraheam 12 1,932 23-01-19, 07:21 PM
آخر رد: elgokr
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 164 17-01-19, 09:50 AM
آخر رد: dubai.eig
  سؤال بخصوص تحديث بيانات DataGridView abdullhadi999 14 421 09-01-19, 10:56 PM
آخر رد: abdullhadi999
  [SQL] اعادة تشغيل قاعدة بيانات SonBasel 0 100 01-01-19, 10:36 AM
آخر رد: SonBasel

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


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