ORF反垃圾邮件系统

邮件服务器-邮件系统-邮件技术论坛(BBS)

 找回密码
 会员注册
查看: 8101|回复: 5
打印 上一主题 下一主题

[技巧] 网内客户360问题

[复制链接]
跳转到指定楼层
顶楼
发表于 2009-8-21 20:40:16 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
当我们网内客户安装有360的时候而不能上外网,怎么更新360呢,以下脚本可以帮你一下。脚本是在网上搜集而来~~~
我们可以先把更新下载到一个客户能访问路径,客户在360那里设置更新路径就可以了~~~

#cs ______
脚本作者: boyhong
Email:    zhanghong1#ceri.com.cn
QQ/TM:  184661031
脚本功能: 可靠地自动下载360到指定位置
#ce ______


$dir = IniRead("updater.ini", "PATH", "Updatepath", "")  
;读取配置文件updater.ini中PATH字段Updatepath关键字中的值给$dir

While ($dir = "")
;若$dir的值为空做如下提示并提示你让选择一个路径最终写进updater.ini
  MsgBox(0, "Welcome-by boyhong", "如果这是您第一次配置该程序,请选择软件下载后的存放文件夹"
[email=&@LF]&@LF[/email]&"以后也可以自行更改updater.ini文件中的路径,或者清空updater.ini文件的内容并重新运行程序来选择文件夹")
  $dir = FileSelectFolder("请选择升级文件路径", "", 1)
  If ($dir <> "") Then
    IniWrite("updater.ini", "PATH", "Updatepath", $dir)
  EndIf
WEnd

    InetGet("http://down.360safe.com/360compkill.zip", "360compkill.zip", 1, 1)
;下载360compkill.zip
  While @InetGetActive
    TrayTip("第一个任务:正在下载360compkill", "已下载字节数 " & @InetGetBytesRead, 10, 16)
    Sleep(500)
  WEnd
   
  InetGet("
http://down.360safe.com/setup.exe", "setup.exe", 1, 1)
;下载360安全卫士
  While @InetGetActive
    TrayTip("第二个任务:正在下载360安全卫士最新正式版", "已下载字节数 " & @InetGetBytesRead, 10, 16)
    Sleep(500)
  WEnd
   
    InetGet("
http://down.360safe.com/offlinepackv4.exe", "offlinepackv4.exe", 1, 1)
;下载360木马特征库
  While @InetGetActive
    TrayTip("第三个任务:正在下载360安全卫士v4.X特征库升级包", "已下载字节数 " & @InetGetBytesRead, 10, 16)
    Sleep(500)
  WEnd
   
   
  $sizecompkill = InetGetSize("
http://down.360safe.com/360compkill.zip")
        $sizecompload = FileGetSize(@ScriptDir&"\360compkill.zip")
;获得远程及本机360compkill.zip的大小

  If($sizecompkill = $sizecompload) Then
;判断,若大小一致则拷贝到指定位置,否则删除;
    FileCopy( @ScriptDir& "\360compkill.zip", $dir& "\360compkill.zip",1)
  Else   
    FileDelete ( @ScriptDir& "\360compkill.zip" )
  EndIf
   
        $size360 = InetGetSize("
http://down.360safe.com/setup.exe")
        $size360load = FileGetSize(@ScriptDir&"\setup.exe")
;同上解释,对刚才下载的三个文件作判断。
  If($size360 = $size360load) Then
    FileCopy( @ScriptDir& "\setup.exe", $dir& "\setup.exe",1)
  Else
    FileDelete ( @ScriptDir& "\setup.exe" )
  EndIf

  $sizeoffline = InetGetSize("http://down.360safe.com/offlinepackv4.exe")
        $offlineload = FileGetSize(@ScriptDir&"\offlinepackv4.exe")
  If($sizeoffline = $offlineload) Then
    FileCopy( @ScriptDir& "\offlinepackv4.exe", $dir& "\offlinepackv4.exe",1)
  Else
    FileDelete (@ScriptDir& "\offlinepackv4.exe")
  EndIf
Exit
沙发
发表于 2009-8-26 22:22:12 | 只看该作者
这个好象很不错 呵呵 我一般都是更新的360发布到一个服务器上,让大家自己去下
藤椅
发表于 2009-9-4 22:11:26 | 只看该作者
360这个垃圾,不用也罢。
板凳
发表于 2009-9-4 22:49:10 | 只看该作者

回复 3楼 jetlu 的帖子

看你怎么使用了。
如果你觉得这个过于傻瓜化,推荐你用用syscheck和冰刃+sreng
我一般就用这个了,绝大部分问题都能解决
报纸
发表于 2009-9-9 01:20:01 | 只看该作者
这个不错, 我看很多人还是用360的,我有一个客户老总,每天都看360体验是不是100分,用它来培养一下一般用户的安全意识也好.
地板
发表于 2009-9-23 13:54:50 | 只看该作者
360有繁體版的嗎?
您需要登录后才可以回帖 登录 | 会员注册

本版积分规则

小黑屋|手机版|Archiver|邮件技术资讯网

GMT+8, 2024-11-20 09:26

Powered by Discuz! X3.2

© 2001-2016 Comsenz Inc.

本论坛为非盈利中立机构,所有言论属发表者个人意见,不代表本论坛立场。内容所涉及版权和法律相关事宜请参考各自所有者的条款。
如认定侵犯了您权利,请联系我们。本论坛原创内容请联系后再行转载并务必保留我站信息。此声明修改不另行通知,保留最终解释权。
*本论坛会员专属QQ群:邮件技术资讯网会员QQ群
*本论坛会员备用QQ群:邮件技术资讯网备用群

快速回复 返回顶部 返回列表