Открытый класс FuskerView
    Dim AppPath As String = Application.StartupPath + "\"
    Тусклое ViewStyle As Integer = 1
    Dim FuskerURL As String = ""
    Тусклое Изображение NUMBER As Integer = 0

    Private Sub FuskerView_Load (ByVal отправитель Как System.Object, ByVal е Как System.EventArgs) Ручки MyBase.Load
        MyHTML = "<Стиль типа = «текст / CSS»>Тело {поле: 0; утеплитель: 0} "
        MyHTML = MyHTML + "<уш>"
        MyHTML = MyHTML + "<уш>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP; Это очень простой зритель fusker.<п/>"
        MyHTML = MyHTML + "<п><п/>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Для начала оставьте поле поиска пустым и нажмите кнопку поиска, чтобы получить список всех fusker ссылок.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Тип одиночных слов в текстовом окне поиска, чтобы отфильтровать результаты, например. met-art.com или подросток и т.д. и т.п.<уш>"
        MyHTML = MyHTML + "<п><п/>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Выберите fusker URL из выпадающего выпадающего списка и будет отображаться первое изображение.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; В левой части экрана отображается Columb будет отображать M1 M2 M3 следует всем числа изображений, а затем стены.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Нажмите на номер изображений для отображения одного изображения или нажмите Стену, чтобы отобразить стену изображения (все изображения)"
        MyHTML = MyHTML + "<п><п/>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP; Эти режимы просмотра (M1 M2 M3)<п/>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Если вы просматриваете одно изображение.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; М1 & M2 оба одинаковы, они устанавливают изображение, чтобы быть высотой браузера.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; М3 устанавливают изображение, которое будет шириной браузера.<уш>"
        MyHTML = MyHTML + "<п><п/>"
        MyHTML = MyHTML + "&NBSP;&NBSP; Если ваш Просматривая стену изображения.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; М1 иногда отображать маленькие изображения два за один раз.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; М2 будет отображаться только одно изображение одновременно.<уш>"
        MyHTML = MyHTML + "&NBSP;&NBSP; М3 таких же, как единое изображение, он просто устанавливает его, чтобы соответствовать ширине.<уш>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP;<п/>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP;<п/>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP;<п/>"
        MyHTML = MyHTML + "<п>&NBSP;&NBSP;<п/>"
        WebBrowser1.DocumentText = MyHTML
        Me.WindowState = FormWindowState.Maximized
        ComboBox1.Items.AddRange (My.Computer.FileSystem.ReadAllText (AppPath + "изображения fuskers.txt") .split (vbNewLine))
        ComboBox1.Text = "Выберите один из " + Уравновешивание (ул (ComboBox1.Items.Count) - 1) + " fusker ссылки"
    End Sub

    Private Sub (отправитель ByVal As Object, ByVal е Как System.EventArgs) FuskerView_Resize Ручки Me.Resize
        WebBrowser1.Width = Me.Width - 60
        WebBrowser1.Height = Me.Height - 60
        ListBox2.Left = 0
        ListBox2.Top = 0
        ListBox2.Height = Me.Height
    End Sub

    Private Sub Button2_Click (ByVal отправитель Как System.Object, ByVal е Как System.EventArgs) Ручки Button2.Click
        ComboBox2.Items.Clear ()
        При г = 0 Для ComboBox1.Items.Count - 1
            Если InStr (LCase (ComboBox1.Items (я)), LCase (TextBox1.Text)) <> 0 Тогда ComboBox2.Items.Add (ComboBox1.Items (я))
        следующий
        ComboBox2.Text = "Найдено = " + Ул (ComboBox2.Items.Count)
    End Sub

    Public Sub FuskerDisplay (ByVal WebBrowserName Как WebBrowser, ByVal FuskerURL As String, ByVal Изображение NUMBER As Long)
        Dim ImageUrl As String = ""
        Dim ImageList () As String
        Дим г As Integer = 0
        Дим с As Integer = 0
        t1 = Split (FuskerURL, "[")
        t2 = Split (t1 (1), "]")
        t3 = Split (t2 (0), "-")
        При х As Integer = t3 (0) до t3 (1)
            п = Обрезка (ул (х))
            Делать
                Если Len (п) < Len (t3 (0)) Тогда п = "0" + п
            Петля До Len (п) >= Len (t3 (0))
            ImageUrl = ImageUrl + t1 (0) + п + t2 (1)
            Если х < t3 (1) Тогда ImageUrl = ImageUrl + vbNewLine
        следующий
        ImageList = Split (ImageUrl, vbNewLine)
        Если Изображение NUMBER <> -1 Тогда
            MyHTML = "<Стиль типа = «текст / CSS»>Тело {поле: 0; утеплитель: 0} ") //-->