10-11-18, 05:50 PM
السلام عليكم ورحمة الله وبركاته
كنت بعمل فورم عباره عن سحب بيانات سيرفر Iptv
عبارة عن
الحالة
واسم المستخدم
والباسورد
وعدد المتصلين
واقصي عدد للمتصلين
وتاريخ الانتهاء
فورم عبارة عن list view فقط
بستخدم الكود دا
وشغال تمام بس عندي مشكله
هيا تاريخ الانتهاء مش بيظهر بالشكل الصحيح
بيظهر بالشكل دا
كنت عايز اضافة علشان يظهر بالشكل الطبيعي ليه
وهو بينتهي يوم كذا وشهر كذا وسنة كذا
كنت بعمل فورم عباره عن سحب بيانات سيرفر 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
وشغال تمام بس عندي مشكله
هيا تاريخ الانتهاء مش بيظهر بالشكل الصحيح
بيظهر بالشكل دا
كنت عايز اضافة علشان يظهر بالشكل الطبيعي ليه
وهو بينتهي يوم كذا وشهر كذا وسنة كذا