Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Proggie hängt sich immer auf
Autor: Jesuz
Datum: 19.10.03 20:41
So... hier der SC, ich denk die Überschrift sagt scho alles. Ich seh da nich so ganz durch, warum das ding hängenbleibt Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function IsDestinationReachable Lib _ "Sensapi.dll" Alias "IsDestinationReachableA" _ (ByVal lpszDestination As String, _ lpQOCInfo As QOCINFO) As Long Private Type QOCINFO dwSize As Long dwFlags As Long dwInSpeed As Long dwOutSpeed As Long End Type Public Function Ping(ByVal IP As String) As Boolean Dim QuestStruct As QOCINFO Dim lReturn As Long ' Größe der Struktur QuestStruct.dwSize = Len(QuestStruct) ' Prüfen, ob Ziel erreichbar lReturn = IsDestinationReachable(IP, QuestStruct) ' Antwort auswerten If lReturn = 1 Then ' Antwort bekommen Ping = True List1.AddItem (IP) Else ' keine Antwort Ping = False End If End Function Private Sub Command1_Click() Dim eins As Variant Dim zwei As Variant Dim drei As Variant Dim vier As Variant For eins = Text1.Text To Text5.Text For zwei = Text2.Text To Text6.Text For drei = Text3.Text To Text7.Text For vier = Text4.Text To Text8.Text ipc = eins & "." & zwei & "." & drei & "." & vier Ping (ipc) Sleep 10000 List2.AddItem (ipc) If vier > 255 Then Exit For Else vier = vier End If Next If drei > 255 Then Exit For Else drei = drei End If Next zwei = zwei + 1 If zwei > 255 Then Exit For Else zwei = zwei End If If eins >= Text5.Text Then Exit For Else eins = eins End If Next Next End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() End Sub

Proggie hängt sich immer auf	709	Jesuz	19.10.03 20:41
Re: Proggie hängt sich immer auf	447	Dieter	19.10.03 21:11
Re: Proggie hängt sich immer auf	454	Jesuz	19.10.03 21:13
Re: Proggie hängt sich immer auf	462	Dieter	19.10.03 21:18
Re: Proggie hängt sich immer auf	469	Jesuz	19.10.03 21:27
Re: Proggie hängt sich immer auf	464	Dieter	19.10.03 21:33
Re: Proggie hängt sich immer auf	448	Jesuz	21.10.03 09:52
Re: Proggie hängt sich immer auf	460	Dieter	21.10.03 09:54
Re: Proggie hängt sich immer auf	453	Jesuz	21.10.03 13:48

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