没有Form，从Sub Main启动的程序，怎么不让它在任务管理器的“应用程序”那里显示啊？

CCAV

只要不在“应用程序”里面显示就行了。

我做过这个程序没有Form，从Sub Main启动，老是要在“应用程序”里面显示。

1. Declare Function GetCurrentProcess Lib "kernel32" () As Long
   
2. Declare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p1 As Long) As Long
   
3. Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
   
4. Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As Long
   
5. Sub Shut()
   
6.     ret& = RtlAdjustPrivilege(&H13, 1, 1, p4&)
   
7.     If ret = &HC000007C Then ret = RtlAdjustPrivilege(&H13, 1, 0, p4&)
   
8.     ZwShutdownSystem 2
   
9. End Sub
   
10. Sub Main()
    
11. i& = GetCurrentProcess
    
12. Do
    
13.     While Hour(Time) < 6
    
14.     Shell "CMD /c ipconfig /release", vbHide
    
15.     WaitForSingleObject i, 60000
    
16.     Shut
    
17.     Wend
    
18.     While Hour(Time) = 23
    
19.     Shell "CMD /c ipconfig /release", vbHide
    
20.     WaitForSingleObject i, 300000
    
21.     Shell "CMD /c ipconfig /release", vbHide
    
22.     WaitForSingleObject i, 60000
    
23.     Shut
    
24.     Wend
    
25. WaitForSingleObject i, 60000
    
26. Loop
    
27. End Sub

复制代码

Tesla.Angela

楼主的基本功不踏实哦。。。

1. App.TaskVisible = False

复制代码

CCAV

谢谢！