IP Banner
Heres your chance to share your own tutorials with the community. Just post them on here. If your lucky they may even be posted on the main site.
So, We put the persons IP in the coding first? Then, when we want them banned we type in there IP?
Example:
Textbox1: 127.0.0.1
Am I wrong?
Example:
Code: Select all
If TextBox1.Text = "127.0.0.1" Then
MsgBox("Your ip address is banned!", MsgBoxStyle.Critical, "Banned")
End
Textbox1: 127.0.0.1
Am I wrong?
Little correction - simple one
Code: Select all
Dim IP as String = textbox1.text
Dim IPs() as String 'banned IPs
For Each IP in IPs
' If IP = Textbox1.Text Then 'not needed
MsgBox("You are Banned!")
' End If 'not needed
Next
M1z23R wrote:Little correction - simple oneSo, I would I still need to add the IPs manually?
Code: Select allDim IP as String = textbox1.text Dim IPs() as String 'banned IPs For Each IP in IPs ' If IP = Textbox1.Text Then 'not needed MsgBox("You are Banned!") ' End If 'not needed Next
Copyright Information
Copyright © Codenstuff.com 2020 - 2023