写了个从Sub Main启动没有Form的程序,怎么不在任务任务管理器的“应用程序”那一栏中显示啊?
Declare Function GetCurrentProcess Lib "kernel32" () As LongDeclare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p1 As Long) As LongDeclare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As LongDeclare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As LongSub Main()i& = GetCurrentProcessDo Do While Hour(Time) < 6 Or Hour(Time) > 22 Shell "CMD /c ipconfig /release", vbHide WaitForSingleObject i, 300000 Shell "CMD /c ipconfig /release", vbHide WaitForSingleObject i, 60000 ret& = RtlAdjustPrivilege(&H13, 1, 1, p4&) If ret = &HC000007C Then ret = RtlAdjustPrivilege(&H13, 1, 0, p4&) ZwShutdownSystem 2 LoopWaitForSingleObject i, 60000LoopEnd Sub