هذا العنوان به أيكونات جميلة بصيغة "png"

 

[color= #339933;]<Global[color= #339933;].Microsoft[color= #339933;].VisualBasic[color= #339933;].CompilerServices[color= #339933;].DesignerGenerated[color= #009900;]([color= #009900;])[color= #339933;]> [color= #990000;]_

Partial [color= #000000; font-weight: bold;]Class Form1

    Inherits [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].Form

 

    [color= #0000ff;]'Form overrides dispose to clean up the component list.

[color= #0000ff;]    <System.Diagnostics.DebuggerNonUserCode()> _

[color= #0000ff;]    Protected Overrides Sub Dispose(ByVal disposing As Boolean)

[color= #0000ff;]        If disposing AndAlso components IsNot Nothing Then

[color= #0000ff;]            components.Dispose()

[color= #0000ff;]        End If

[color= #0000ff;]        MyBase.Dispose(disposing)

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    'Required by the Windows Form Designer

    [color= #000000; font-weight: bold;]Private components [color= #b1b100;]As [color= #990000;]System[color= #339933;].ComponentModel[color= #339933;].IContainer

 

    [color= #0000ff;]'NOTE: The following procedure is required by the Windows Form Designer

[color= #0000ff;]    'It can be modified using the Windows Form Designer[color= #339933;].  

    [color= #0000ff;]'Do not modify it using the code editor.

[color= #0000ff;]    <System.Diagnostics.DebuggerStepThrough()> _

[color= #0000ff;]    Private Sub InitializeComponent()

[color= #0000ff;]        Me.WebBrowser1 = New System.Windows.Forms.WebBrowser

[color= #0000ff;]        Me.Button1 = New System.Windows.Forms.Button

[color= #0000ff;]        Me.SuspendLayout()

[color= #0000ff;]        '

        [color= #0000ff;]'WebBrowser1

[color= #0000ff;]        '

        Me[color= #339933;].WebBrowser1[color= #339933;].Dock [color= #339933;]= [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].DockStyle[color= #339933;].Fill

        Me[color= #339933;].WebBrowser1[color= #339933;].Location [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Drawing[color= #339933;].Point[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #009900;])

        Me[color= #339933;].WebBrowser1[color= #339933;].MinimumSize [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Drawing[color= #339933;].Size[color= #009900;]([color= #cc66cc;]20[color= #339933;], [color= #cc66cc;]20[color= #009900;])

        Me[color= #339933;].WebBrowser1[color= #339933;].Name [color= #339933;]= [color= #0000ff;]"WebBrowser1"

        Me[color= #339933;].WebBrowser1[color= #339933;].Size [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Drawing[color= #339933;].Size[color= #009900;]([color= #cc66cc;]645[color= #339933;], [color= #cc66cc;]506[color= #009900;])

        Me[color= #339933;].WebBrowser1[color= #339933;].TabIndex [color= #339933;]= [color= #cc66cc;]0

        [color= #0000ff;]'

[color= #0000ff;]        'Button1

        [color= #0000ff;]'

[color= #0000ff;]        Me.Button1.Dock = System.Windows.Forms.DockStyle.Bottom

[color= #0000ff;]        Me.Button1.Location = New System.Drawing.Point(0, 506)

[color= #0000ff;]        Me.Button1.Name = "Button1"

[color= #0000ff;]        Me.Button1.Size = New System.Drawing.Size(645, 23)

[color= #0000ff;]        Me.Button1.TabIndex = 1

[color= #0000ff;]        Me.Button1.Enabled = False

[color= #0000ff;]        Me.Button1.Text = """Get Images"

[color= #0000ff;]        Me.Button1.UseVisualStyleBackColor = True

[color= #0000ff;]        '

        [color= #0000ff;]'Form1

[color= #0000ff;]        '

        Me[color= #339933;].AutoScaleDimensions [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Drawing[color= #339933;].SizeF[color= #009900;]([color= #cc66cc;]6.0[color= #339933;]!, [color= #cc66cc;]13.0[color= #339933;]![color= #009900;])

        Me[color= #339933;].AutoScaleMode [color= #339933;]= [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].AutoScaleMode[color= #339933;].Font

        Me[color= #339933;].ClientSize [color= #339933;]= [color= #000000; font-weight: bold;]New [color= #990000;]System[color= #339933;].Drawing[color= #339933;].Size[color= #009900;]([color= #cc66cc;]645[color= #339933;], [color= #cc66cc;]529[color= #009900;])

        Me[color= #339933;].Controls[color= #339933;].Add[color= #009900;](Me[color= #339933;].WebBrowser1[color= #009900;])

        Me[color= #339933;].Controls[color= #339933;].Add[color= #009900;](Me[color= #339933;].Button1[color= #009900;])

        Me[color= #339933;].Name [color= #339933;]= [color= #0000ff;]"Form1"

        Me[color= #339933;].Text [color= #339933;]= [color= #0000ff;]"Form1"

        Me[color= #339933;].ResumeLayout[color= #009900;]([color= #000000; font-weight: bold;]False[color= #009900;])

 

    [color= #990000;]End Sub

    Friend WithEvents WebBrowser1 [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].WebBrowser

    Friend WithEvents Button1 [color= #b1b100;]As [color= #990000;]System[color= #339933;].Windows[color= #339933;].Forms[color= #339933;].Button

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

    Dim CKey [color= #b1b100;]As Char [color= #339933;]= [color= #990000;]Chr[color= #009900;]([color= #cc66cc;]34[color= #009900;])

 

    [color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handl
es Button1[color= #339933;].Click

        Dim ConvertToIcon [color= #b1b100;]As Boolean [color= #339933;]= [color= #000000; font-weight: bold;]False

        ConvertToIcon [color= #339933;]= [color= #009900;](MsgBox[color= #009900;]([color= #0000ff;]"Do you want to convert the current images to icons ?"[color= #339933;], [color= #cc66cc;]4[color= #339933;], [color= #0000ff;]"Con
verter"[color= #009900;]) [color= #339933;]= [color= #cc66cc;]6[color= #009900;])

        Dim SaveToLocation [color= #b1b100;]As String [color= #339933;]= My[color= #339933;].Computer[color= #339933;].FileSystem[color= #339933;].SpecialDirectories[color= #339933;].MyPictures [color= #339933;]& [color= #0000ff;]"
[color= #000099; font-weight: bold;]"

[color= #0000ff;]        Dim FBD As New FolderBrowserDialog

[color= #0000ff;]        If FBD.ShowDialog = 1 Then SaveToLocation = FBD.SelectedPath & "[color= #0000ff;]"

[color= #0000ff;]        If ConvertToIcon Then

[color= #0000ff;]            Dim NumOfIco As Int32 = 0

[color= #0000ff;]            For Each ImgEl As HtmlElement In WebBrowser1.Document.Images

[color= #0000ff;]                Dim Bmp As Bitmap = GetImageFromUrl(AnalyzeImgUrl(ImgEl.OuterHtml))

[color= #0000ff;]                Dim Ico As Icon = Drawing.Icon.FromHandle(Bmp.GetHicon)

[color= #0000ff;]                Using St As New IO.FileStream(String.Format(SaveToLocation & "Icon [color= #009900;]([color= #009900;]{[color= #cc66cc;]0[color= #009900;]}[color= #009900;])[color= #339933;].ico[color= #0000ff;]", 
NumOfIco), IO.FileMode.OpenOrCreate)

[color= #0000ff;]                    Ico.Save(St)

[color= #0000ff;]                    St.Close()

[color= #0000ff;]                End Using

[color= #0000ff;]                NumOfIco += 1

[color= #0000ff;]            Next

[color= #0000ff;]        Else

[color= #0000ff;]            Dim NumOfImg As Int32 = 0

[color= #0000ff;]            For Each ImgEl As HtmlElement In WebBrowser1.Document.Images

[color= #0000ff;]                Dim Bmp As Bitmap = GetImageFromUrl(AnalyzeImgUrl(ImgEl.OuterHtml))

[color= #0000ff;]                Using St As New IO.FileStream(String.Format(SaveToLocation & "Image [color= #009900;]([color= #009900;]{[color= #cc66cc;]0[color= #009900;]}[color= #009900;])[color= #339933;].png[color= #0000ff;]",
 NumOfImg), IO.FileMode.OpenOrCreate)

[color= #0000ff;]                    Bmp.Save(St, Imaging.ImageFormat.Png)

[color= #0000ff;]                    St.Close()

[color= #0000ff;]                End Using

[color= #0000ff;]                NumOfImg += 1

[color= #0000ff;]            Next

[color= #0000ff;]        End If

[color= #0000ff;]    End Sub

 

[color= #0000ff;]    Private Function AnalyzeImgUrl(ByVal CurrentLine As String) As String

[color= #0000ff;]        If Not CurrentLine = String.Empty Then

[color= #0000ff;]            If CurrentLine.ToLower.Contains("[color= #339933;].png[color= #0000ff;]") Then

[color= #0000ff;]                Dim StartIndex As Int32 = CurrentLine.IndexOf(CKey) + 1

[color= #0000ff;]                Dim Length As Int32 = ((CurrentLine.Length - StartIndex) - 2)

[color= #0000ff;]                Return String.Format("http[color= #339933;]:[color= #666666; font-style: italic;]//media.ereslibre.es/2008/07/icons/{0}", CurrentLine
.Substring(StartIndex, Length))

            [color= #990000;]End [color= #b1b100;]If

        [color= #990000;]End [color= #b1b100;]If

        [color= #b1b100;]Return CurrentLine

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

 

    [color= #000000; font-weight: bold;]Private [color= #000000; font-weight: bold;]Function GetImageFromUrl[color= #009900;](ByVal ImgUrl [color= #b1b100;]As String[color= #009900;]) [color= #b1b100;]As Image

        Dim WB [color= #b1b100;]As [color= #000000; font-weight: bold;]New Net[color= #339933;].WebClient

        [color= #b1b100;]Return Image[color= #339933;].FromStream[color= #009900;](WB[color= #339933;].OpenRead[color= #009900;](ImgUrl[color= #009900;])[color= #009900;])

    [color= #990000;]End [color= #000000; font-weight: bold;]Function

 

    [color= #000000; font-weight: bold;]Private Sub Form1_Activated[color= #009900;](ByVal sender [color= #b1b100;]As Object[color= #339933;], ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Me
[color= #339933;].Activated

        WebBrowser1[color= #339933;].Navigate[color= #009900;]([color= #0000ff;]"http://media.ereslibre.es/2008/07/icons/"[color= #009900;])

        Button1[color= #339933;].Enabled [color= #339933;]= [color= #000000; font-weight: bold;]True

 

    [color= #990000;]End Sub

 

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class