Ip-Adressbereiche vergleichen

  • Hallo zusammen,


    ich möchte anhand der ausgelesenen IP Adresse eine bestimmte Meldung ausgeben. D.h. befindet sich der Client in einem Bereich von z.B. 172.50.XXX.XXX soll in einer Inputbox der Text "Netz 1" ausgeben werden. Befindet der Client sich im Bereich von 172.20.XXX.XXX soll in der selben Inputbox der Text "Netz 2"

    ausgegeben werden, bei allen anderen Netzbereichen "Unbekannt". Ich habe das Ganze schon "leihenhaft" mit einer If-Abfrage probiert, nur leider haut das vorne und hinten nicht hin. :( Ich hoffe ihr könnt mir helfen...


    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 454, 192, 114)
    GUICtrlCreateInput("" & @IPAddress1, 176, 120, 273, 21)
    $Label1 = GUICtrlCreateLabel("IP Adresse", 104, 120, 55, 17)
    $Label2 = GUICtrlCreateLabel("Netz", 128, 160, 26, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    If @IPAddress1 <= "172.50.245.245" Then
    GUICtrlCreateInput("Netz 1", 176, 160, 273, 21)
    ElseIF @IPAddress1 >= "172.20.0.0" Then
    GUICtrlCreateInput("Netz 2", 176, 160, 273, 21)
    ElseIf @IPAddress1 > "172.20.245.245" Then
    GUICtrlCreateInput("Unbekannt", 176, 160, 273, 21)
    ElseIf @IPAddress1 < "172.50.0.0" Then
    GUICtrlCreateInput("Unbekannt", 176, 160, 273, 21)
    ElseIf @IPAddress1 == "127.0.0.1" Then
    GUICtrlCreateInput("Keine Verbindung", 176, 160, 273, 21)
    ElseIF @IPAddress2 <= "172.50.245.245" Then
    GUICtrlCreateInput("Netz 1", 176, 160, 273, 21)
    ElseIf @IPAddress2 >= "172.20.0.0" Then
    GUICtrlCreateInput("Netz 2", 176, 160, 273, 21)
    ElseIf @IPAddress2 > "172.20.245.245" Then
    GUICtrlCreateInput("Unbekannt", 176, 160, 273, 21)
    ElseIf @IPAddress2 < "172.50.0.0" Then
    GUICtrlCreateInput("Unbekannt", 176, 160, 273, 21)
    EndIf

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]


    MFG Apocsis

    Einmal editiert, zuletzt von Apocsis (31. August 2009 um 18:10)

  • Das ging ja schnell :thumbup: ...


    Habs ausprobiert läuft so wie ich esmir vorstelle. VIELEN DANK Oscar :love:


    MFG Apocsis