جمع الروابط و الصور و عرضها في متصفح الانترنت

PHP كود :

lstmain.Items.Clear() 
        If a = True Then 
            a = False 
        End If 
        If b = False Then 
            b = True 
        End If 
        'For every link in the current document...           
        For Each ele As HtmlElement In WB.Document.Links 
            'Get whatever text there is in the 'href' attribute  
            Dim eletarget As String = ele.GetAttribute("href") 
            'Add it to the listbox  
            LstMain.Items.Add(eletarget) 
            'Carry on to the next link  
        Next

PHP كود :

lstmain.Items.Clear() 
        If b = True Then 
            b = False 
        End If 
        If a = False Then 
            a = True 
        End If 
        'For every HtmlElement (such as a textbox, a button, or image) in the current document...    
        For Each ele As HtmlElement In WB.Document.All 
            'Make sure it's an image... rather crude but works...  
            If ele.GetAttribute("src") Is Nothing = True Then 
                'Do nothing  
            Else 
                'Its an image  
                'If the source of the element (assuming there is one) contains .jpg  
                If ele.GetAttribute("src").ToLower.Contains(".jpg") Then 
                    'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    'Add the string to the listbox  
                    LstMain.Items.Add(imgsrc) 
                End If 

                If ele.GetAttribute("src").ToLower.Contains(".png") Then 
                    'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    'Add the string to the listbox  
                    LstMain.Items.Add(imgsrc) 
                End If 

                If ele.GetAttribute("src").ToLower.Contains(".gif") Then 
                    'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    'Add the string to the listbox  
                    LstMain.Items.Add(imgsrc) 
                End If 

                If ele.GetAttribute("src").ToLower.Contains(".bmp") Then 
                    'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    'Add the string to the listbox  
                    LstMain.Items.Add(imgsrc) 
                End If 
            End If 
        Next

PHP كود :

Imports System.IO 
Imports System.Net 
Public Function LoadWebImageToPictureBox(ByVal pb _ 
      As PictureBox, ByVal ImageURL As String) As Boolean 

        Dim objImage As MemoryStream 
        Dim objwebClient As WebClient 
        Dim sURL As String = Trim(ImageURL) 
        Dim bAns As Boolean 
        Try 
            If Not sURL.ToLower().StartsWith("http://") _ 
                 Then sURL = "http://" & sURL 
            objwebClient = New WebClient() 

            objImage = New  _ 
               MemoryStream(objwebClient.DownloadData(sURL)) 
            pb.Image = Image.FromStream(objImage) 
            bAns = True 
        Catch ex As Exception 
            bAns = False 
        End Try 
        Return bAns 
    End Function