30-07-19, 08:48 PM
30-07-19, 10:08 PM
27-08-19, 02:54 PM
(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
27-08-19, 03:05 PM
27-08-19, 03:44 PM
27-08-19, 08:55 PM
27-08-19, 10:25 PM