Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: z_ane_666 en 12 Junio 2010, 02:21 am



Título: como introducir pausa en programa?
Publicado por: z_ane_666 en 12 Junio 2010, 02:21 am
hola amigos ,estoy haciendo un programa que evita que ciertas juegos sean ejecutados (las cierra).  ;D

El programa es simple. cada vez que el timer bat sea verdadero, empieza a cerrar
ciertos juegos usando una orden de batch (taskkill)
Código:
'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
 If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub

Pero este codigo tiene un inconveniente. Y es que va a ver redundancia de ordenes taskkill(por consiguiente, "lageo" del sistema) . Para evitar eso desearia poner una suerte de pausas o "esperar 5555 milisegundos para pasar a la siguiente instruccion" algo asi como

Código:
'primero creamos 1 timer llamado bat que tiene 8000 de intervalo
Private Sub bat_Timer()
Dim path As String
 If bat = True Then
    Shell "cmd.exe /c taskkill /f /im gta-vc.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im NyxLauncher.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Diablo II.exe ", 0
    espere 5555 milisegundos para el siguiente
    Shell "cmd.exe /c taskkill /f /im Frozen Throne.exe ", 0
   
     End If
End Sub

Pero lamentablemente no se mucho de VB :huh:. espero que me ayuden

saludos


Título: Re: como introducir pausa en programa?
Publicado por: xkiz ™ en 12 Junio 2010, 02:30 am
Código
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2.  
  3. ' codigo
  4. Sleep 5555 ' pausa
  5. ' resto del codigo
  6.  
  7.  


Título: Re: como introducir pausa en programa?
Publicado por: z_ane_666 en 12 Junio 2010, 03:26 am
listo funciona!

gracias ;D