conteo y apagado de pc

[Jms]

Hola,!! gente tengo una pregunta estoy intentando hacer q cuando llege a un cierto numero se apage la pc por ejmplo llege al 800 y se apage pero algo configurable porque si yo ya tengo 200 le quiero poner q cuente de 200 para arriba asta 800, buscando encontré algo que es mas o menos lo que quiero hacer pero no se me ocurre como modificarlo para poderlo adaptar al scrip q estoy tratando de hacer :( alguien me da una mano???

Código: Seleccionar todo

$sRespuesta=InputBox("Programación de apagado del pc","¿En cuantos minutos quiere que se apague el PC?") 
if $sRespuesta="" or not(StringIsDigit($sRespuesta)) then exit
sleep(number($sRespuesta)*60000)
$sInformacion="Han pasado los "&$sRespuesta&" minutos"& @crlf &"Si no pulsa Cancelar se apaga en 20 segundos"
if MsgBox(1,"Programación de apagado del pc ",$sInformacion,20)<>2 then Shutdown(5)

Código: Seleccionar todo

HotKeySet("{F3}", "contador")

While 1
	Sleep(100)
	WEnd

func contador()

while 1


PixelSearch (440, 658, 440, 658, 0xB80201 , 1)
      If Not @error Then

         Sleep (100)
   MouseMove (623,254)
   MouseDown ("primary")
   Sleep (100)
   MouseUp ("primary")

Sleep (600)

EndIf
Prueba()
WEnd
EndFunc

Func Prueba()
Local static $contador=0
MsgBox(0,"",$contador)
$contador+=1
EndFunc

[Jms]

hola gente algo logre hacer... pero se me apaga la pc y no cuenta asta cierto numero jaja

Código: Seleccionar todo

HotKeySet("{F3}", "contador")


$sRespuesta=InputBox("ejecucion","¿cuantas ejecuciones?")

While 1
	Sleep(100)
	WEnd

func contador()

while 1


PixelSearch (440, 658, 440, 658, 0xB80201 , 1)
      If Not @error Then

         Sleep (100)
   MouseMove (623,254)
   MouseDown ("primary")
   Sleep (100)
   MouseUp ("primary")

Sleep (600)

EndIf
Prueba()
WEnd
EndFunc


Func Prueba()

Local static $contador= $sRespuesta
ToolTip($contador,0 ,0,"ejecutado",1,1)



For $contador =  $sRespuesta  To 999 = $apagar Step 1 ;seria cuenta($contador) = inicio($sRepuesta) to 999 =$apagar (ejecuta la variable a los  999)  ??  :smt017 


 $apagar= Shutdown(5)
Next

gracias........

[Jms]

Ya lo solucione jajaja

Código: Seleccionar todo

Func Prueba()
Local static $contador=1
ToolTip ($contador,0,0,"Reset",4)
$contador+=1

If $contador = $sRespuesta Then

Shutdown (6)
EndIf
EndFunc

gracias =