منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته

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

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

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

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


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

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



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

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

(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 

---

(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

---

تسلم ايدك يا هندسه تمام

كيفية فرز المجاميع في سيرفر iptv في قائمه 
وكيف يمكن عرض صور القنوات او الافلام
في احدى ادوات فيجوال بيسك؟