用vb實現定時開關程序

公共聲明函數CloseHandle Lib " kernel 32 "(ByVal hObject As Long)為Long

公共聲明函數open process Lib“kernel 32”(ByVal dwDesiredAccess為Long，ByVal bInheritHandle為Long，ByVal dwProcessId為Long)為Long

public Declare Function termin ate process Lib " kernel 32 "(ByVal hProcess壹樣長，ByVal uExitCode壹樣長)壹樣長

定義另壹個定時器控件，並將Inerval的值設置為1000。

主要代碼如下

昏暗ret

尺寸x，ret，ret2壹樣長

私有子定時器1_Timer()

i = i + 1

如果i = 180，則ret = Shell("d:\1.exe "，1)

如果i = 480，則ret1 = Shell("d:\2.exe "，1)

如果i = 1080，則

x = OpenProcess(0，False，ret)

ret = TerminateProcess(x，0)

ret = closehandel(x)

如果…就會結束

如果i = 1680，則

x = OpenProcess(0，False，ret2)

ret2 = TerminateProcess(x，0)

ret2 = closehandel(x)

如果…就會結束

末端接頭