![[Source] - VB08 Einfache IP Sperre](https://www.elitepvpers.com/forum/iconimages/coding-tutorials/source-vb08-einfache-ip-sperre_ltr.gif){kind=small}
Timer1:
(Enabled ---> True, Intervall ---> 1000)
Zeigt in dem Label den Inhalt des Dokuments
WebBrowser1 URL =
Ihr könnt euch auch ganz einfach ne eigene IP anzeige in php machen
Code:
<?phpecho $_SERVER["REMOTE_ADDR"]; ?>
Code:
Label1.Text = WebBrowser1.DocumentText
Timer2:
(Enabled ---> True, Intervall ---> 2000)
WebBrowser2 URL= Textdatei mit IP's die keine rechte haben sollen
Wenn also die IP in der Textdatei ist erscheint eine Message Box "You are banned"
Danach schliesst sich die Form...
Wenn die IP nicht eingetragen ist könnt ihr an stelle von dem "bla bla bla" irgendwas setzen oder lasst es einfach frei und entfernt das "else"
Code:
If WebBrowser2.DocumentText.Contains(Label1.Text) Then
Timer2.Stop()
MsgBox("You are banned")
Timer2.Stop()
Me.Close()
Else
Timer2.Stop()
MsgBox("bla bla bla ")
End If
Guid System:
So könnt ihr auch ganz einfach nen simples Guid System erstellen.
Timer1:
(Enabled ---> True, Intervall ---> 1000)
Code:
If WebBrowser1.DocumentText.Contains(my.Computer.Name) Then
Timer1.Stop()
MsgBox("Guid is Okey")
Else
Timer1.Stop()
MsgBox("Your Guid is not Okey")
Timer1.Stop()
Me.Close()
End If
Wenn ja erscheint eine Message Box mit dem text "Guid is Okey"
Wenn nicht erscheint eine Message Box mit dem text "Your Guid is not Okey"
Und die Form schliesst sicht.
Die URL für den WebBrowser1 muss wieder zu einer txt datei führen die die "Guids" enthät.
+++Den PC Namen als "Guid" zu benutzen ist unvorteilhaft.+++
+++Man sollte am besten die Festplatten ID/ CPU ID auslesen und verschlüsseln.+++
+++Das ist viel sicherer weil diese fast einmalig sind+++
Greetz BlackLabel :P
