Apr 15, 2010 11:17 AM
(This post was last modified: Apr 15, 2010 11:18 AM by The-One.)
Hello,
What do we need?
Make a new .txt file. Name is IPs(must be .txt)
Put in the IP for the people(s) you don't want you to use your program.
'NOTE, Use my other thread To get the user's IP
'
Timer1 Code ' Interval like 2000
Form1.Load
Enjoy.
What do we need?
- Webhost
- VB. Program
Make a new .txt file. Name is IPs(must be .txt)
Put in the IP for the people(s) you don't want you to use your program.
'NOTE, Use my other thread To get the user's IP
Code
Public Sub BanCheck()
Dim wc As New WebClient
Dim MyIP As String
Dim BannedIps As String
MyIP = IP ' Used from my YourIP code, look in my other thread
BannedIps = wc.DownloadString("www.yourwebhost.com/IP.txt").ToString
If BannedIps.Contains(MyIP) Then
Timer1.Stop()
MsgBox("You have been banned from the server, if you want to get unbanned agin, email: [email protected]", MsgBoxStyle.Information, "<YourProgramName>")
Me.Close()
End If
wc.Dispose()
End SubTimer1 Code ' Interval like 2000
Code
BanCheck()Form1.Load
Code
BanCheck()
Timer1.Start()Enjoy.
FR1908


