做简单黑客程序“怎么让程序不在任务栏中显示”

zou19820704 2006-02-25 05:03:46

rt ，全部给！不散。呵呵

...全文

200 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

heyang147 2006-02-26

打赏
举报

Form1.ShowInTaskbar=False

therockdelt 2006-02-25

打赏
举报

Form1.ShowInTaskbar=False

kmzs 2006-02-25

打赏
举报

Form1.ShowInTaskbar=False

rainstormmaster 2006-02-25

打赏
举报

如果只是不想在任务栏中显示的话，设置showInTaskbar属性就可以了

不过我估计你的问题可以是实现程序隐身，让任务管理器等程序找不到你的程序，如果是这样的话，可以考虑使用内联汇编实现

dolphin87 2006-02-25

打赏
举报

让程序不在任务栏中显示

form1.showInTaskbar=false

itlive 2006-02-25

打赏
举报

同意楼上的

IamDeane 2006-02-25

打赏
举报

既然楼主不散分，我再来一个,希望多给点分啊
Private Sub Form_Load()
Me.Visible = False
App.TaskVisible = False '在WINDDOWS任务管理器应用程序选项卡不可见
End Sub
呵呵

ZOU_SEAFARER 2006-02-25

打赏
举报

先在一个模块中做如下声明：

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 Long

Declare 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)

用到的两个API函数GetWindow和ShowWindow。

IamDeane 2006-02-25