[Visual Basic] IP-Range-Tool [für Scanner]

Dieses Thema im Forum "Projekte / Codes" wurde erstellt von Alex², 23. Februar 2007 .

Schlagworte:
?

Ist das IP-Range-Tool nützlich?

Diese Umfrage wurde geschlossen: 18. März 2007
  1. Ja.

    14 Stimme(n)
    82,4%
  2. Nö.

    3 Stimme(n)
    17,6%
  1. 23. Februar 2007
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    IP-Range-Tool [für Scanner]

    Beschreibung:

    Dieses Programm erleichtert es Scanner sich IPs zu Suchen indem es die IPs der Webseiten driekt anzeigt so kann man schnell sehen ob es eine langsame oder eine schnelle 66er Range ist.

    Und das funzt so:

    Das Proggie geht auf Google und sucht nach eurem Suchwort (ich habe es so eingestellt das es keine Deutschen Domains findet).

    Danach Listet es die URLs auf so dass ihr nurnoch durchschalten müsst und die schnellen Ranges abspeichern.

    Features:

    - 100% working on Vista ^^
    - Länderflagge und Standort wird angezeigt
    - Blacklistcheker [Beim ersten Start wird die Blacklist heruntergeladen!]
    - Das gewünschte Kontextmenü
    - Mehrer IPs können in ein Grims's Ping Queue umgewandelt werden

    Screen:

    {bild-down: http://img506.imageshack.us/img506/755/ippptttooollee9.jpg}


    Download:

    Download: http:xupraidrushwsdownloadphpvalid1idd618b2e62bc6a35bab1dbb0c47c2c.exe | xup.in

    Einfach die ip_tool.exe starten. (es ist kein Setup)

    Fehler Lösungen:

    Keine Fehler bekannt.

    Vielen Dank an Nash der ne Menge zum IP-Range-Tool beigetragen hat.

    Feedback und Vorschläge bitte
     
  2. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Ganz geil das tool.

    Willst ja Feedback: Deshalb, würde den Knopf zu google verbinden und Agerssen auflisten zu einem machen.
    - Und würde noch automatisch hinter die ip, das land anzeigen lassen.

    Edit: vielleicht noch eine Möglichkeit alle Ips zu kopiern einbauen. (Kenn mich da nicht so aus, ob man das braucht)

    Edit²:Kannst ja in die Mitte die Location machen, wo auch die Ip ist. (Solltest du "Microsoft Internet Controls" nutzen ist dieses einfach noch hinzuzufügen.)

    mfg Nash
     
  3. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Das mit dem Knopf mach ich eben das mit dem alle kopieren später das mit dem land muss ich überlegen wie ichs mach
     
  4. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    also
    finds auch ganz gut, sind nur ein paar Schönheitsfehler drin

    1. Wenn keine Ip ausgewählt ist sollte man diese nicht zu Liste hinzufügen können.
    2. Der String "Suchwort" sollte verschwinden wenn die Textbox ausgewählt wird, aber nur wenn es halt "Suchwort" ist.

    Sollte in 2 min behoben sein.

    Btw, damit kannste vielleicht besser arbeiten als mit whois:
    Bulk IP lookup locator - Enter IP Addresses to find their IP Location
     
  5. 23. Februar 2007
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    AW: IP-Range-Tool [aka. IP-Programm]

    1.Behoben
    2.Behoben

    Download: http:xupraidrushwsdownloadphpvalid1id9443798655ad04b95997b667411ff.exe | xup.in *Update*


    JA nutze ich ; aber wie mach ich das , dass nur die länder fahne zusehen ist xD ??
     
  6. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Vllt. könntest dus machen, dass die IPs automatisch hinzugefügt werden, wenn man sie gesucht hat?

    Und vllt. für die rechte ListBox ein KontextMenü (Rechtsklick -> Eintrag löschen, whois etc.)
     
  7. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Download geht oben nicht der Link.
    Unten der Link ist die alte Version. (glaube ich)


    EDIT:
    Musst den Quelltext nach

    <img src="http://img.domaintools.com/flags/

    " width="18" height="12" alt=

    durchsuchen lassen und dann sehen was da hinter steht

    EDIT²:
    Code:
    ' Land ermitteln
    Private Function GetCountry() As Variant
     Dim Contry
     Dim sPos As Long
     Dim ePos As Long
    
     With WebBrowser1.Document.documentElement
     ' nach '<img src="http://img.domaintools.com/flags/' suchen
     sPos = InStr(sPos + 1, .outerHTML, "<img src=""http://img.domaintools.com/flags/", vbTextCompare)
     If sPos > 0 Then
     ' Schlusszeichen suchen (")
     ePos = InStr(sPos + 7, .outerHTML, Chr$(34))
     Else
     sPos = 0
     End If
     End With
     Contry = Mid$(.outerHTML, sPos + 10, ePos - sPos - 10)
     GetMailAdresses = Contry
    End Function
    
    EDIT³: Wäre noch kool, wenn irgendwo die Version stehen würde
     
  8. 23. Februar 2007
    oh jo ^^

    thx mal schaun wie ich das einbaun kann ^^

    Edit: ich hab keine ahnung wie ich das einbaun muss -.-"

    wird gemacht
     
  9. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Wie liest du denn google aus?

    Kann dir das programmieren, aber müsste da noch nen paar Anhaltspunkte haben, was du nicht weißt.

    P.S.: Werd dann auch mal wieder VB6 installieren
     
  10. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Wir könnten ja auch zusammen dran arbeiten.


    Mir ist grad ne Wunderbare idee gekommen xD :

    Also:

    Die Queue Dateien von Grims Ping sehen exat so aus:

    Code:
    "PubFind","000.000.000.1-254"
    "PubFind","111.111.111.1-254"
    "PubFind","111.111.112.1-254"
    Ich müsste blos ne funktion einbauen die eine solche datei erstelt und schon kann mans direkt in grims ping übernehmen.

    Edit: hab grad selbst gemerkt das mein tool nützlich ist xD
     
  11. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Könn wir machen.

    Direkt mal VB6 installiert. Werde nachher mal das mit dem Land erarbeiten.

    Das mit der Ausgabe in einer Textdatei ist auch nicht schwierig.

    EDIT:
    Code:
     F = FreeFile
     Open grims.text For Output As #F
     Print #F, "PubFind","000.000.000.1-254";
     Print #F, "PubFind","111.111.111.1-254";
     Close #F
    
     
  12. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]


    Das mit der Datei hab ich auch schon fertig ^^ (es gibt aber ein problem ! sobalt ich versuche 111.111.111.1-254 druch list1.text zu ersetzen klappt es bei mir nich mehr ^^. musst schaun wie es bei dir ist.)
     
  13. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Würde das mal nen bissel abänderen:

    Code:
    Dim F
    Dim n As Integer 'Zählvariable
    
    F = FreeFile
    Open grims.text For Output As #F
     For n = 0 To List1.ListCount - 1
     Print #F, "PubFind", List1.List(n)
     Next n
    Close #F
    
    EDIT: War so frei, das mit dem Land zu machen:

    Code:
    Private Sub Command1_Click()
     List1.AddItem GetCountry("82.134.2.3")
    End Sub
    
    ' Land ermitteln
    Private Function GetCountry(ip As String) As Variant
     Dim Quelltext As String
     Dim Pos1, Pos2
     Dim country
     
     'Url laden
     URL_Load "http://whois.sc/" & ip
     
     'Quelltext auslesen
     Quelltext = WebBrowser1.Document.documentElement.outerHTML
    
     'nach "http://img.domaintools.com/flags/" suchen
     Pos1 = InStr(1, Quelltext, "http://img.domaintools.com/flags/")
     
     If Pos1 <> 0 Then
     'nach Ende suchen
     Pos2 = InStr(Pos1 + 10, Quelltext, Chr$(34))
     Else
     'Flagge nicht gefunden
     End If
     
     country = Mid$(Quelltext, Pos1, Pos2 - Pos1)
     GetCountry = country
    End Function
    
     
  14. 23. Februar 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    gut thx
     
  15. 1. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Hi
    also dein Programm ist echt spitze!
    Hab nur 2 Fragen:
    1. Könntest du nicht einen Whois button direkt auf die From setzen? Dann muss man nicht immer
    ins menu gehen... oder per rechtsklick?
    2. Funktiort der blacklist scanner?
    *gespannt auf update warte*

    mfg
    Joker
     
  16. 1. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Bin auch gespannt auf updates.
    Also ein Kontexmenü wäre besser als dieses menü.
    Und dass man die range auch gleich im prog schaun kann ob sie black listed ist.
    Whoisn im prog wäre auch nice.
    Und die idee mit den grimsping fähigen files wäre natürlich auch unschlagbar.

    Alex² & Nash haben von mir ne Bew bekommen.
    Gute arbeit von alex und gute hilfe von nash :]
     
  17. 2. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Wusste gar nicht das es nen Blacklist Scanner gibt...

    Whois: fürs Land wird automatisch werde, dass er zu jeder Ip das Land angibt.
     
  18. 2. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Nettes Tool. Und vorallem für mich als Scanner sehr nützlich. Echt Spitzenarbeit von euch. Ich habe nix was ich anmekkern könnte, kommt auch selnte vor aslo führt euch geehrt

    Die Idee mit Grimsping ist garnicht so schlecht. Wenn ihr das noch einbauen würdet also joar dann würde ich euch sogar die Signatur putzen Also macht weiter so habt beide eine Bewertung von mir bekommen.

    //Edit : Mir kommt gerade eine Idee ob gut oder schlecht müsst ihr selber wissen. Also ich würde es noch ganz gut finden wenn man halt links einen Doppelt-Klick auf eine der Seiten macht und diese dann automatisch in die Zwischenablage springt.
     
  19. 6. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]

    Entwicklung wird vortgesetzt (manno man das so viele das gebrauchen können xD)


    €dit: Update auf Seite 1 der erste beitrag
     
  20. 11. März 2007
    AW: IP-Range-Tool [Nützlich für Scanner!!]

    hm, fehermeldung:
    http://img213.imageshack.us/img213/4975/03112007090541lx8.png
     
  21. 11. März 2007
    AW: IP-Range-Tool [Nützlich für Scanner!!]

    Hast du denn den Setup benutzt ??

    Ansonsten einfach die folgende datei nach "C:\windows\system32\" kopieren:

    Download offline!
     
  22. 11. März 2007
    AW: IP-Range-Tool [Nützlich für Scanner!!]

    echt geiles prog
    danke für die gewünschten verbesserungen
    ihr beiden macht ne klasse arbeit , dafür sind auch gleich mal bw´s rausgegangen
    greetz joker
     
  23. 11. März 2007
    AW: IP-Range-Tool [aka. IP-Programm]


    Wie meinst du das ?
     
  24. 11. März 2007
    AW: IP-Range-Tool [Nützlich für Scanner!!]

    Sehr geil das Tool

    @Alex²:
    Man könnte noch ein da einfügen.

    Hab direkt mal das Tool installiert da ist mir direkt was aufgefallen,

    der Installationspfad ist C:\Programme\Projekt1\ könnte man ja auf Ip-Tool ändern.

    mfg Nash
     
  25. 11. März 2007
    AW: IP-Range-Tool [Nützlich für Scanner!!]

    Ja, hab den setup benutzt
    die datei ist auch schon in system32

    Ich hab mir einfach selber die mozilla controls installiert (http://www.iol.ie/~locka/mozilla/MozillaControl1712.exe)
    nu kommt ne andere fehlermelundg:
    http://img137.imageshack.us/img137/6610/03112007133810jl0.png
    :\

    dass man nicht mehr auf "Adressen auflisten" klicken muss, sondern sie automatisch aufgelistet werden
     
  26. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.