PING - Schleife, aber wie?

cocity

Hallo,

ich versuche schon seit Tagen ein simples Script zu erstellen, scheitere aber an meiner Unwissenheit und hoffe, dass Ihr mir ein bißchen auf die Sprünge helfen könnt.

Ich möchte gerne eine PING-Abfrage erstellen, die solange ausgeführt/wiederholt wird bis man das Script abbricht oder eine Internetverbindung besteht.

Ich denke, dafür gibt es z.B. die Funktion "while". Nur weiß ich beim besten Willen nicht, wie ich das Script entsprechend umschreiben muss.

Hier mein bisheriger CODE:

Code

SplashTextOn("", @CRLF & "PING-Abfrage..." & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
$ping = Ping("www.google.de")
SplashOff()
If $ping Then
	SplashTextOn("", @CRLF & "ONLINE" & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
	Sleep(3000)
	SplashOff()
	Exit
Else
	If MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?") = 7 Then
		Exit
		Else
			RunWait("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", "")
			WinWaitClose("Netzwerkverbindungen")
	EndIf
EndIf

Alles anzeigen

Für einen Tipp wäre ich Euch sehr dankbar...

Gruss

cocity

**peethebee**

Hallo!

Grob so:

Code

While 1
   sleep(20) ; damit er nicht 100% Prozesoor "frisst"
   ; Ping-Abfrage
   ; Wenn das SKript enden soll, dann ExitLoop machen
WEnd

peethebee

**GtaSpider**

Hallo und :willkommen: im Forum

Es gibt 2 möglichkeiten mit einer While:

Möglicihkeit 1

Spoiler anzeigen

Code

SplashTextOn("", @CRLF & "PING-Abfrage..." & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
While 1
	Sleep(50);damit er nicht 100% cpu verbrauch
	$ping = Ping("www.google.de");Pingt
	If $ping Then ExitLoop;Wenn internetverbindung beseteh soll die schleife beendet werden
	If MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?") = 7 Then;Wenn nicht kommt das
		Exit
	Else
		RunWait("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", "")
		WinWaitClose("Netzwerkverbindungen")
	EndIf
WEnd
SplashOff()
SplashTextOn("", @CRLF & "ONLINE" & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
Sleep(3000)
SplashOff()
Exit

Alles anzeigen

Möglichkeit 2

Spoiler anzeigen

Code

SplashTextOn("", @CRLF & "PING-Abfrage..." & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
While Not $ping; macht solange die schleife bis $ping = 1(internet verbindung besteht)
	Sleep(50);damit er nicht 100% cpu verbrauch
	$ping = Ping("www.google.de");Pingt
	If MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?") = 7 Then;Wenn nicht kommt das
		Exit
	Else
		RunWait("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", "")
		WinWaitClose("Netzwerkverbindungen")
	EndIf
WEnd
SplashOff()
SplashTextOn("", @CRLF & "ONLINE" & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
Sleep(3000)
SplashOff()
Exit

Alles anzeigen

Die beiden Methdown kommen aber auf das gleiche hinaus

Mfg Spider

p.s.: shit pee war schneller *g*

**peethebee**

Hallo!

Ich war schneller, aber nicht besser - musste mich ja beeilen...
:willkommen: auch von mir...

peethebee

cocity

Ihr seid echt super, danke für die schnelle Hilfe.

Habe jetzt einfach mein Script in die von peethebee geposteten Zeilen eingebaut und schon funktioniert es. Das war ja super einfach, aber ich muss noch verdammt viel lernen! Z.B. die Zeile mit Sleep(20) und dem Hinweis auf die Prozessorauslastung nehme ich als Unwissender einfach mal so hin.

Code

While 1
sleep(20) ; damit er nicht 100% Prozesoor "frisst"




SplashTextOn("", @CRLF & "PING-Abfrage..." & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
$ping = Ping("www.google.de")
SplashOff()
If $ping Then
	SplashTextOn("", @CRLF & "ONLINE" & @CRLF & @CRLF & "", 350, 40, -1, -1, 1, "MS Sans Serif", 8)
	Sleep(3000)
	SplashOff()
	Exit
Else
	If MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?") = 7 Then
		Exit
		Else
			RunWait("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl", "")
			WinWaitClose("Netzwerkverbindungen")
	EndIf
EndIf




WEnd

Alles anzeigen

Nochmals vielen vielen Dank

Gruss

cocity

**peethebee**

Hallo!

Super, freut mich, dass es klappt. Beim Lernen werden wir dir nach Kräften helfen - wird sich sicher lohnen.
Sleep pausiert dein Skript, sodass Windows Prozessorzeit an andere Programme vergeben kann. Natürlich kannst du Sleep auch nutzen, um dein Skript gewollt für z.B. 5 Skeunden warten zu lassen.
Es kann sein, dass in der aktuellen Beta-Version automatisch die Prozessorauslastung reduziert wird, zumindest scheint es so, ich habe es aber noch nicht getestet, weil ich immer mit Sleeps arbeite.

peethebee

**bernd670**

Hallo,

Zitat

von peethebee
Es kann sein, dass in der aktuellen Beta-Version automatisch die Prozessorauslastung reduziert wird, zumindest scheint es so, ich habe es aber noch nicht getestet, weil ich immer mit Sleeps arbeite.

Auch in der aktuellen Beta wird der Prozessor noch voll belastet!

cocity

peethebee

Die Sleep-Funktion kenne ich, nur verstehe ich halt nicht den Grund für das Sleep(20).

Warum soll am Anfang des Scripts eine Pause eingelegt werden ???

Das ist für mich so, als wenn ich einen Motor starte, aber erst in 5 Minuten losfahre.

Aber das führt dann wohl doch etwas zu weit und hat ja auch nichts mehr mit meiner Eingangsfrage zu tun. Nicht das ich gleich am ersten Tag wegen "Smalltalk" oder "Thema verfehlt" 'nen Anpfiff kriege *lach

Gruss

cocity

**peethebee**

Da gab es doch einen Thread wo jemand behauptet hatte, dass er dann zurückschaltet (Stichwort Pi...)

peethebee

**peethebee**

Naja, Sleep(20) pausiert das Skript bei jedem Durchlauf der Schleife für 20 Millisekunden (0,02 Sek), das ist nicht spürbar für dich, wohl aber für den Prozessor. Perfekt wäre es, das nicht am Anfang, sondern am ende der While-Wend-Schleife zu machen, da hast du Recht.

peethebee

**bernd670**

Zitat

Original von peethebee
Da gab es doch einen Thread wo jemand behauptet hatte, dass er dann zurückschaltet (Stichwort Pi...)

peethebee

Der hatte in seiner scheife ja auch die Funkton GuiGetMsg aufgerufen und die entlastet die CPU sowieso!

**peethebee**

Ups, sorry, da hatte ich nciht drauf geachtet, bin eigentlich immer im OnEvent-Mode unterwegs.

peethebee

**Xenobiologist**

Hi,

außedem ist eine Fehler in gtaspider's Code.

MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?")

Allein diese MsgBox wird nicht funktionieren.

So long,

Mega

**GtaSpider**

Hallo

ich habs nicht geschrieben :tier: hab einfach nur alles von cocity übernommen

cocity

Zitat

Original von th.meger
außedem ist eine Fehler in gtaspider's Code.

MsgBox(4+48, "OFFLINE" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?")

Wie gtaspider schon geschrieben hat, liegt der Fehler nicht in seinem, sondern in dem von mir geposteten Script. Ich hatte den für meine Frage unwichtigen Text gekürzt und dabei 'nen Fehler eingebaut.

So wird ein Schuh draus:

Code

MsgBox(4+48, "OFFLINE", "Text" & @CRLF & @CRLF & "Möchten Sie die Einstellungen überprüfen?")

Gruss

cocity