تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 1 134 15-12-18, 11:12 PM
آخر رد: alsihran
  [سؤال] استيراد بيانات لقاعدة البيانات وعمل مقارنة nandy2016 1 69 08-12-18, 02:22 PM
آخر رد: nandy2016
  [VB.NET] حفظ بيانات في جدولين kah1974 0 47 05-12-18, 11:44 PM
آخر رد: kah1974
  [كود] إدراج بيانات من الجريد إلى أكسس motazsaad94@gmail.com 3 85 05-12-18, 05:44 PM
آخر رد: motazsaad94@gmail.com
  كيفية دمع بيانات فى تكست بوكس واحد سمير جمال 3 86 04-12-18, 04:07 PM
آخر رد: Rabeea Qbaha
  اضافة بيانات اكثر من جدول في الكرستال المتألق9 1 59 02-12-18, 04:06 PM
آخر رد: Rabeea Qbaha
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 561 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  [VB.NET] رفع قاعدة بيانات علي جوجل دريف والاتصال بها من أكثر من جهاز محمد صلاح ابراهيم 2 189 29-11-18, 03:09 AM
آخر رد: Rabeea Qbaha
  اظهار بيانات معينه من جدول دون اظهاره فى داتاجريدفيو vb2010 8 142 26-11-18, 01:11 AM
آخر رد: Rabeea Qbaha
  [VB.NET] مطلوب التعديل عالمثال المرفق للطباعة بفيجوال بيسك 2010 دوت نت hbsbamaga 1 116 23-11-18, 12:51 PM
آخر رد: hbsbamaga

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


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