[sascoxat]

(10-02-22, 07:38 AM)سعود كتب :

---

PHP كود :

Imports System.Net
Public Class Form1
    Private Sub g(url As String)
        Using wc As New WebClient
            Dim html As String = wc.DownloadString(url)
            For Each h As String In html.Split(vbNewLine)
                ListBox1.Invoke(Sub() ListBox1.Items.Add(h))
            Next
            Button1.Invoke(Sub() Button1.Enabled = True)
            Button1.Invoke(Sub() Button1.Text = "ok")
        End Using
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim th As New Threading.Thread(AddressOf g)
        If th.IsAlive = False Then
            Button1.Enabled = False
            Button1.Text = "wait..."
            th.Start("https://pastebin.com/raw/GsRqBC3N")
        End If
    End Sub
End Class 


شكرا لك اخي الغالي الله يحفظك