Utilice vb para implementar el programa de cambio horario

Función de declaración pública CloseHandle Lib "kernel 32" (ByVal hObject As Long) es Long

Función de declaración pública proceso abierto Lib "kernel 32" (ByVal dwDesiredAccess es Long, ByVal bInheritHandle es Long, ByVal dwProcessId es Long) es Long

La función de declaración pública termina el proceso Lib "kernel 32" (ByVal hProcess tiene la misma longitud, ByVal uExitCode tiene la misma longitud) tiene la misma longitud

Defina otro control de temporizador y establezca el valor de Inerval en 1000.

El código principal es el siguiente

Dim ret

El tamaño x, ret, ret2 tienen la misma longitud

Subtemporizador privado 1_Timer()

i = i + 1

Si i = 180, entonces ret = Shell("d:\1.exe ", 1)

Si i = 480, entonces ret1 = Shell("d:\2.exe ",1)

Si i = 1080, entonces

x = OpenProcess(0, False, ret )

ret = TerminateProcess(x, 0)

ret = closehandel(x)

Terminará si...

Si i = 1680, entonces

x = OpenProcess(0, False, ret2)

ret2 = TerminateProcess(x, 0)

ret2 = closehandel(x)

Terminará si...

Finalizar conector