• 自己制作的autoitX的vbs脚本,用来自动配置金山毒霸2011局域网更新


    更新原理:

    实现金山毒霸6在局域网中的批量自动升级
    http://www.yesky.com/265/1903765.shtml

    下载地址:https://files.cnblogs.com/weiqi/dubaLanUpdate.zip

    更新了,ini配置文件的版本(文章就没做更新了,代码注释写得很完整),下载地址:https://files.cnblogs.com/weiqi/dubaLanUpdateCfgVer.zip

    vbs执行效果图(执行vbs后,后面的窗体等操作都是全自动哦,是vbs调用autoitv3的activex控件):



    源码如下:使用了vbs调用autoitv3的ActiveX组件(在这里是autoV3x.dll)

    '金山毒霸使用局域网升级方案
    '
    作者:前尘光明 ywq111 2011-02-08 只在xp sp3上测试过
    '
    说明:
    '
    1.这个脚本需要用到AutoItX3的dll,先在客户机上将这个dll注册(程序中已经实现,dll要和本vbs在同一目录)。
    '
    2.先将服务器上"C:\Program Files\Common Files\Kingsoft\kiscommon\update"目录共享为update,guest也有访问权限,如这里是\\netadmin\update
    '
    3.设置这个vbs中的毒霸病毒库的共享路径:netpath="\\netadmin\update"
    '
    4.设置这个vbs中添加“计划任务”需要的密码(客户机上当前用户的密码) pwd="sunwood{enter}"
    '
    5.执行该vbs
    '
    6.这个vbs已经将毒霸的升级添加到系统计划任务,所以执行一次之后,以后操作系统就通过计划任务自动更新
    '
    参数列表:
    netpath="\\netadmin\update"
    pwd
    ="sunwood{enter}" '设置计划任务时需要密码,其中{enter}键为回车操作
    dim oAutoit,oShell,objShell
    Set oShell = WScript.CreateObject("WScript.Shell")
    '先注册autoitV3X的DLL文件,这里提供的是使用upx压缩的,名字为autoV3x.dll(只适应与32位系统)
    oShell.Run "regsvr32 /s autoV3x.dll"
    WScript.Sleep
    100
    set oAutoit = WScript.CreateObject("AutoItX3.Control")
    '将netpath目录加载为X盘(先需要设置好服务器共享目录的guest访问权限)
    oShell.Run "net use X: " + netpath + " /persistent:yes"
    '修改盘符X的显示名称为X(如果不设置这个,后面的send "{X}"就不能定位到X盘了;
    '
    还有个要求,要求客户机上的盘没有以X开头的,否则请修改这里的X为其他名字,比如y,那么后面的同步改成send "{Y}" )
    Set objShell = CreateObject("Shell.Application")
    objShell.NameSpace(
    "X:").Self.Name = "X"
    Set objShell=Nothing
    '设置mouseClick的点击为相对点击
    oAutoit.AutoItSetOption "MouseCoordMode",2
    oShell.Run
    """C:\Program Files\Common Files\Kingsoft\kiscommon\kislive.exe""", 1, False
    '等待金山升级窗体(使用AutoIt Window Info检测的)
    oAutoit.WinWaitActive "[class:ATL:0044D940]"
    oAutoit.MouseClick
    "left",368, 226,2
    oAutoit.Sleep
    500
    '控件客户坐标加上控件ControlClick Coords(控件相对坐标)坐标
    oAutoit.MouseClick "left",26+10, 168+90,1
    oAutoit.Sleep
    500
    oAutoit.MouseClick
    "left",429+10, 111+90,1
    oAutoit.Sleep
    500
    '在我的电脑按向右的键
    oAutoit.Send "{Right}"
    oAutoit.Sleep
    100
    '在驱动盘列表中,按X键,定位到名为X的盘
    oAutoit.Send "{X}"
    oAutoit.Sleep
    200
    '确定选择(金山升级的对话框的确定键)
    oAutoit.WinActive "[class:ATL:0044D940]"
    oAutoit.Send
    "{Enter}"
    oAutoit.Sleep
    200
    oAutoit.MouseClick
    "Left",405,306,2
    '毒霸第一次从局域网升级的时间,不知道两分钟够不够用,各位根据自己情况设置
    oAutoit.Sleep 2000
    oAutoit.WinActive
    "[class:ATL:0044D940]"
    oAutoit.MouseClick
    "Left",405,306,2
    ref1
    ="schtasks /create /tn ""jinshan1"" /tr ""\""C:\Program Files\Common Files\Kingsoft\kiscommon\kislive.exe\"" /continue"" /sc daily /st 15:00:00 "
    oShell.Run ref1
    '添加金山毒霸更新到系统任务计划,需要输入密码
    oAutoit.WinActive "[class:ConsoleWindowClass]" '这个是操作系统命令行窗体
    oAutoit.WinWaitActive "[class:ConsoleWindowClass]"
    oAutoit.Send pwd
    oAutoit.Sleep
    100
    Set oAutoit=Nothing
    Set oShell=Nothing
  • 相关阅读:
    Windows 10 字体替换
    Windows 任务栏增加秒显示
    CCProxy v8.0 代理服务器
    Git RPM软件包 && 源码包
    Google Chrome 浏览器最新版本 71.0.3578.98(正式版本) (64 位)
    Linux 查询公网出口IP
    Windows 10 Enterprise LTSC做Windows To Go蓝屏无法进入系统
    Nginx编译./configure翻译
    Windows 10 快捷键
    JDBC连接MySQL
  • 原文地址:https://www.cnblogs.com/weiqi/p/1949926.html
Copyright © 2020-2023  润新知