Auto - stop vbs

**Phoenix2025** · 30/03/2012, 09h17

Bonjour à vous tous !

je suis actuellement avec un probleme concernant un script en vb.

Pour des raisons de sécurités, je doit le faire s'auto-détruire mon processus vbs si :

% CPU atteint
ou/et un temps d'ativation dépassé

Est-il possible de stop un script avec la fonction wscript.sleep ?

Merci de votre aide car je n'arrive pas à trouver de fonction correspondante à mes besions.

**hackoofr** · 30/03/2012, 19h32

Envoyé par Phoenix2025

Bonjour à vous tous !
je suis actuellement avec un probleme concernant un script en vb.
Pour des raisons de sécurités, je doit le faire s'auto-détruire mon processus vbs si :

% CPU atteint
ou/et un temps d'ativation dépassé

Est-il possible de stop un script avec la fonction wscript.sleep ?
Merci de votre aide car je n'arrive pas à trouver de fonction correspondante à mes besions.

wscript.sleep pour faire une pause dans le script
wscript.Quit pour quitter le script
vous pouvez poster votre code et

**hackoofr** · 31/03/2012, 01h07

Voila un petit exemple Tester ma connexion Internet en Boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'-------------TEST DE CONNEXION INTERNET ET SMTP DE GMAIL-----------
Boucle = True
While Boucle = True
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2011"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! " & objStatus.Statuscode,64,MsgTitre
Boucle = False
'Explorer("http://192.168.1.1")
wscript.quit
else
msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !" & objStatus.Statuscode,16,MsgTitre
Explorer("http://192.168.1.1") 'pour entrer dans la page du routeur et régler la configuration Internet par un reboot à distance du routeur
End If
Next
wscript.sleep 60000
Wend
Function Explorer(File)
set ws = CreateObject("wscript.shell")
ws.Run "explorer " & File
end Function