فحص الروابط - نسخة قابلة للطباعة

كود :

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

PHP كود :

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