写了个从Sub Main启动没有Form的程序，怎么不在任务任务管理器的“应用程序”那一栏中显示啊？

Question

Declare Function GetCurrentProcess Lib "kernel32" () As Long
Declare Function ZwShutdownSystem Lib "ntdll.dll" (ByVal p1 As Long) As Long
Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Declare Function RtlAdjustPrivilege Lib "ntdll.dll" (ByVal p1 As Long, ByVal p2 As Byte, ByVal p3 As Byte, p4 As Long) As Long
Sub Main()
i& = GetCurrentProcess
Do
    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
    Loop
WaitForSingleObject i, 60000
Loop
End Sub如图：

Answer 1

哪里只是显示应用程序的windows窗口的标题以及图标。
你的程序没有窗体，当然没有显示了。当出现msgbox到那边看就会看到msgbox的标题。

Answer 2

Timeout那个就是，我说的是怎么不让他显示啊。
晕死。你们怎么都理解成我在问为什么不显示了么？？？？？？？？？？？？？？？

Answer 3

很简单。
Private Sub Form_Load()
    App.TaskVisible = False
End Sub中文有歧义啊。
“怎么不在任务任务管理器的“应用程序”那一栏中显示” =
“怎么才能不在任务任务管理器的“应用程序”那一栏中显示” or “为什么没有在任务任务管理器的“应用程序”那一栏中显示”

Answer 4

忘了是sub main了，测试了下貌似没有办法，要不自己搞个和msgbox看起来差不多的form吧，然后用我楼上的方法的。