360漏洞自动修复脚本

zzfbz · 发表于 2009-5-1 19:15:20

;采用360漏洞修复绿色单文件（带库自动更新），做了一个自动修复脚本，感觉不怎么完善，请大家指教
FileInstall ("360漏洞修复.exe", @ScriptDir&"\360漏洞修复.exe", 1 )
run(@ScriptDir&'\360漏洞修复.exe',@ScriptDir)
sleep(5000)
WinWaitActive("360漏洞修复","修复选中漏洞")
ControlClick("360漏洞修复","修复选中漏洞","Button4")
ControlClick("360漏洞修复","修复选中漏洞","Button5")
WinWaitActive("360漏洞修复","确定")
ControlClick("360漏洞修复","确定","Button2")
if WinExists("360漏洞修复","稍后重启") then
WinWaitActive("360漏洞修复","稍后重启")
ControlClick("360漏洞修复","稍后重启","Button3")
endif
sleep(3000)
if WinExists("360漏洞修复") then winclose("360漏洞修复")
DirRemove(@ScriptDir&'\hotfix',1)
For $i = 1 to 20
      sleep(500)
      if FileDelete (@ScriptDir&'\hotfix')=1 then ExitLoop
Next
FileDelete(@ScriptDir&"\360漏洞修复.exe")
For $i = 1 to 20
      sleep(500)
      if FileDelete ( @ScriptDir&'360漏洞修复.exe' )=1 then ExitLoop
Next
;附360漏洞修复绿色单文件下载地址
;http://freeskycd.cn/bbs/forum.ph ... 9%B6%B4%D0%DE%B8%B4

zzfbz · 发表于 2009-5-3 01:26:41

大家给点意见和建议啊，想学习啊

lzl88123 · 发表于 2009-5-3 21:53:16

谢谢，学习下啊，

bossqian · 发表于 2009-5-12 11:47:01

不是很看的懂

bossqian · 发表于 2009-5-12 12:14:53

这个东西要顶的

w369610324 · 发表于 2009-5-13 14:29:57

这个适合大面积打补丁例如有盘的网吧

huangguolian · 发表于 2009-7-6 12:05:55

我用了你的代码很好啊！

xytjc · 发表于 2009-7-21 17:56:11

LLLOOOOOOOOOOOOK

Myleaf · 发表于 2009-11-11 11:05:57

这么好的东西不定吗？望出个最新版的，

kf354rut · 发表于 2009-11-11 22:09:19

值得一试值得一试

karlpopper · 发表于 2009-11-12 02:13:53

不错啊值得看看

lc_lichuan · 发表于 2009-11-12 08:09:10

本帖最后由 lc_lichuan 于 2009-11-12 08:10 编辑

很不错的代码哟，支持个
不过提醒楼主链接失效了！

		自动登录	找回密码
密码			加入

360漏洞自动修复脚本

相关帖子