Home Made Ban System

[Bump J]

This is my cheap home made ban system i have on my multi-trainer

first were gonna need a html page with some information, like the status,version and, banned members

open notepad and put this, change noodlepoodle and pimpster to the usernames you want to banned, and remember to seperate the banned usernames by _+_

Status=ON<br>
Version=0.4.2<br>
Banned Members = <b>noodlepoodle_+_pimpster</b>

save that as programstats.html and upload to ftp server and add this vb code in your auth form

Dim strHTML As String
Dim strBanned As String
Dim strBannedArray() As String
Dim strCount As Variant

Private Sub cmdDoAuth_Click()
cmdDoAuth.Enabled = False

strHTML = HTTP.GetWrapper("http://website.com/programstats.html")

If InStr(1, strHTML, "Status=ON") = 0 Then
    MsgBox "Program Is Offline"
    Unload Me
    
ElseIf InStr(1, strHTML, "Status=ON") <> 0 Then
    If InStr(1, strHTML, "Version=0.4.2") = 0 Then
        MsgBox "Version Outdated" & vbNewLine & vbNewLine & "Download The Latest Version At www.slopdog.com"
        Unload Me
        
    ElseIf InStr(1, strHTML, "Version=0.4.2") <> 0 Then
        strBanned = GetStringBetween(strHTML, "<b>", "</b>")
        strBannedArray = Split(strBanned, "_+_")

        For Each strCount In strBannedArray()
            If LCase(txtUser.Text) = LCase(strCount) Then
                MsgBox "You Are Banned From This Program"
                Unload Me
            End If
        Next
        stHTML = DoAuth (txtUser.Text, txtPass.Text) 'Replace this with forum auth or something
        If strHTML = AUTHORIZED Then
            Me.Hide
            Form1.Show
        Else
            MsgBox strHTML
        End If
    End If
End If
cmdDoAuth.Enabled = True
End Sub

[Zetin]

nice, its a good idea