[VisualBasic] IP Programm

Dieses Thema im Forum "Programmierung & Entwicklung" wurde erstellt von Alex², 4. Februar 2007 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 4. Februar 2007
    IP Programm

    hi, also wenn ich nach ips zum pubs scannen suche gehe ich immer auf google -----> [suchwort] ----> Adresse kopieren -----> whois.sc -----> ip kopieren -------> blacklist.cx.la -------> cheken on die ip blacklisted ist.


    So jetz die Frage ist es möglich in VB ein programm zu schreiben was ca. die ersten 10 ergebnisse bei google ausliest und das oben beschriebene macht und die ips anschließend auflistet ?

    Ich habe einige Grundkentnisse in VB weiß aber nicht genau wie ich anfangen soll ^^.

    Also pls helft mir ^^.


    MFG Alex²
     

  2. Anzeige
    Dealz: stark reduzierte Angebote finden.
  3. #2 4. Februar 2007
    AW: IP Programm

    Ich meine kingKa0s hatte mal nen Programm gecodet das die ip auf bl Status prüfen kann, vllt macht er dir ja auch noch eins das das kann was du beschrieben hast!

    Knusperkeks
     
  4. #3 4. Februar 2007
    AW: IP Programm

    öhm schreib doch mal kingKa0s per pn an, du kannst dich nicht drauf verlassen dass er hier reinschaut.

    Aber B2T:
    Ich wäre eingentlich auch an solch einem programm interressiert.
    Ist nämlich ein bischen doof immer in dieser riesen liste nach dem range zu suchen.
     
  5. #4 4. Februar 2007
  6. #5 4. Februar 2007
    AW: IP Programm


    OK, noch 2 Fragen ^^:

    1.Wie filtere ich Schrott aus der listbox
    Also das aus "www.adresse.de/verzeichnis1/verzeichnis2/bla.php"
    www.adresse.de" wird

    2. Wie bekomme ich die ip aus der whois.sc seite raus (nur die ip)
     
  7. #6 4. Februar 2007
    AW: IP Programm

    mit InStr() und Left() und Right()
    url="www.asdasd.de/wer"
    url= left(url,instr(url,"/")-1)
     
  8. #7 4. Februar 2007
    AW: IP Programm

    Kanste mal ein Bsp machen ?? ^^ *dumm an stell*

    meine ausgabe listbox heißt "List1"
     
  9. #8 4. Februar 2007
    AW: IP Programm

    So hier schon fertig gecoded. Damit ist das Programm ja schon fast fertig

    Code:
    For n = 0 To Ubond(sUrl)
     url = sURL(n)
     url= left(url,instr(url,"/")-1)
     List1.AddItem Url
    Next n
    
     
  10. #9 4. Februar 2007
    AW: IP Programm

    hab doch schon ein beispiel gemacht!


    dim url as string
    url="www.asdasd.de/wer"
    url= left(url,instr(url,"/")-1)
    list1.additem url

    dann kommt url = www.asdasd.de raus ;)
     
  11. #10 4. Februar 2007
    AW: IP Programm

    Kleine frage noch, wo steht bei whois.sc die IP auf der Normalen Seite.
    Finde da grade keine
     
  12. #11 5. Februar 2007
    AW: IP Programm

    unten (nicht bei allen seiten)

    Code:
    Private Sub Command1_Click()
     Dim sHTMLText As String
     Dim sURL As Variant
     Dim I As Integer
    
     ' zunächst Seitenquelltext ermitteln
     With WebBrowser1.Document
     sHTMLText = .documentElement.outerHTML
     End With
    
     ' jetzt URLs ermitteln
     sURL = HTML_GetAllURLs(sHTMLText)
    
     ' URLs vorhanden?
     If IsArray(sURL) Then
     ' ListBox mit den URLs füllen
     List1.Clear
     For n = 0 To UBound(sURL)
     URL = sURL(n)
     URL = Left(URL, InStr(URL, "/") - 1) ' Wird gelb makiert [Ungültiger Prozeduraufruf oder ungültiges Argument]
     List1.AddItem URL
     Next n
     End If
    
    End Sub
    

    Und Jetz zeigt er in der ListBox nur bis "http" an der rest is weg -.-"
     
  13. #12 5. Februar 2007
    AW: IP Programm

    musst natürlich das http vorher wegmachen

    URL = sURL(n)
    URL= replace(url,"http://","")
    URL = Left(URL, InStr(URL, "/") - 1)
     
  14. #13 5. Februar 2007
    AW: IP Programm

    Das liegt dann daran, dass kein / in der URL ist und er deswegen nix findet. dann liefert die Left funktion nen fehler.

    also vorher mit Instr(URL, "/")>0 überprüfen, ob ein "/" in der URL ist
     
  15. #14 5. Februar 2007
    AW: IP Programm

    So zu 50% fertig !

    noch eine frage:

    wie lösche ich leere listbox einträge ^^ ?
     
  16. #15 5. Februar 2007
    AW: IP Programm

    Code:
    Dim myLimit As Integer
    myLimit = List1.ListCount - 1
    Dim i As Integer
    i = 0
    Do
     If Trim$(List1.List(i)) = "" Then
     List1.RemoveItem i
     myLimit = myLimit - 1
     End If
     i = i + 1
    Loop Until i > myLimit
     
  17. #16 5. Februar 2007
    AW: IP Programm


    1.Wie wende ich das genau an ?

    2.So Wie bekomme ich es hin das jetz die Einträge in der ListBox gewhoist werden bzw. die ip dahinter angezeigt wird ??
     
  18. #17 5. Februar 2007
    AW: IP Programm

    1. if instr(url,"/") then [..]
     
  19. #18 5. Februar 2007
    AW: IP Programm

    OK, danke allex fertig bis uaf die whois abfrage
     
  20. #19 5. Februar 2007
    AW: IP Programm

    stellste dein prog auch mal zur schau ?
    wäre n1ce

    captan2
     
  21. #20 5. Februar 2007
    AW: IP Programm

    bei whois kannses einfach machen
    musst einfach nur http://whois.sc/$ip machen
    dann ahstes schon
     
  22. #21 5. Februar 2007
    AW: IP Programm

    Ja .

    Das is ne notlösung ^^ ich will ja die ip direkt im prog inna listbox sehen
     
  23. #22 5. Februar 2007
    AW: IP Programm

    Ich mach erstmal vorläufig dich, wenn spizielle fragen bestehen kannst du wieder öffnen aber im Moment artet es eher zu nem spam thread aus!

    Wenne fertig bist stell's ins showcase und dort können die anderen es sich dann begucken!

    ~vorläufig dicht~

    Knusperkeks
     

  24. Videos zum Thema
Die Seite wird geladen...