![[صورة: p_1332mpdrq1.png]](https://6.top4top.net/p_1332mpdrq1.png)
[/img]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 ClassPublic 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