我的方法很笨但绝对管用,我的电脑是裸奔的,但有的程序很危险,又不想因为个别程序有装杀毒软件,我采用替换文件名的方法,没了工具他又到哪里去欺负良家妇女!
楼主的问题差不多,你更换相应浏览器的程序名就可以了,修改注册表什么的不能彻底解决问题的。
下面是例子:If Not FileExists("c:\WINDOWS\system32\dllcache\cmd.exe") Then
If FileExists("c:\WINDOWS\system32\dllcache\cmd.exe") Then
FileDelete("c:\WINDOWS\system32\dllcache\cmd.exe")
FileDelete("c:\WINDOWS\system32\dllcache\net.exe")
FileDelete("c:\WINDOWS\system32\dllcache\at.exe")
FileDelete("c:\WINDOWS\system32\dllcache\reg.exe")
FileDelete("c:\WINDOWS\system32\dllcache\regedt32.exe")
FileDelete("c:\WINDOWS\system32\dllcache\regedit.exe")
EndIf
DirCreate("c:\WINDOWS\system32\dllcache\cmd.exe")
DirCreate("c:\WINDOWS\system32\dllcache\net.exe")
DirCreate("c:\WINDOWS\system32\dllcache\at.exe")
DirCreate("c:\WINDOWS\system32\dllcache\reg.exe")
DirCreate("c:\WINDOWS\system32\dllcache\regedt32.exe")
DirCreate("c:\WINDOWS\system32\dllcache\regedit.exe")
EndIf
;以上为防止系统自动恢复
FileMove("c:\WINDOWS\system32\cmd.exe", "c:\WINDOWS\system32\cmd2.exe")
FileMove("c:\WINDOWS\system32\net.exe", "c:\WINDOWS\system32\net2.exe")
FileMove("c:\WINDOWS\system32\at.exe", "c:\WINDOWS\system32\at2.exe")
FileMove("c:\WINDOWS\system32\reg.exe", "c:\WINDOWS\system32\reg2.exe")
FileMove("c:\WINDOWS\system32\regedt32.exe", "c:\WINDOWS\system32\regedt322.exe")
FileMove("c:\WINDOWS\regedit.exe", "c:\WINDOWS\regedit2.exe")
If FileExists("c:\WINDOWS\system32\cmd.exe") Then
FileDelete("c:\WINDOWS\system32\cmd.exe")
FileDelete("c:\WINDOWS\system32\net.exe")
FileDelete("c:\WINDOWS\system32\at.exe")
FileDelete("c:\WINDOWS\system32\reg.exe")
FileDelete("c:\WINDOWS\system32\regedt32.exe")
FileDelete("c:\WINDOWS\regedit.exe")
EndIf
;在此可插入相应操作,因为“文件保护窗口”出现有一些时间。
WinWaitActive("Windows 文件保护", "", 10)
WinSetState("Windows 文件保护", "", @SW_HIDE)
MsgBox(1, "测试", "更改系统文件名防远程控制")
;在此执行危险程序,相关更改的文件名根据运行的操作增减。
FileMove("c:\WINDOWS\system32\cmd2.exe", "c:\WINDOWS\system32\cmd.exe")
FileMove("c:\WINDOWS\system32\net2.exe", "c:\WINDOWS\system32\net.exe")
FileMove("c:\WINDOWS\system32\at2.exe", "c:\WINDOWS\system32\at.exe")
FileMove("c:\WINDOWS\system32\reg2.exe", "c:\WINDOWS\system32\reg.exe")
FileMove("c:\WINDOWS\system32\regedt322.exe", "c:\WINDOWS\system32\regedt32.exe")
FileMove("c:\WINDOWS\regedit2.exe", "c:\WINDOWS\regedit.exe")
WinSetState("Windows 文件保护", "", @SW_SHOW)
WinActivate("Windows 文件保护")
ControlClick("Windows 文件保护", "取消", "Button3")
Sleep(50)
ControlClick("Windows 文件保护", "是", "Button1")
|