[Pomoc] Zamykanie procesów i usług.

[MEXXIO]

<=== Reklama

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Mam tu taki kod do zamykania procesów:

#include <Constants.au3>
$procesy = FileOpen("procesy.txt", 0)
$services = FileOpen("services.txt", 0)
While 1
	FileSetPos($procesy, 0, $FILE_BEGIN)
	While 1
		$proces = FileReadLine($procesy)
		If @error = -1 Then ExitLoop
		If ProcessExists($proces) Then ProcessClose($proces)
	WEnd
	Sleep(100)
	While 1
		FileSetPos($services, 0, $FILE_BEGIN)
	While 1
		$service = FileReadLine($services)
		If @error = -1 Then ExitLoop
		RunWait(@ComSpec & " /c NET STOP " & $service & " /Y",@SystemDir,@SW_HIDE)
	WEnd
WEnd
WEnd
Exit

Chciałem zrobić coś podobnego z wyłączaniem usług, na bank coś tu jest źle jak nie wszystko z tą drugą częścią. Ktoś pomoże?

[hehe7]

#include <Constants.au3>

$procesy = FileOpen("procesy.txt", 0)

$services = FileOpen("services.txt", 0)

While 1

FileSetPos($procesy, 0, $FILE_BEGIN)

While 1

$proces = FileReadLine($procesy)

If @error = -1 Then ExitLoop

If ProcessExists($proces) Then ProcessClose($proces)

WEnd

Sleep(100)

While 1

FileSetPos($services, 0, $FILE_BEGIN)

While 1

$service = FileReadLine($services)

If @error = -1 Then ExitLoop

RunWait(@ComSpec & " /c NET STOP " & $service & " /Y",@SystemDir,@SW_HIDE)

WEnd

WEnd

WEnd

Exit

Wrzucasz go do pętli NIESKONCZONEJ to jak ma iść dalej jeśli siedzi w tej pętli? Wyjście to albo dać go do pętli For i do parametru dać ilość linii którą odczytasz za pomocą funkcji do obsługi txt - sam sobie znajdziesz :angry: