Można oczywiście dodać pobieranie zakresu z pliku ale yu mamy input z klawiatury,
Message = "Please enter start IP:"
Title = "Start Range"
StartIP = InputBox(Message, Title)
xx = StartIP
Good = ValidIP(xx)
Do while Good = "invalid"
Message = StartIP & " is not a valid IP." & _
vbCrLf & "Please re-enter start IP:"
Title = "Start Range"
StartIP = InputBox(Message, Title)
xx = StartIP
Good = ValidIP(xx)
Loop
......aby zobaczyć cały artykuł zaloguj się lub zarejestruj.....














