[Radiergimmy]

Scan-Bat-Creater




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

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

[Phlox]

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

z.b. bei diesen ranges:

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

[Radiergimmy]

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.

[Phlox]

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

[Spite-Checker]

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

[Hardwarehunger]

Zitat von Spite-Checker

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

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

[Coksnuss]

Wieso nicht einfach mit einem regulären ausdruck?
"/([0-9]{1,3}\.){3}[0-9]{1,3}/"

[Hardwarehunger]

Zitat von Coksnuss

Wieso nicht einfach mit einem regulären ausdruck?
"/([0-9]{1,3}\.){3}[0-9]{1,3}/"

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

[N0S]

mir war es langweilig...

Multiranges hinzufügen:

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:

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.

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

http://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.