You don't have to you get the first 2,000 galleries for free
![Grin](https://bitcointalk.org/Smileys/default/grin.gif)
It was the Bitcointalk forum that inspired us to create Bitcointalksearch.org - Bitcointalk is an excellent site that should be the default page for anybody dealing in cryptocurrency, since it is a virtual gold-mine of data. However, our experience and user feedback led us create our site; Bitcointalk's search is slow, and difficult to get the results you need, because you need to log in first to find anything useful - furthermore, there are rate limiters for their search functionality.
The aim of our project is to create a faster website that yields more results and faster without having to create an account and eliminate the need to log in - your personal data, therefore, will never be in jeopardy since we are not asking for any of your data and you don't need to provide them to use our site with all of its capabilities.
We created this website with the sole purpose of users being able to search quickly and efficiently in the field of cryptocurrency so they will have access to the latest and most accurate information and thereby assisting the crypto-community at large.
Public Class FuskerView
Dim AppPath As String = Application.StartupPath + "\"
Dim ViewStyle As Integer = 1
Dim FuskerURL As String = ""
Dim ImageNumber As Integer = 0
Private Sub FuskerView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyHTML = ""
MyHTML = MyHTML + "
"
MyHTML = MyHTML + "
"
MyHTML = MyHTML + "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