[SOURCE] My 'BannedUsers' Program.

I posted this program in community general, back in late Jan 11'.
It's sort of a pointless program, but what it does is rolls through every page of a thread and does the following;
- Counts the amount of banned users
- Counts the amount of posts by banned users
- Lists the banned users names

Download the source code below:
http://rapidshare.com/files/450690701/BannedUsers.zip

Note
It will not work on a thread that is only 1 page, i've made it display a messagebox abusing you for being lazy if you try that
I also predict it will work on all forums that use the same version of vBulletin as Sythe, but i could be wrong. (not been tested)

----------------------

I will post the source via clipboard in this post for those who just want to browse the code and not download it.

You will need the following controls:
- Textbox called 'txtURL'
- Textbox called 'txtDisplay'
- Listbox called 'lstNames'
- Button called 'cbStart'

Make sure your form is called 'Form1'

Code below:

Code:

    Public Class Form1
    Private strUrl As String
    Private intPages As Integer
    Private strThread As String
    Private intCountMain As Integer
    Private blnComplete As Boolean
    Private blnClose As Boolean = False
    Private intPostCount As Integer
    Private intBanned As Integer

    Private Sub cbStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbStart.Click
        Try
            If InStr(LCase(txtURL.Text), "&page=") Then
                MsgBox("Please trim off the &page=[NUMBER] from the Thread URL.", MsgBoxStyle.Information, "Trim URL")
                Exit Sub
            End If
            lstNames.Items.Clear()
            txtDisplay.Clear()
            intPostCount = 0
            intBanned = 0
            blnComplete = False
            If txtURL.Text = "" Then
                Exit Sub
            End If
            Me.Text = "Banned Users - Downloading Thread..."
            txtURL.Enabled = False
            cbStart.Enabled = False
            strUrl = txtURL.Text
            downloaddata()
        Catch err As Exception
            MsgBox(err.Message)
        End Try
    End Sub

    Private Sub downloaddata()
        Try
            Using wcDownload As New Net.WebClient
                AddHandler wcDownload.DownloadStringCompleted, AddressOf wcDownload_DownloadStringCompleted
                wcDownload.Headers.Add("User-Agent", "GET / HTTP 1.1)")
                wcDownload.DownloadStringAsync(New Uri(strUrl))
            End Using
        Catch err As Exception
            MsgBox(err.Message)
        End Try
    End Sub

    Private Sub wcDownload_DownloadStringCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadStringCompletedEventArgs)
        Try
            Dim posPo(1) As Integer
            Dim strHtml As String = e.Result
            Dim i As Integer
                posPo(0) = InStr(LCase(strHtml), "<title>") + 7
                posPo(1) = InStr(posPo(0), LCase(strHtml), " - sythe.org forums")
                strThread = Mid(strHtml, posPo(0), posPo(1) - posPo(0))
                Me.Text = "BannedUsers - " & strThread
            posPo(0) = InStr(LCase(strHtml), ">page 1 of ") + 11
            If posPo(0) = 11 Then
                MsgBox("I was lazy and couldn't be fucked making this little exception." & vbNewLine & "It seems there is only 1 page of your thread, don't be a lazy cunt and just count the banned users yourself ;)" & vbNewLine & vbNewLine & "Love you forever" & vbNewLine & "~Covey")
                txtURL.Text = ""
                cbStart_Click(sender, e)
                cbStart.Enabled = True
                blnComplete = True
                blnClose = True
                txtURL.Enabled = True
                Me.Text = "Banned Users"
                Exit Sub
            End If
                posPo(1) = InStr(posPo(0), LCase(strHtml), "</td>")
                intPages = CInt(Mid(strHtml, posPo(0), posPo(1) - posPo(0)))
                txtDisplay.Text = "Thread title: " & strThread & vbNewLine & "Amount of pages: " & intPages
            posPo(0) = 1
            For i = 1 To 30
                posPo(0) = InStr(posPo(0), LCase(strHtml), " *banned*")
                If posPo(0) = 0 Then
                    Exit For
                End If
                posPo(1) = InStrRev(LCase(strHtml), """>", posPo(0)) + 2
                AddUser(Mid(strHtml, posPo(1), posPo(0) - posPo(1)))
                intPostCount = intPostCount + 1
                posPo(0) = posPo(0) + 8
            Next
            For intCount = 2 To intPages
                If blnClose = True Then
                    Exit For
                End If
                intCountMain = intCount
                blnComplete = False
                Using wcDownload2 As New Net.WebClient
                    txtDisplay.Text = "Thread title: " & strThread & vbNewLine & "Amount of pages: " & intPages & vbNewLine & _
                        vbNewLine & "Downloading page " & intCount & " of " & intPages & "..." & vbNewLine & _
                        "Posts by Banned users: " & intPostCount & vbNewLine & "Banned users: " & intBanned
                    AddHandler wcDownload2.DownloadStringCompleted, AddressOf wcDownload2_DownloadStringCompleted
                    wcDownload2.Headers.Add("User-Agent", "GET / HTTP 1.1)")
                    wcDownload2.DownloadStringAsync(New Uri(strUrl & "&page=" & intCount))
                End Using

                Do While blnComplete = False
                    Dim sw As New Stopwatch
                    sw.Start()
                    Do While sw.ElapsedMilliseconds < 50
                        Application.DoEvents()
                    Loop
                    sw.Stop()
                Loop
            Next
            cbStart.Enabled = True
            txtURL.Enabled = True
            If blnClose = True Then
                Me.Close()
            End If
        Catch err As Exception
            MsgBox(err.Message)
        End Try
    End Sub

    Private Sub wcDownload2_DownloadStringCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadStringCompletedEventArgs)
        Try
            Dim posPo(1) As Integer
            Dim strHtml As String = e.Result
            Dim i As Integer
            posPo(0) = 1
            For i = 1 To 30
                posPo(0) = InStr(posPo(0), LCase(strHtml), " *banned*")
                If posPo(0) = 0 Then
                    Exit For
                End If
                posPo(1) = InStrRev(LCase(strHtml), """>", posPo(0)) + 2
                AddUser(Mid(strHtml, posPo(1), posPo(0) - posPo(1)))
                intPostCount = intPostCount + 1
                posPo(0) = posPo(0) + 8
            Next
            blnComplete = True
            If intCountMain = intPages Then
                txtDisplay.Text = txtDisplay.Text & vbNewLine & vbNewLine & "Complete!"
            End If
        Catch err As Exception
            MsgBox(err.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        If blnClose = False Then
            If blnComplete = False Then
                blnClose = True
                txtDisplay.Text = txtDisplay.Text & vbNewLine & vbNewLine & "Preparing to Exit..."
                e.Cancel = True
            End If
        End If
    End Sub

    Private Sub AddUser(ByVal strName As String)
        Dim i As Integer
        For i = 0 To lstNames.Items.Count - 1
            If LCase(strName) = LCase(lstNames.Items(i)) Then
                Exit Sub
            End If
        Next
        lstNames.Items.Add(strName)
        intBanned = intBanned + 1
    End Sub

End Class

 

Nice. Too bad I don't know VB.

lol, why did I get infraction for this? I don't know VB so I have no use for the source, but I have some programming knowledge so I understand the code.