[سعود]

وعليكم السلام ورحمة الله و بركاته

PHP كود :

Imports System.Text
Imports System.Text.RegularExpressions
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Clear()
        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)
            Dim ma As Match
            For Each ma In mc
                If ma.Success Then
                    ListBox1.Items.Add(ma.Value)
                End If
            Next
        End Using
    End Sub
    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
         PictureBox1.Load(ListBox1.Text)
    End Sub
End Class