Feedback

VB - IP Bann mit php

Veröffentlicht von am 11.04.2012
(0 Bewertungen)
Dies ist eine simple Lösung um einen IP bann mit Hilfe von php zu erstellen
 
Dim ServerURL As String = "" 'ServerURL mit / am Ende
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   WebBrowser1.Navigate(ServerURL & "ipban.php")
    End Sub



Sub IPBann() Handles WebBrowser1.DocumentCompleted

        RichTextBox1.Text = WebBrowser1.DocumentText
        Dim IP As String = System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName).AddressList.GetValue(2).ToString
        Dim i As Integer
        For i = 0 To RichTextBox1.Lines.Length - 1
            'gesperrte IP's abrufen
            Dim gesperrteIP As String = RichTextBox1.Lines.GetValue(i)
            If IP = gesperrteIP Then


                If My.Computer.FileSystem.FileExists(verz & "syserr.txt") Then
                    Dim alt As String = My.Computer.FileSystem.ReadAllText(verz & "syserr.txt")
                    My.Computer.FileSystem.DeleteFile(verz & "syserr.txt")
                    My.Computer.FileSystem.WriteAllText(verz & "syserr.txt", alt & vbNewLine & "Ihre IP wurde gesperrt - " & IP, True)
                    MsgBox("Ihr IP wird vom Programm leider blockiert." & vbNewLine & "Bitte kontaktieren sie den Ersteller der Software um weitere Infos zu erhalten" & vbNewLine & "IP: " & IP, MsgBoxStyle.Critical, "IP-Sperre")
                    Application.Exit()
                Else
                    Dim sys As String = verz & "syserr.txt"

                    My.Computer.FileSystem.WriteAllText(sys, "Ihre IP wurde gesperrt - " & IP, False)
                    MsgBox("Ihr IP wird vom Programm leider blockiert." & vbNewLine & "Bitte kontaktieren sie den Ersteller der Software um weitere Infos zu erhalten" & vbNewLine & "IP: " & IP, MsgBoxStyle.Critical, "IP-Sperre")
                    Application.Exit()
                End If

            ElseIf gesperrteIP = "0" Then
                MsgBox("Zurzeit ist jedweder Zugriff zum Programm untersagt. Es hat keiner mehr Zugriff!" & vbNewLine & "IP: " & IP, MsgBoxStyle.Critical, "IP-Sperre")
                Application.Exit()

            End If


        Next

    End Sub
Abgelegt unter php, IP, Bann, bann, Ip bann.

1 Kommentare zum Snippet

Rudolf Grauberger schrieb am 01.09.2012:
Ein kurzes Beispiel wofür man sowas benötigen könnte, wäre ganz gut. Ich kann mir einfach nichts dazu vorstellen.
 

Logge dich ein, um hier zu kommentieren!