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)
'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
'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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
' codigo
Sleep 5555 ' pausa
' resto del codigo
listo funciona!
gracias ;D