VB程序设置进程中不可见

怎么设置啊,我不是做病毒,你们不要误会。只是学学。有说的很具体,写的也很具体的代码,请发给我。。。在应用程序中设置隐藏我知道。就是不知道在进程中怎么设置。。麻烦知道的朋友... 怎么设置啊,我不是做病毒,你们不要误会。只是学学。有说的很具体,写的也很具体的代码,请发给我。。。
在应用程序中设置隐藏我知道。就是不知道在进程中怎么设置。。
麻烦知道的朋友告诉我下。谢谢`!
1
展开
 我来答
swalp
2008-09-29 · 超过12用户采纳过TA的回答
知道答主
回答量:122
采纳率:0%
帮助的人:66.8万
展开全部
Form_load()
中加下面代码可实现
App.TaskVisible = False

'模块
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public pID&

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
GetWindowThreadProcessId hwnd, ppID&
If ppID = pID Then ShowWindow hwnd, 0&
EnumWindowsProc = True
End Function

'窗体,一个Command1

Private Sub Command1_Click()
pID = 0&
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In objs
If obj.Name = "KKKKK.exe" Then pID = obj.ProcessID
Next
If pID Then EnumWindows AddressOf EnumWindowsProc, ByVal 0&
End Sub

'进程名不要搞错了,注意大小写
试试吧。我从网上找到的。自己还没试过呢。
实现进程隐藏都是通过API函数实现。我有API函数大全。想要的话留下Email地址我给你发过去。咱们一起探讨学习,我也正在学习这个东西。只是还没搞懂。
VS骏
2008-09-21
知道答主
回答量:2
采纳率:0%
帮助的人:0
展开全部
下载能用视频的程序
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式