写了个从Sub Main启动没有Form的程序,如何不在任务任务管理器的“应用程序”那一栏中显示啊
写了个从Sub Main启动没有Form的程序,怎么不在任务任务管理器的“应用程序”那一栏中显示啊?
如图:
------解决方案--------------------
我好像知道你挡住的那两个进程的内容
------解决方案--------------------
就用你的程序,工程名字"工程1",任务管理器显示了工程1
难道要显示什么?
------解决方案--------------------
是不是电脑的问题啊?把你 的生成的程序拷到其他的电脑上试试!
------解决方案--------------------
哪里只是显示应用程序的windows窗口的标题以及图标。
你的程序没有窗体,当然没有显示了。当出现msgbox到那边看就会看到msgbox的标题。
------解决方案--------------------
- VB code
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
如图:
------解决方案--------------------
我好像知道你挡住的那两个进程的内容
------解决方案--------------------
就用你的程序,工程名字"工程1",任务管理器显示了工程1
难道要显示什么?
------解决方案--------------------
是不是电脑的问题啊?把你 的生成的程序拷到其他的电脑上试试!
------解决方案--------------------
哪里只是显示应用程序的windows窗口的标题以及图标。
你的程序没有窗体,当然没有显示了。当出现msgbox到那边看就会看到msgbox的标题。
------解决方案--------------------