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
GFU-Schulungen  [Anzeige]

VB.NET Komplett

Sie stehen vo der Aufgabe, individuelle Anwendungen für Windows zu schreiben. Hier ist VB.NET die optimale Sprache. Sie erlernt sich recht leicht und passt sich komplett in die .NET Umgebung von Microsoft ein. Nach der Schulung entwickeln Sie anwenderfreundliche Programme in VB.NET . Mit den objektorientierten Modellen in VB.NET erzeugen Sie außerdem wiederverwendbare Komponenten.

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

 
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!