تقييم الموضوع :
  • 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
#4
كيفية فرز المجاميع في سيرفر iptv في قائمه 
وكيف يمكن عرض صور القنوات او الافلام
في احدى ادوات فيجوال بيسك؟
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  إضافة بيانات جدول ثالث أثناء طباعة صفحة التقرير عبد العزيز البسكري 2 79 08-07-20, 03:24 PM
آخر رد: عبد العزيز البسكري
  مشكلة بكود التعديل بسبب جملة فور abdulla2 24 830 26-06-20, 01:36 AM
آخر رد: abdulla2
Heart التعديل على استعلام التحديث في قاعدة البيانات alshandodi 3 115 22-06-20, 12:45 AM
آخر رد: alshandodi
  التعديل علي المثال ahmedbezia 1 108 18-06-20, 12:58 AM
آخر رد: ابراهيم ايبو
  [سؤال] بخصوص سيكوال سيرفر عاصم النجار 2 285 05-06-20, 05:02 PM
آخر رد: kiki
  [سؤال] ما الفرق بين قاعدة بيانات الاكسس و sql server و my sql في البرمجه منه 3 223 02-06-20, 07:23 AM
آخر رد: منه
  السلام علسكم خطئ في كود زر التعديل ممكن مساعدة ahmedbezia 3 183 01-06-20, 06:06 PM
آخر رد: boudyonline
  مشكله في الوصول الى قاعدة بيانات 2007 عند تغيرها 2016 alshandodi 7 200 29-05-20, 11:34 AM
آخر رد: معاند الحظ
  فورمة عرض بيانات atefkhalf2004 6 176 28-05-20, 08:59 PM
آخر رد: atefkhalf2004
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 155 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي

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


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