'把这个写在模块里，要关闭什么就调用propath("程序名.exe")，'如关闭excel就propath("EXCEL.EXE") Public Function propath(proname As String) As StringDim objWMIService As ObjectDim colProcesslist As Obj...
窗体上放一TIMER，它的INTERVAL属性设置为10Private Declare Function FindWindow% Lib "user32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any)Private Declare Function Sen...
