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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استدعاء بيانات من اكثر من جدول المتألق9 0 10 منذ 1 ساعه مضت
آخر رد: المتألق9
  [VB.NET] التعديل علي عمود اسامه الهرماوي 1 59 23-05-19, 01:26 AM
آخر رد: ملهمـ
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 9 192 15-05-19, 06:08 PM
آخر رد: makky
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 50 03-05-19, 11:03 AM
آخر رد: DK-x
  [مثال] قاعدة بيانات SQL DK-x 2 119 03-05-19, 12:38 AM
آخر رد: اسامه الهرماوي
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 94 27-04-19, 10:32 PM
آخر رد: saoud2
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 3 134 25-04-19, 04:21 PM
آخر رد: elgokr
  مشكله في تعديل الصورة قاعدة بيانات اكسس الوايلي 12 314 25-04-19, 09:26 AM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 74 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  عرض بعض بيانات الاستعلام في datagrid nourmandour 6 155 23-04-19, 12:25 AM
آخر رد: nourmandour

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


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