Topic: Am I allowed to sell this here? (Read 697 times)

  This is a VERY basic fusker viewer.

"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "  To begin leave the search box empty and click the search button to get a list of all fusker links.
"
        MyHTML = MyHTML + "  Type single words into the search text box to filter results eg. met-art.com or teen etc etc.
"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "  Select a fusker URL from the drop down listbox and the first image will be displayed.
"
        MyHTML = MyHTML + "  On the left of the screen the columb will display M1 M2 M3 followed by all the image numbers and then Wall.
"
        MyHTML = MyHTML + "  Click an image number to display a single image or click Wall to display an image wall (all images)"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "

  The view modes (M1 M2 M3)

"
        MyHTML = MyHTML + "  If you're viewing a single image.
"
        MyHTML = MyHTML + "  M1 & M2 are both the same, they set the image to be the height of the browser.
"
        MyHTML = MyHTML + "  M3 sets the image to be the width of the browser.
"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "  If your viewing an image wall.
"
        MyHTML = MyHTML + "  M1 will sometimes display small images two at a time.
"
        MyHTML = MyHTML + "  M2 will only display one image at a time.
"
        MyHTML = MyHTML + "  M3 is the same as single image, it just sets it to fit width.
"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "

"
        MyHTML = MyHTML + "

"
        WebBrowser1.DocumentText = MyHTML
        Me.WindowState = FormWindowState.Maximized
        ComboBox1.Items.AddRange(My.Computer.FileSystem.ReadAllText(AppPath + "image-fuskers.txt").Split(vbNewLine))
        ComboBox1.Text = "Select one of the " + Trim(Str(ComboBox1.Items.Count) - 1) + " fusker links"
    End Sub

    Private Sub FuskerView_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles 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 sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ComboBox2.Items.Clear()
        For i = 0 To ComboBox1.Items.Count - 1
            If InStr(LCase(ComboBox1.Items(i)), LCase(TextBox1.Text)) <> 0 Then ComboBox2.Items.Add(ComboBox1.Items(i))
        Next
        ComboBox2.Text = "Items found = " + Str(ComboBox2.Items.Count)
    End Sub

    Public Sub FuskerDisplay(ByVal WebBrowserName As WebBrowser, ByVal FuskerURL As String, ByVal ImageNumber As Long)
        Dim ImageURL As String = ""
        Dim ImageList() As String
        Dim z As Integer = 0
        Dim c As Integer = 0
        t1 = Split(FuskerURL, "[")
        t2 = Split(t1(1), "]")
        t3 = Split(t2(0), "-")
        For x As Integer = t3(0) To t3(1)
            n = Trim(Str(x))
            Do
                If Len(n) < Len(t3(0)) Then n = "0" + n
            Loop Until Len(n) >= Len(t3(0))
            ImageURL = ImageURL + t1(0) + n + t2(1)
            If x < t3(1) Then ImageURL = ImageURL + vbNewLine
        Next
        ImageList = Split(ImageURL, vbNewLine)
        If ImageNumber <> -1 Then
            MyHTML = ""
        Else
            MyHTML = ""
            For c = 0 To UBound(ImageList) - 1
                ImageURL = ImageList(c)

                If c = 0 Then
                    MyHTML = MyHTML + ""
                Else
                    MyHTML = MyHTML + ""
                End If
                z = c
            Next
            MyHTML = MyHTML + ""
        End If
        If ViewStyle = 1 Then
            MyHTML = Replace(MyHTML, "Width=", "Height=")
            MyHTML = Replace(MyHTML, "
", "")
        End If
        If ViewStyle = 2 Then
            MyHTML = Replace(MyHTML, "Width=", "Height=")
            MyHTML = Replace(MyHTML, "", "
")
        End If
        If ViewStyle = 3 Then
            MyHTML = Replace(MyHTML, "Height=", "Width=")
            MyHTML = Replace(MyHTML, "
", "")
        End If
        WebBrowser1.DocumentText = MyHTML

    End Sub

    Public Sub FuskerListbox(ByVal FuskerURL As String, ByRef ListBoxName As ListBox)
        ListBoxName.Items.Clear()
        ImageNumber = 0
        If ViewStyle = 1 Then
            ListBoxName.Items.Add("M1*")
            ListBoxName.Items.Add("M2")
            ListBoxName.Items.Add("M3")
        End If
        If ViewStyle = 2 Then
            ListBoxName.Items.Add("M1")
            ListBoxName.Items.Add("M2*")
            ListBoxName.Items.Add("M3")
        End If
        If ViewStyle = 3 Then
            ListBoxName.Items.Add("M1")
            ListBoxName.Items.Add("M2")
            ListBoxName.Items.Add("M3*")
        End If
        ListBoxName.Items.Add("")
        t1 = Split(FuskerURL, "[")
        t2 = Split(t1(1), "]")
        t3 = Split(t2(0), "-")
        For x As Integer = 1 To (t3(1) - t3(0)) + 1
            ListBoxName.Items.Add(x)
        Next
        ListBoxName.Items.Add("")
        ListBoxName.Items.Add("Wall")

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim i As Integer = ComboBox2.SelectedIndex
        If i = -1 Then Exit Sub
        FuskerURL = ComboBox2.Items(i)
        Call FuskerListbox(FuskerURL, ListBox2)
        Call FuskerDisplay(WebBrowser1, FuskerURL, 0)
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim i As Integer = ComboBox1.SelectedIndex
        If i = -1 Then Exit Sub
        FuskerURL = ComboBox1.Items(i)
        Call FuskerListbox(FuskerURL, ListBox2)
        Call FuskerDisplay(WebBrowser1, FuskerURL, 0)
    End Sub

    Private Sub ListBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox2.Click
        Dim i As Integer = ListBox2.SelectedIndex
        If i = -1 Then Exit Sub
        If i = 0 Then
            ListBox2.Items(0) = "M1*"
            ListBox2.Items(1) = "M2"
            ListBox2.Items(2) = "M3"
            ViewStyle = 1
        End If
        If i = 1 Then
            ListBox2.Items(0) = "M1"
            ListBox2.Items(1) = "M2*"
            ListBox2.Items(2) = "M3"
            ViewStyle = 2
        End If
        If i = 2 Then
            ListBox2.Items(0) = "M1"
            ListBox2.Items(1) = "M2"
            ListBox2.Items(2) = "M3*"
            ViewStyle = 3
        End If
        If i < 3 Then
            Call FuskerDisplay(WebBrowser1, FuskerURL, ImageNumber)
            Exit Sub
        End If
        If i = 3 Then Exit Sub
        If i = ListBox2.Items.Count - 2 Then Exit Sub
        If i < ListBox2.Items.Count - 1 Then
            ImageNumber = i - 4
        Else
            ImageNumber = -1
        End If
        Call FuskerDisplay(WebBrowser1, FuskerURL, ImageNumber)
    End Sub
End Class