[سعود]

PHP كود :

Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim url As String = "https://pastebin.com/raw/6au4aJGx"
        Using wc As New Net.WebClient
            wc.Encoding = Encoding.UTF8
            Dim html As String = wc.DownloadString(url)
            Dim str As String = "https.*?\.png"
            Dim reg As New Regex(str)
            Dim mc As MatchCollection = reg.Matches(html)
            p1.Load(mc(0).Value)
            p2.Load(mc(1).Value)
            p3.Load(mc(2).Value)
            p4.Load(mc(3).Value)
            p5.Load(mc(4).Value)
            p6.Load(mc(5).Value)
        End Using
    End Sub
End Class 


كل الصور زي بعض