#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 ?? + Multi-Zitat Zitieren
#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.) + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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.) + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 :] + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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. + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#20 11. März 2007 AW: IP-Range-Tool [Nützlich für Scanner!!] hm, fehermeldung: http://img213.imageshack.us/img213/4975/03112007090541lx8.png + Multi-Zitat Zitieren
#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! + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren
#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 + Multi-Zitat Zitieren