Breadcrumbs

[thcodepro]

Add 1 Textbox

textbox visible = false


Code:

Code: Select all

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Hide()
        Try
            Dim web As New System.Net.WebClient
            Dim miip As String
            miip = System.Text.Encoding.ASCII.GetString(( _
            web.DownloadData("http://automation.whatismyip.com/n09230945.asp")))
            TextBox1.Text = miip
        Catch ex As Exception
            MsgBox("Error", MsgBoxStyle.Critical, "Error")
            End
        End Try

        'banned list start here------------------------------------------------------------------
        If TextBox1.Text = "IP here" Then
            MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
            End
        ElseIf TextBox1.Text = "IP here" Then
            MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
            End
        ElseIf TextBox1.Text = "IP here" Then
            MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
            End
        ElseIf TextBox1.Text = "IP here" Then
            MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
            End
        ElseIf TextBox1.Text = "IP here" Then
            MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
            End
        Else
            MsgBox("Your IP address is not banned!", MsgBoxStyle.Information, "Not Banned")
        End If
        'banned list stop here------------------------------------------------------------------
    End Sub
End Class

Remove this text in the code: IP here

and enter the IP address to be banned

[M1z23R]

What should we use this for :/ ?

[thcodepro]

For example: in a chat program for spammers, etc.

[M1z23R]

Yes, but this is how to check your own IP.

[thcodepro]

No! you must put this into a program so if you want to exclude anyone so enter the ip address them so when they start the program Will it check the ip address!

[M1z23R]

This can be done in client app my bad

[mandai]

You would have more control if the banned IPs could be updated.

[thcodepro]

I use the update ...

I have used the IP banner on a chat program to think it works fine.

[pip]

Nice i like this it works for me in my apps

[tsuyoka]

It would be better is you used an array sorta like :

Code: Select all

Dim IP as String
Dim IPs() as String

For Each IP in IPs
     If IP = Textbox1.Text Then
          MsgBox("You are Banned!")
     End If
Next

Then you could just add the ip to the array and you wont run out of if statments. Its still a good code so great work clapper;