[Alex²]

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 www.google.com 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:



Download:

http://xup.raidrush.ws/ndl_d618b2e62...ab1dbb0c47c2c/

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

[Nash]

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

[Alex²]

Zitat von Nash

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)

mfg Nash

Das mit dem Knopf mach ich eben das mit dem alle kopieren später das mit dem land muss ich überlegen wie ichs mach

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:
http://www.ipligence.com/iplocation/

[Alex²]

Zitat von styxx

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:
http://www.ipligence.com/iplocation/

1.Behoben
2.Behoben

http://xup.raidrush.ws/ndl_944379865...5997b667411ff/ *Update*

Zitat von Nash

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

JA nutze ich ; aber wie mach ich das , dass nur die länder fahne zusehen ist xD ??

[pyro]

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.)

[Nash]

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²:

' 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

[Alex²]

Zitat von Nash

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

oh jo ^^

Zitat von Nash

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

behoben ^^

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²:

' 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

thx mal schaun wie ich das einbaun kann ^^

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

Zitat von Nash

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²:

' 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

wird gemacht

[Nash]

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

[Alex²]

Zitat von Nash

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

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:

"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

[Nash]

Wir könnten ja auch zusammen dran arbeiten.

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:

 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

[Alex²]

Zitat von Nash

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:

 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

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.)

[Nash]

Würde das mal nen bissel abänderen:

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:

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

[Alex²]

Zitat von Nash

Würde das mal nen bissel abänderen:

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:

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

gut thx

[Joker47]

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

[5enseless]

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

[Nash]

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

Whois: fürs Land wird automatisch werde, dass er zu jeder Ip das Land angibt.

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.

[Alex²]

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


€dit: Update auf Seite 1 der erste beitrag

[pyro]

hm, fehermeldung:
http://img213.imageshack.us/img213/4...7090541lx8.png

[Alex²]

Zitat von pyro

hm, fehermeldung:
http://img213.imageshack.us/img213/4...7090541lx8.png

Hast du denn den Setup benutzt ??

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

http://xup.raidrush.ws/ndl_21695377c...b741131ae6776/

[Joker47]

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

[Alex²]

Zitat von pyro

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

Wie meinst du das ?

[Nash]

Sehr geil das Tool

@Alex²:

Ich habe es genutzt, es schneller ist und das andere rumgespackt hat .

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

[pyro]

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/6...7133810jl0.png
:\

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

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