Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: IP-Adressbereich ermitteln
Autor: Helm
Datum: 31.12.03 15:15
Hallo, auf Anhieb fällt mir nur dies ein : ''**************************************** ' in text1.text steht die startaddresse ' in text2.text steht die stopaddresse '****************************************** Dim segstart1 As Integer Dim segstart2 As Integer Dim segstart3 As Integer Dim segstart4 As Integer Dim segstop1 As Integer Dim segstop2 As Integer Dim segstop3 As Integer Dim segstop4 As Integer Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim startaddresse Dim stopaddresse startaddresse = Split(Text1.Text, ".", -1, vbTextCompare) stopaddresse = Split(Text2.Text, ".", -1, vbTextCompare) segstart1 = startaddresse(0) segstart2 = startaddresse(1) segstart3 = startaddresse(2) segstart4 = startaddresse(3) segstop1 = stopaddresse(0) segstop2 = stopaddresse(1) segstop3 = stopaddresse(2) segstop4 = stopaddresse(3) For a = segstart1 To segstop1 For b = segstart2 To segstop2 For c = segstart3 To segstop3 For d = segstart4 To segstop4 List1.AddItem (a & "." & b & "." & c & "." & d) Next d Next c Next b Next a Eine einfachere Möglichkeit fällt mir gerade nicht ein. Servus

IP-Adressbereich ermitteln	693	User32.dll	31.12.03 14:15
Re: IP-Adressbereich ermitteln	523	Helm	31.12.03 15:15
Re: IP-Adressbereich ermitteln	507	User32.dll	31.12.03 19:00

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen