[samir28]

(17-07-19, 06:43 PM)viv كتب :

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

هل من شئ لا تفهمونه ..؟
هل عندكم سؤال ...؟
هل لديكم اي شئ تريدون ان اقدمه ...؟

الحقيقة كل 40 يوم لابد وان اخرج الى مكان لا اتصالات فيه ولا انترنت ولمدة عشرة ايام سابقا اما الان فصارت اسبوع فقط
فمن يوم غد لن تجدونني بينكم حتى اسبوع أخر ان شاء الله .

هذا للعلم فمن يدري ربما لا نلتقي مرة أخرى .
رحمكم الله ورحم أبائكم ورحم صاحب هذا المكان الذي جمعنا فيه معا اينما كان
وجعل كل مانقدم استغفارا له وحسنات تلحقه في مكان ربما هو احوج ما يكون فيه لاي حسنة .
وغفر الله للمؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات

السلام عليكم 
لك كل الاحترام اخونا و بارك الله فيك .
مبرمج جديد اود تحويل كود لاخينا trakttor من vb الى الدلفي .
بوركت 

PHP كود :

Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Text
Imports System.Threading

Public Class Form1
    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"":""(.*?)""|""max_connections"":""(.*?)""|""active_cons"":""(.*?)""|""allowed_output_formats"":""(.*?)""|""max_connections"":""(.*?)""|""server_info"":""(.*?)""|""categories"":""(.*?)""|""dob"":""(.*?)"""

    Public Sub New()
        InitializeComponent()
        Control.CheckForIllegalCrossThreadCalls = False
    End Sub

    Public Sub GetID()
        Try
            Dim Code As String
            Code = TextBox1.Text
            Code = Code.Replace("get.php", "panel_api.php")

            Dim request As HttpWebRequest = DirectCast(WebRequest.Create(Code), 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("Username")
        LV1.Items.Add("Password")
        LV1.Items.Add("Maximum Connections")
        LV1.Items.Add("Active Connections")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Application.DoEvents()
        ResetItems()
        Dim trakktour As New Thread(AddressOf GetID)
        trakktour.IsBackground = True
        trakktour.Start()

    End Sub

End Class