[Visual Basic] Scan-Bat-Creater

Dieses Thema im Forum "Projekte / Codes" wurde erstellt von Radiergimmy, 18. August 2008 .

Schlagworte:
Status des Themas:
Es sind keine weiteren Antworten möglich.
  1. 18. August 2008
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    Scan-Bat-Creater

    Scan-Bat-Creater


    Bild

    Multi-Range Eingabe (Bild)


    Beschreibung: ​

    Dieses Programm dient Scannern dazu Batchdateien zu erstellen um nach Servern zu scannen.

    Mir war das ganze von Hand schreiben zu blöd geworden und da hab ich das mit Hilfe von Hardwarehunger geschrieben, an dieser Steller nochmal vielen Dank an Hardwarehunger.

    Zudem kann dan Programm auch GrimsPing Queues einlesen
    und arbeitet somit sehr gut mit dem IP-Range-Tool von Alex² zusammen.

    Diese Funktion wurde eingebaut um die IPs nicht nur nach Port 21 abzuscannen sondern so auch nach beliebigen Ports. Hierbei werden die IPs in folgendem Format eingetragen:
    "*.*.0.0 *.*.255.255"

    Die Multi-Range Eingabe ist so eine Art List2Bat bei der man die IPs einfach so übernehmen kann oder aber im "*.*.0.0 *.*.255.255" Format.
    Die IPs sollten aber immer 2 mal in einer Zeile stehen, für Anfangs- und End- IP also zB.:
    Code:
    63.234.159.182 63.234.159.182

    Upgedatet

    • Grösse: 84 KB
    • Sprache: de
    • Hersteller: - Radiergimmy
    • Version: - 1.0

    Details

    • Upper/ Coder: Radiergimmy

    Download

    Scan-Bat-Creater_1.2
    Scan-Bat-Creater_1.1
    Scan-Bat-Creater_1.0


    Bugs:
    keine bekannt

    Todo
    • Userwünsche

    Versions History

    • 1.2 Drittes Release, Thread syntax hinzugefügt
    • 1.1 Zweites Release, Multi Range Eingabe gefixxt
    • 1.0 Erstes Release, keine schwerwiegenden Fehler
    ​
     
  3. 21. August 2008
    AW: Scan-Bat-Creater

    gutes programm aber wenn zusaätzliche infos dazu stehen dann funzt es nicht immer.

    z.b. bei diesen ranges:

    Code:
    193.149.131.0 - 193.149.131.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.132.0 - 193.149.132.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.133.0 - 193.149.133.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.134.0 - 193.149.134.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.135.0 - 193.149.135.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.136.0 - 193.149.136.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK 
193.149.137.0 - 193.149.137.255 (DANISCO) Danisco enterprise router network; Headquarter Copenhagen; DK
    MfG
     
  4. 21. August 2008
    AW: Scan-Bat-Creater

    weiß ich grad nich wie man das beheben kann, tut mit leid. musst halt im vorraus schon einwenig aufbereiten.

    mfg Radiergimmy

    /edit: Hardwarehunger hat sich dem problem angenommen, sollte bald behoben sein.
    /edit2: sollte funktionieren.
     
  5. 28. August 2008
    AW: Scan-Bat-Creater

    wenn man jetz noch nach den ranges was eintragen kann z.b. die threadbegrenzung dann is das programm perfekt . könnt ihr das vlt. noch bitte einbauen?

    danke.

    MfG, Phlox
     
  6. 29. August 2008
    AW: Scan-Bat-Creater

    zähl doch die Punkte (in dem Fall 6) und mach dann nach dem nächsten Leerzeichen ein break und lösch den Rest. Beim programmieren muss man erfinderisch sein sonst kommst man da nicht weiter

    oder einfach das dritte Leerzeichen aufsuchen und den Rest löschen...
     
  7. 30. August 2008
    AW: Scan-Bat-Creater

    wurde doch schon gefixxt?

    btw interessieren ja sowieso nur eine ip

    dazu seperiert man erst die zeile in wörter mit split(..., " ") und dann muss das wort exakt 3 punkte enthalten. kann man wieder mit split und ubound prüfen und wenn das übereinstimmt kann man sichs ja simpel zusammenbasteln
     
  8. 30. August 2008
    AW: Scan-Bat-Creater

    Wieso nicht einfach mit einem regulären ausdruck?
    "/([0-9]{1,3}\.){3}[0-9]{1,3}/"
     
  9. 30. August 2008
    AW: Scan-Bat-Creater

    vb spricht die nicht, außerdem sind deine regular expressions weng anfällig (342.634.207.835 würde auch erkannt werden - gut bei meinem eigentlich auch wenn mans nicht abfragt, aber ich will grad was negatives finden^^)
     
  10. 30. August 2008
    Zuletzt von einem Moderator bearbeitet: 14. April 2017
    AW: Scan-Bat-Creater

    mir war es langweilig...

    Multiranges hinzufügen:

    Code:
    Private Sub Command2_Click()
Dim b() As String
Dim ii As Integer

b = Split(Text13.Text, vbNewLine)
For ii = 0 To UBound(b())
ip (b(ii))
Next ii
End Sub
    Eine range hinzufügen:
    Code:
    Private Sub Command1_Click()
ip (Text11.Text)
End Sub
    Hier die schöne billige prozedur, die aber gut funktioniert^^ kann man aber natürlich noch bessern.
    Code:
    Sub ip(Zeile As String)
Dim ip1 As String
Dim ip2 As String
Dim ip3 As String
Dim ip4 As String

Dim a() As String
Dim i As Integer


a = Split(Trim(Zeile), " ")
a = Split(a(0), ".")
If UBound(a()) <> 3 Then GoTo errr

For i = 0 To 3
If Len(a(i)) > 3 Then GoTo errr
Next i

ip1 = a(0)
ip2 = a(1)
ip3 = a(2)
ip4 = a(3)
If Text1.Text <> "" Then ip1 = Text1.Text
If Text2.Text <> "" Then ip2 = Text2.Text
If Text3.Text <> "" Then ip3 = Text3.Text
If Text4.Text <> "" Then ip4 = Text4.Text

Text9.Text = Text9.Text + Trim(Text10.Text) & " " & ip1 & "." & ip2 & "." & ip3 & "." & ip4 & " "

ip1 = a(0)
ip2 = a(1)
ip3 = a(2)
ip4 = a(3)
If Text5.Text <> "" Then ip1 = Text5.Text
If Text6.Text <> "" Then ip2 = Text6.Text
If Text7.Text <> "" Then ip3 = Text7.Text
If Text8.Text <> "" Then ip4 = Text8.Text

Text9.Text = Text9.Text + ip1 & "." & ip2 & "." & ip3 & "." & ip4 & " " & Trim(Text12.Text) & vbNewLine

Exit Sub
errr:
MsgBox "Falsche IP"
End Sub
    https://www.xup.in/dl,56257916/scan_bat.rar/

    Kannst es ja so noch verbessern und dann im ersten Post editieren...

    Ich close hier aber, weil es ein 5-Minuten-Billig-Programm ist.
     
  11. Video Script

    Videos zum Themenbereich

    * gefundene Videos auf YouTube, anhand der Überschrift.