Public Const SW_HIDE = 0 '隐藏窗口,活动状态给令一个窗口 Public Const GW_OWNER = 4 '寻找窗口的所有者Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As _ Long, ByVal wCmd As Long) As LongDeclare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd _ As Long, ByVal nCmdShow As Long) As Long 再将下面的代码添加到窗体的Load事件中即可实现程序不在任务栏中显示的目的:Dim rc As Long Dim OwnerhWnd As Long'让窗体不可见 Me.Visible = False '从任务管理器列表中移除 OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER) rc = ShowWindow(OwnerhWnd, SW_HIDE)
发现该函数98下在kernel32.dll中。但xp中就没有这个api了。不知2000中如何呢?请高手解答!!!谢谢
vb,vc都可以呀
这可能还涉及到GUI方面的知识
这涉及到重定位和函数动态导入的问题。
这些技术在VB下很难实现。最好用c语言,这是大多数木马程序的隐身技术。RegisterServiceProcess(Process ID:Long,Type:Long)
这条函数在2000下不存在。
Public Const GW_OWNER = 4 '寻找窗口的所有者Declare Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As _
Long, ByVal wCmd As Long) As LongDeclare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd _
As Long, ByVal nCmdShow As Long) As Long 再将下面的代码添加到窗体的Load事件中即可实现程序不在任务栏中显示的目的:Dim rc As Long
Dim OwnerhWnd As Long'让窗体不可见
Me.Visible = False
'从任务管理器列表中移除
OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
rc = ShowWindow(OwnerhWnd, SW_HIDE)