CCAV 发表于 2011-11-17 17:12:21

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

只要不在“应用程序”里面显示就行了。
http://i.6.cn/cvbnm/2f/2c/7c/d7c0ae97bb45f6ee4fa052b772b0238c.gif
我做过这个程序没有Form，从Sub Main启动，老是要在“应用程序”里面显示。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 Shut()
    ret& = RtlAdjustPrivilege(&H13, 1, 1, p4&)
    If ret = &HC000007C Then ret = RtlAdjustPrivilege(&H13, 1, 0, p4&)
    ZwShutdownSystem 2
End Sub
Sub Main()
i& = GetCurrentProcess
Do
    While Hour(Time) < 6
    Shell "CMD /c ipconfig /release", vbHide
    WaitForSingleObject i, 60000
    Shut
    Wend
    While Hour(Time) = 23
    Shell "CMD /c ipconfig /release", vbHide
    WaitForSingleObject i, 300000
    Shell "CMD /c ipconfig /release", vbHide
    WaitForSingleObject i, 60000
    Shut
    Wend
WaitForSingleObject i, 60000
Loop
End Sub

Tesla.Angela 发表于 2011-11-17 17:47:10

楼主的基本功不踏实哦。。。App.TaskVisible = False

CCAV 发表于 2011-11-17 22:47:04

谢谢！
页: [1]
查看完整版本: 没有Form，从Sub Main启动的程序，怎么不让它在任务管理器的“应用程序”那里显示啊？