Hopol's Blog http://blog.18883.com/blog/ 我像一顆棋子,被上帝抓在手中,我看到她的眼卻廳不到她的心. Copyright (C) 2004 Security Hopol All Rights Reserved. Hopol's BLOG Fri, 05 Dec 2008 09:36:46 +0000 http://blog.18883.com/blog/506 屏蔽pubwin2007广告 hopol pubwin2007 个人感觉非常好..性能好.服务好..最重要的.也是大家一直关心的是..收不收费
人家免费呀..一直都免费..可是今人大头的一点就是广告太多..机器配置好的就不说了..可是机器配置差一点的..那些广告要死人的..卡老久..
pubwin2007强大..说的一点也不错..就广告服务器就好几台

222.73.127.33
222.73.127.31
58.211.138.80
58.211.138.81
58.211.138.82
124.243.242.6
124.243.242.7


呵呵..这几个IP我看了一下..58.211.138.80 这个可能不是广告服务器..上海地区这个服务器没有用到
广告的来源我们知道了..那下面就来禁用了..
做网维的朋友有福了.可以借他的软件来做一做广告 

另外还要在开始通道里加一BAT禁止运行一个程序。。如果不禁用那么用户登陆之后还会有一个广告
Reg Add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\%computername%.exe" /v Debugger /t REG_SZ /d "regsvr32 /s" /f

]]> http://blog.18883.com/blog/506 網管相關 2008-11-01 18:54 http://blog.18883.com/blog/503 微软最新反盗版补丁程序 hopol 微软最新反盗版补丁程序序号为:
KB917422
KB905474

或以下两个漏洞补丁安装程序:
WindowsXP-KB917422-x86-CHS.exe
WindowsXP-KB905474-CHS-x86.exe

解决办法:可在自动更新内选择不要安装这两个补丁.

如果您已经安装了(KB905474),那么可以按照以下办法删除反盗版程序:
1.运行regedit进入注册表，HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Notify\WgaLogon，删除它，重新启动。wgatray.exe就不会自动启动了，讨厌的“你可能是盗版软件的受害者”也就不见了。

2.把系统盘:windows\system32\中的wgatray.exe删除，烦人的“图标”没有了。（建议在安全模式下进行：启动电脑中按F8进入安全模式）

　 3.彻底清除相关多余垃圾，运行搜索文件wgatray，在另外的文件夹下还有，统统删除。

以下是报道正文:

10月14日，据微软内部邮件显示，10月20日微软将在中国再次对盗版WindowsXP进行打击，并首次对盗版Office进行验证，盗版用户的Windows XP及Office将被强制插入多出明显的提醒标识。微软公关部证实了此事，并表示稍后将公布对于Windows正版增值计划 (WGA)和Office正版增值计划(OGA)的具体细节。

据邮件内容显示，从2008年10月20日起，微软中国将同时推出两个重要更新，Windows正版增值计划通知（WGA通知）和Office正版增值计划通知（OGA通知）。其中WGA针对Windows XP专业版的用户，OGA针对Office XP、Office 2003和Office 2007的用户，这两个通知可通过软件升级自动下载到用户电脑中。

为打击盗版，微软在2007年3月就在中国推出了Windows正版增值计划，而Office的正版增值计划OGA是首次在国内发布，这两个验证工具可以自动检测验证用户电脑上安装的Windows XP和Office是否为正版软件。如果使用了盗版软件，用户会不断收到正在使用盗版软件的提示。

微软公关部表示，微软一直坚持采用技术、教育和法律的手段来打击盗版软件，以促进软件市场的正版化。WGA与OGA即是微软利用技术推动知识产权保护和软件正版化的具体措施

]]> http://blog.18883.com/blog/503 網管相關 2008-10-16 03:28 http://blog.18883.com/blog/495 Happy(快乐)DJ V3.08 注册版 hopol 大小: 42.56 K 尺寸: 136 x 150 浏览: 0 次 点击打开新窗口浏览全图

大小: 18.57 K 尺寸: 113 x 150 浏览: 0 次 点击打开新窗口浏览全图

Happy(快乐)DJ更新说明

v2.50
+服务端限制是否语音播报
+服务端自动刷新歌曲列表服务器
+客户端歌曲上传功能

修正客户端歌曲列表显示
修正客户端界面粗糙问题
修正客户端首次启动过慢
修正服务端歌曲列表不完整问题

v2.62
+服务端内核自校验
+服务端未注册允许10次点歌
+HappyDJ运行时候检测MusicServer,如不存在,则将自动启动

修正服务器注册码算法(正版用户可任注册码文件来换取新的注册码文件)
修正客户端歌曲上传工具的bug

v3.06
+歌曲删除功能
+歌曲点播类型图标显示
+吧台歌曲搜索功能
+语音测试功能
+记住音乐音量功能
+网管呼叫系统播报时,自己停止音乐播放
+客户端设置上传组件启用开关
-取消上传助手上传后即刻生效的功能,需要管理员手动审核后方可出现在播放列表

修正服务端内核,将列表服务器和点播服务器合二为一
修正自动点歌时间问题
修正服务端语音播报时,界面卡住问题

V3.08
+是否限制同一首歌曲在播放列表中只允许出现一次
+是否关闭语音送歌功能
+随身听客户端外观

-去除BlueTV外观
修正播放列表问题

下载地址：happydjsystem308.7z

]]> http://blog.18883.com/blog/495 網管相關 2008-09-17 11:05 http://blog.18883.com/blog/493 广东电信最新DNS hopol 广东电信最新DNS更新了！！记录一下，以便以后查找！
运行超过10年时间的广东地区骨干dns域名服务器系统：202.96.128.68，因严重超负荷运作多年，从12月3日开始正式迁移，共分一个月时间，全省范围内的电信用户（包括宽、窄带、专线用户）将采用新的域名服务器。


1中国电信广州用户
“首选DNS服务器”为：61.144.56.100
“备用DNS服务器”为：61.144.56.101

2 中国电信深圳用户
“首选DNS服务器”为：202.96.128.86
“备用DNS服务器”设置为：202.96.128.166

3 中国电信广东省其他地区用户博客中国
“首选DNS服务器”为：202.96.128.86
“备用DNS服务器”为：202.96.128.143

广东电信dns域名解析服务IP地址
202.96.128.86
202.96.128.166
202.96.128.110
202.96.128.143
202.96.134.133
202.96.134.188
202.116.192.33

]]> http://blog.18883.com/blog/493 網管相關 2008-09-11 18:46 http://blog.18883.com/blog/474 迅闪2008Bata2FAQ(最后整理时间080822) hopol 一.常规知识


  • 我的迅闪2008服务端是最旧的版本.我升级发现为什么不一个一个版本升级?
    答:只要你打开检查升级,系统自动升级到最新版本.无须担心遗漏.
  • 全新安装迅闪2008后,启动游戏菜单,系统托盘还原按钮显示红色"X".
    答:请确定您安装迅闪后正确设置了服务端\share\client.ini和客户端client.ini文件中的IP地址为你迅闪服务器IP.同时请ping测试网络环境是否畅通.
  • 迅闪2008安装后,为什么不用设置共享,客户机也可以访问?
    答:迅闪2008B2已改变了原来的共享方式更新，改为TCP方式
  • 如何批量修改客户机中游戏路径?
    答:在游戏分类列表中,多选您要修改路径的游戏,鼠标右键”批量修改”,按照说明修改.
  • 服务器菜单信息更新后,为什么不能立即客户端刷新出现?
    答:服务器更新游戏后,菜单刷新出游戏有所延迟(节约网络资源),客户机重启会自动获取不影响使用,每次实时获取会影响服务器和网络性能,并影响菜单打开速度.
  • 如何查看客户机上网历史记录?
    答:客户机上网记录保存在服务端目录下.可以使用HintUrlClient.exe(服务端目录下)工具查询用户上网记录.数据库为HintUrl.MDB,请注意备份保存数据库以备行政部门查询.
  • CGO2043虚拟磁盘映射在服务器上无法三层下载游戏
    答:首先排除软件BUG,卸载相关安全软件,网络监控软件后.如果还有问题.我们可以把服务端搭建在任何一台其它电脑测试,如果正常设置下载,可以判断原服务器系统存在问题,建议重做系统.
  • 客户机提示未分组,但是服务已经分组了怎么回事?
    答:发现部分用户使用双网卡绑定一起使用,解除绑定问题消失.还有部分用户使用批量生成客户机组造成问题,可以尝试把机器列表全部删除,重新连接添加同样解决问题.
  • 如何为已存在的游戏添加另一个图标?比如热血传奇,和传奇私服.
    答:就拿刚才传奇所示,官方游戏直接搜索或者直接从迅闪下载.自动创建图标,传奇私服,我们可以创建快捷方式拖拽到游戏添加列表,名称不能与第一次添加名称相同即可.
  • 服务器没有的游戏,”生成图标”后,图标变成文件夹图标?
    答:此问题在Build 0807212300版本已经解决.您可以把没有图标的游戏,至少编辑一次图标,系统自动生成服务端IconCache目录下,默认没有这个文件夹.
  • 为什么服务端ARP显示”未安装”?
    答(最先请确认网络连接属性是否有Hint Arp驱动)如果您已经安装过其它ARP保护软件,请卸载.同时我们发现如果安装过巡路ARP免疫墙,即使卸载安装一样报错.安装迅闪前,请用户一定排除以上问题.
  • 如何让菜单打开后显示指定菜单分类?
    答:您可以创建一个XsMenu.exe快捷方式放到桌面,修改快捷方式”目标位置”,添加参数/GameType:N其中N代表游戏菜单分类次序.例如想打开菜单第一个显示网络游戏如下: "D:\Program Files\HintSoft\XsServer\Share\XsMenu.exe" /GameType:1
  • 如何让桌面游戏快捷方式打开直接就更新游戏?
    答:您可以创建一个XsMenu.exe快捷方式保存到桌面,重命名成游戏名称,修改快捷方式”目标位置”,添加参数/Game:N 其中N代表游戏菜单中游戏名称.例如想打开桌面游戏”热血传奇”后直接更新游戏,如下格式"D:\Program Files\HintSoft\XsServer\Share\XsMenu.exe" /Game:热血传奇
  • 单机游戏没有注册表,不能运行,如何解决?
    答:迅闪软件已经实现注册表自动导入功能,如果网吧早期下载游戏没有注册表,请三层修复后再使用游戏.如果特殊游戏我们没有添加注册表,也可以手动在游戏编辑窗口添加.
  • 客户端使用个人磁盘功能，显示设备未就绪?
    答:确认服务端是否正确设置存储文件夹,文件夹是否具备写权限等


二.两层更新

  • 为何游戏对比更新时会出现更新中断现象?
    答:此问题我们应该从网络设置方面出发解决.点击网卡的属性，在高级选项里找到相关设置关闭.offload tcp largesend, Flow Control, checksum offload设置disabled.同时请确定您的系统未安装支持网络监控类的防火墙和杀毒软件,如NOD32(文件实时监控和网络监控会误认病毒而篡改部分游戏传输的数据)
  • 游戏已经从官方更新到最新版本,可是三层更新的时候,依然需要大量更新数据?
    答:某些游戏，在不同的终端上安装并更新后，其文件并不是完全一致的。例如完美世界最大的模型文件models.pck，在迅闪中心为682M，而用户自行升级的版本，则可能为760多M。这种情况导致了更新量大。当用户持续从三层升级游戏，其更新量就会少很多。
  • 为什么最近有些游戏在服务器上能玩,更新到客户机后,却不能使用,甚至游戏数据大小也有差别.
    答:如果您是迅闪2008 Bata2 Build 0806202220以前版本,或许出现过这样的Bug,我们已经在此版本解决.强烈建议你在线升级到最新. 同时对于已经损坏的游戏,用迅闪菜单强制修复游戏处理.
  • 为什么要索引文件?
    答:迅闪2008提供了先进的索引算法对比更新游戏,网吧第一次安装迅闪服务端时,建议空闲时段索引所有游戏.否则只能按照普通的快照更新.无法体现快速更新.
  • 游戏索引文件存放在什么位置?
    答: 游戏文件夹中的SpeedCopySnap.txt和SpeedCopyDuce.dat文件既是游戏的索引文件！
  • 客户机游戏更新时,出现错误提示"TS更新失败,错误原因:得到要拷贝的文件数据时候异常".
    答:请更新相关游戏索引即可解决问题.
  • 为什么客户机更新出现"更新失败：错误原因，创建套接口错误"
    答:服务端未正常启动工作状态(speedserver.exe必须启动),或者客户机没有正常连接服务器.同时判断网络是否存在问题(注意关闭相关网络监控类杀毒软件和防火墙)
  • 迅闪两层更新速度很慢?
    答:先需要我们参照两层更新第1个问题排除,其次有些路由或交换机(比如TL-R4148),具备端口限速设置,请关闭限速功能.(并且我们必须排除共享拷贝本身慢,更细大量小文件,以及太多机器同时更新).
  • 客户机使用了压缩驱动器有什么后果？
    答：如果需要使用迅闪做穿透更新游戏，一定不能使用压缩驱动器，否则会导致穿透后文件损坏。
  • 为什么游戏ID为0?
    答:如果你是把游戏快捷方式拖拽到游戏添加类表中,ID为0,建议使用搜索功能添加新游戏,这样如果官方已存在的游戏,会直接关联添加.并支持三层更新.


三.三层更新

  • svsXSDOWN服务无法启动,如何处理?
    答:首先确定此服务端口8578未被其它软件占用,同时删除downlond下的XML里面的两个XML文件, (如果内存中有XSDOWNSVS.exe,请结束任务)重启服务.
  • xsCoreServer服务无法启动,如何处理?
    答:首先确定XsCoreServer服务是否在系统中存在异常日志,如果有B1版本请卸载干净,同时关闭360,瑞星卡卡等安全工具. (如果内存中有CoreServer.exe,请结束任务)重启服务.
  • 下载日志显示“扫描本地文件变更错误”,如何处理?
    答：当用户手动更新了游戏内容并生成索引，三层判断出任务状态与上次不一致，会自动对此游戏进行环境清理，同时将此任务的更新延后到下一次刷新中心。这是一个常规提示性错误，不影响游戏更新。
  • 为什么三层更新所有游戏都下载到虚拟磁盘?
    答:如果您设置了虚拟磁盘,游戏数据默认都下载到虚拟磁盘.我们需要保证虚拟磁盘游戏都是最新的.如果您有特殊需求,请手工修改成您需要的路径.
  • 三层更新几分钟后就自动断开或者显示负百分比也或者列表空白,日志中报错如何解决?
    答:我们发现个别客户相关下载目录everyone用户没有权限.添加好权限后问题解决.同时游戏客户端本地路径一定要真实存在否则显示负百分比(如-160%),也曾发现客户设置了不存在的物理盘符为虚拟磁盘.一一排除以上问题可以解决.
  • 升级到0807281530三层更新速度为0B/s 或者服务自动停止?
    答: 请先按照以下步骤先排除.因为的确有部分用户有以下因素导致.必须先确定是最新把本.版本号 0807300250
    A.确定磁盘everyone是否开启完全权限(临时下载目录和保存目录)
    B.确定未安装第三方网络监控类安全软件
    C.删除download\xml\*.xml
    D.虚拟磁盘必须有真实存在的盘符
  • 三层下载列表为空?
    答:我先排除是软件bug前提后,我们需要查看用户是否远程桌面打开了多个桌面.如果开启多个桌面,同时软件被启动多次,的确有下载报错或者列表为空.更有部分网吧会出现数据库损坏.

四.虚拟磁盘

  • Windows虚拟磁盘无法出盘?
    答:请在”系统设置\虚拟磁盘”指定要虚拟的物理盘符和IP地址.如果您是Beta 2 Build 0807111226之前版本,请升级到最新.
  • CGO其它版本支持迅闪2008B2吗?
    答:迅闪2008B2只支持2043版本,其他版本请把出盘程序覆盖服务器安装目录share\cgo\loadcgo.exe


五.迅闪还原

  • 在客户机手动安装还原后，游戏穿透不成功？
    答:保持客户机和服务器还原设置密码一致.
  • 安装还原时报错(如#1,#4).
    答:安装还原出现错误,必须确认排除以下原因:
    A.不要使用MAXDOS7版本.
    B.不能有FAT32分区或FAT32分区转换成NTFS分区形式,绝对只能NTFS分区.
    C.磁盘空间保持1.5G以上,绝对不能低于1G.
    D.磁盘分区根目录必须有everyone写权限
    E.磁盘未使用压缩驱动器
    F.第三方机器狗或安全软件.
    G.其它还原软件
  • 游戏穿透还原更新后,文件一致,但是游戏无法打开或者运行?
    答:格式化硬盘时选择分配单元大小(簇),必须是4096字节


    六.安全中心
  • 迅闪2008中Client.exe进程被非法结束后,系统是否有影响
    答:即使Client.exe进程被结束,系统安全中心一样运行于后台保护系统,只是消息不会上报中心.
  • 为什么我的视频和U盘等外接设备在安装迅闪2008后不能使用?
    答:请自己在安全中心,驱动防火墙处添加白名单列表.
  • 为什么安装迅闪2008客户端后,出现蓝屏现象.日志中显示hintroot.sys错误信息(英文)?
    答:首先此问题牵涉到同类软件不兼容的问题.您可以检查机器是否安装了第三方ARP保护或安全防护软件.建议卸载后安装.同时修改一下注册表:
    [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NwlnkNb]
    "Start"=dword:00000004
  • 在非迅闪2008B2版本中为什么也有难屏现象?
    答:首先确认是否符合第3条,同时确定是否出现硬件相关驱动不兼容问题.
  • 服务端安全中心中一直提示“保护进程被关闭”
    答: 找个新按装的服务端中的servercfg.ini文件替换当前服务端bin\data\servercfg.ini,
    share\data\servercfg.ini    路径下的文件，然后客户机重启！
  • 打开安全中心,系统提示” Create TCP Listen Socket Failed!”
    答:问题是你多次启动了安全中心,请打开任务管理器查看用户登陆系统数量.

七.其它问题

  • 部分游戏杀毒软件误报列表
    答: 天机Online\tianjiprotector.exe
        侠义道\atl71.dll
        盛大富翁\sndafwSmall.ico
  • 部分用户魔兽世界正常更新后不能游戏？
    答：请确认魔兽世界文件名大小写。
  • 穿越火线游戏有卡机现象?
    答:请参照两层更新第1项修改网卡设置,同时修改XP系统默认连接数至1024以上.
  • 劲舞团有些机器可以玩,有些机器不能玩,而且肯定已经导入过注册表?
    答:请修改不能玩的游戏的兼容性模式,可以是兼容2000
]]> http://blog.18883.com/blog/474 網管相關 2008-08-22 23:02 http://blog.18883.com/blog/450 Adobe Flash Player 10 beta hopol URL: http://labs.adobe.com/downloads/flashplayer10.html

Flash Player 10
This is a prerelease version of the Adobe® Flash® Player 10 software for Windows, Macintosh, and Linux platforms. It is being made available for developers and consumers to test their content to ensure new features function as expected, existing content plays back correctly, and there are no compatibility issues.

The Flash Player 10 beta is available in all supported languages; however, the prerelease installers are only in English and we can only accept feedback in English at this time.

Release versions of Flash Player 9 are now available from the Flash Player Download Center on Adobe.com.

Terms of Use
Your use of Adobe Labs, including the downloading of software and submission of comments, ideas, feature requests, and techniques, and Adobe’s rights to use such submitted materials are governed by the Adobe Labs Terms of Use and the Adobe Online Privacy Policy. By downloading, copying, or using Adobe software and related materials, you also agree to the appropriate Adobe Software License Agreement, including the limitations related to prerelease Software. 

Flash Player 10 Downloads

The following downloads will install a prerelease version of Flash Player 10.

Important: All users should uninstall any currently installed Flash Player before installing the beta.

  • dlDownload ActiveX Control for Windows
  • dlDownload Plugin for Windows (EXE, 1.76 MB)
  • dlDownload Plugin for Macintosh (DMG.ZIP, 5.78 MB)
  • dlDownload Plugin for Linux (TAR.GZ, 3.73 MB)
  • dlDownload Plugin for Linux (RPM, 3.73 MB)


    • Download ActiveX Control for Windows Internet Explorer

    DOWNLOAD：flashplayer10_install_activex_051508.exe

     

     

    ]]>     http://blog.18883.com/blog/450 網管相關 2008-06-27 11:16     http://blog.18883.com/blog/449 网吧电影更新网址 hopol 文章需要输入密码才能浏览. http://blog.18883.com/blog/449 網管相關 2008-06-20 01:30 http://blog.18883.com/blog/448 AU3热血江湖群医辅助工具 hopol #NoTrayIcon

    $g_szVersion = "My Script 1.1" ;;;本段防止重复打开
    If WinExists($g_szVersion) Then Exit
    AutoItWinSetTitle($g_szVersion)

    HotKeySet("{F10}", "ToggleStart") ;;;定义热键
    HotKeySet("{F11}", "TogglePause")
    HotKeySet("^q", "ToggleExit")

    $PAUSE = 0

    #include <GuiConstants.au3> ;;;下面是创建那个GUI界面

    GUICreate ("热血江湖医生聊疗辅助工具",210,100,-1,-1,$WS_EX_APPWINDOW)


    GuiCtrlCreateLabel("生命保护", 10, 6) ;;;标签
    $Combo_1 = GUICtrlCreateCombo ("", 60,0,40,15,$CBS_DROPDOWNlist) ;;;;;;;;下拉列表
    GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F1") ;;列表的项

    GuiCtrlCreateLabel("自动补蓝", 115, 6)
    $Combo_2 = GUICtrlCreateCombo ("", 163,0,40,15,$CBS_DROPDOWNlist)
    GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F2")

    GuiCtrlCreateLabel("间隔", 10, 27)
    $input1 = GuiCtrlCreateInput(750, 38, 20, 47, 20,$ES_READONLY)
    GuiCtrlCreateUpDown(-1,$UDS_NOTHOUSANDS+$UDS_ARROWKEYS)
    GUICtrlSetLimit(-1,2000,500)


    GuiCtrlCreateLabel("毫秒自动群疗", 91, 27)
    $Combo_3 = GUICtrlCreateCombo ("", 163,20,40,15,$CBS_DROPDOWNlist)
    GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F3")


    GuiCtrlCreateLabel("启动 F10 暂停 F11 退出 CTRL+Q", 10, 46)
    GuiCtrlCreateLabel("注:1秒=1000毫秒 制作: 冰心痴", 10, 65)

    GUISetState ()

    ToolTip('已就绪',200,0)

    WHILE 1

    $msg = GUIGetMsg()
    SELECT
    CASE $PAUSE = 0 ;;这段是管程序退出的，都懂吧
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop

    CASE $PAUSE = 1 ;;;左上角的标签
    ToolTip('已启动',200,0)

    $msg = GUIGetMsg() ;;;;这段是读那几个下拉列表的值存到变量
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    $SHM = GUICtrlRead($Combo_1)
    $MF = GUICtrlRead($Combo_2)
    $QE = GUICtrlRead($Combo_3)
    $time = GUICtrlRead($input1) - 500

    ;WinWaitActive("YB_OnlineClient")
    sleep ($time)
    send ('{' & $QE & '}')
    sleep (250)
    $color = PixelGetColor( 65 , 5 )
    IF $color = 7557450 Then
    send ('{' & $SHM & '}')
    EndIf
    sleep (250)
    $color = PixelGetColor( 65 , 18 )
    IF $color = 4869491 Then
    send ('{' & $MF & '}')
    EndIf
    ENDSELECT
    WEND

    Func ToggleStart()
    ToolTip('已启动',200,0)
    WinSetState("热血江湖医生聊疗辅助工具","",@SW_MINIMIZE)
    $PAUSE = 1
    RETURN
    EndFunc

    Func TogglePause()
    ToolTip('已暂停',200,0)
    $PAUSE = 0
    RETURN
    EndFunc

    Func ToggleExit()
    ToolTip("")
    exit
    EndFunc

    ]]>     http://blog.18883.com/blog/448 網管相關 2008-06-15 10:07     http://blog.18883.com/blog/447 AU3---简单任务管理器 hopol #include <GUIConstants.au3>
    #notrayicon
    dim $ListView1
    GUICreate("简单的进程管理器", 257, 364)
    $Button1 = GUICtrlCreateButton("结束进程", 8, 328, 105, 25)
    $Button2 = GUICtrlCreateButton("刷新列表", 144, 328, 105, 25)
    $ListView1 = list()
    GUISetState(@SW_SHOW)
    While 1
     $msg = GuiGetMsg()
     Select
     Case $msg = $GUI_EVENT_CLOSE
      ExitLoop
     Case $msg = $Button1
      proclose()
     Case $msg = $Button2
      $ListView1 = list()
     EndSelect
    WEnd
    Exit

    func list()
     if $ListView1 then GUICtrlDelete($ListView1)
     $list = ProcessList()
     $ListView1 = GUICtrlCreateListView("进程名                              |PID      ", 8, 8, 241, 305)
     for $i = 1 to $list[0][0]
      GUICtrlCreateListViewItem($list[$i][0]&"|"&$list[$i][1],$listview1)
     next
     return $ListView1
    endfunc

    func proclose()
     $pro = stringsplit(GUICtrlRead(GUICtrlRead($listview1)),"|")
     if $pro[0] = 2 then
      if ProcessExists($pro[2]) then ProcessClose($pro[2])  ;;runwait(@ComSpec & " /c taskkill /f /t /pid " & $pro[2],"",@sw_hide)
      else
       msgbox(4096,"错误","无法终止进程！")
      EndIf
      sleep(1000)
      if $pro[0] = 2 then
      if ProcessExists($pro[2]) then 
      msgbox(4096,"错误","无法终止进程！")
      return
     endif
     endif
     $ListView1 = list()
    endfunc

    ]]>     http://blog.18883.com/blog/447 網管相關 2008-06-15 10:02     http://blog.18883.com/blog/446 网管之星原代码 hopol if @OSTYPE <> "WIN32_NT" then
    MsgBox(64,"出错提示！","目前本程序只支持在NT/2000/XP/2003系统上使用，" & @CRLF & "" & @CRLF & "Win9x系统请等待后续版本发布。")
    exit
    endif
    Dim $reg,$User1,$User2,$User3,$msg,$gamereg,$netini,$diskini,$file1,$file2,$file3,$file4,$file5,$file6,$btn1,$btn2,$btn3
    Opt("TrayIconHide",1)
    $gamereg = '"'
    $reg = "play.reg"
    $netini=iniread(@ScriptDir& "\" &"config.ini","config","远程路径基","")
    $diskini=iniread(@ScriptDir& "\" &"config.ini","config","本地路径基","")
    $GatewayIP = iniread(@ScriptDir& "\" &"config.ini","config","网关IP","")
    $GatewayMAC = iniread(@ScriptDir& "\" &"config.ini","config","网关MAC","")
    $text = iniread(@ScriptDir& "\" &"config.ini","config","远程路径基","")
    $text = StringReplace(""& $text &"", '"', "")
    $runname=iniread(@ScriptDir& "\" &"config.ini","config","runname","")
    $runpass=iniread(@ScriptDir& "\" &"config.ini","config","runpass","")

    Func Gameupsetup()
    #include
    GUICreate ("网管之星更新系统快捷方式生成器",510,265)
    $file1 = GUICtrlCreateInput ($netini, 90, 5, 300, 20)
    GuiCtrlCreateLabel("远程路径基:", 15, 9)
    $file2 = GUICtrlCreateInput ( ""& $diskini &"", 90, 35, 300, 20)
    GuiCtrlCreateLabel("本地路径基:", 15, 39)
    $file3 = GUICtrlCreateInput ( "", 90, 65, 300, 20)
    GuiCtrlCreateLabel("更新目录名:", 15, 69)
    $file4 = GUICtrlCreateInput ( "", 90, 95, 300, 20)
    GuiCtrlCreateLabel("执行文件名:", 15, 99)
    $file5 = GUICtrlCreateInput ( "", 90, 125, 300, 20)
    GuiCtrlCreateLabel("快捷方式名:", 15, 129)
    $file6 = GUICtrlCreateInput ( ""& $GatewayIP &"", 90, 155, 200, 20)
    GuiCtrlCreateLabel("网关IP地址:", 15, 159)
    $file7 = GUICtrlCreateInput ( ""& $GatewayMAC &"", 90, 185, 200, 20)
    GuiCtrlCreateLabel("网关 M A C:", 15, 189)
    GuiCtrlCreateLabel("本程序设计制作由:空手套MM(QQ:171270)完成。使用方式永久免费!", 75, 249)
    GUICtrlCreateGroup ("导入注册表", 410, 60, 80, 55)
    $radio_1 = GUICtrlCreateCheckbox ("是", 440, 80, 35, 20,)
    GUICtrlCreateGroup ("强制更新", 410, 120, 80, 55,)
    $radio_2 = GUICtrlCreateCheckbox ("是", 440, 140, 35, 20,)
    $btn1 = GUICtrlCreateButton ("生成快捷方式", 410, 185, 80, 55)
    $btn2 = GUICtrlCreateButton ("修改远程路径", 410, 5, 80, 20)
    $btn3 = GUICtrlCreateButton ("修改本地路径", 410, 35, 80, 20)
    $btn4 = GUICtrlCreateButton ("简要使用说明", 15, 219, 80, 20)
    $btn5 = GUICtrlCreateButton ("更新程序修复", 113, 219, 80, 20)
    $btn6 = GUICtrlCreateButton ("服务器检测", 212, 219, 80, 20)
    $btn7 = GUICtrlCreateButton ("生成前检测", 309, 219, 80, 20)
    $btn8 = GUICtrlCreateButton ("网关IP修改", 309, 155, 80, 20)
    $btn9 = GUICtrlCreateButton ("网关MAC修改", 309, 185, 80, 20)
    GUISetState ()
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $btn1
    if GUICtrlRead($radio_1) <> "4" then
    $reg = "reg_yes"
    Else
    $reg = "reg_no"
    endif
    if GUICtrlRead($radio_2) <> "4" then
    $up = "-"
    Else
    $up = "+"
    endif
    $text2 = GUICtrlRead($file2)
    $text2 = StringReplace(""& $text2 &"", '"', "")
    FileCreateShortcut(@ScriptDir& "\" &"GameUP.exe", @DesktopDir &"\"& GUICtrlRead($file5), $text2 &"\"& GUICtrlRead($file3), GUICtrlRead($file1) &"\"& $gamereg & GUICtrlRead($file3) & $gamereg &" "& GUICtrlRead($file2) &"\"& $gamereg & GUICtrlRead($file3) & $gamereg &" "& $gamereg & GUICtrlRead($file4) & $gamereg &" "& $reg &" "& $up, "MyBc辅助更新", $text2 &"\"& GUICtrlRead($file3) &"\"& GUICtrlRead($file4), "", "", "")
    $msgyou = "快捷方式生成成功!"
    MsgBox (64, "提示!", GUICtrlRead($file5) & $msgyou)

    Case $msg = $btn2
    IniWrite(@ScriptDir& "\" &"config.ini","config","远程路径基",$gamereg & GUICtrlRead($file1) & $gamereg)
    MsgBox (64, "提示!", "远程路径基修改成功!" & @CRLF & "" & @CRLF & "请确定修改路径基后面不带有目录结束符“\”，" & @CRLF & "如果路径基目录名带有空格，请增加引号引住空格目录名。")
    Case $msg = $btn3
    IniWrite(@ScriptDir& "\" &"config.ini","config","本地路径基",$gamereg & GUICtrlRead($file2) & $gamereg)
    MsgBox (64, "提示!", "本地路径基修改成功!" & @CRLF & "" & @CRLF & "请确定修改路径基后面不带有目录结束符“\”，" & @CRLF & "如果路径基目录名带有空格，请增加引号引住空格目录名。")
    Case $msg = $btn4
    MsgBox (0, "简要使用说明:", "" & @CRLF & "1、第一次使用先正确设置好自己的远程及本地路径基并确定修改设置健，如果" & @CRLF & "路径基下面的目录只要有带空格的目录名，请使用双引号" & chr(34) & chr(34) & "引住整个有空格名的" & @CRLF & "目录。要注意的是路径基后面不能带目录结束符" & chr(34) &"\" & chr(34) &"；" & @CRLF & "" & @CRLF & "2、更新目录名，执行文件名，快捷方式名任何情况下不需要双引号引住；" & @CRLF & "" & @CRLF & "3、在远程路径基下建立一个名为QQ.171270的文件，用于程序识别服务器在线" & @CRLF & "情况同时也对作者唯一劳动的支持。不建立此文件将无法正常使用！正确在远" & @CRLF & "程路径基下建立QQ.171270后可以使用服务器检测来识别正确与否，也可以用于" & @CRLF & "判断服务器在线情况。第一次使用服务器检测必须远程路径基可以访问提前下，" & @CRLF & "否则会出现程序处于假死状态30分钟！" & @CRLF & "" & @CRLF & "4、完成对每个游戏的设置后可以使用生成前检测来测试设置结果，最后点生成" & @CRLF & "快捷方式键完成对此游戏的快捷方式生成，生成的文件位置为当前系统用户环" & @CRLF & "境的桌面上。" & @CRLF & "" & @CRLF & "5、正确设置的内网的网管IP地址及MAC物理地址对应关系，这样可以有效的对多" & @CRLF & "数局域网ARP欺诈病毒的防御，也可以防止通过此病毒对游戏账号的盗窃现象。" & @CRLF & "设置后每次启动游戏前，会对内网的网关IP地址到MAC地址的对应绑定。")
    Case $msg = $btn5
    FileDelete(@systemDir &"\Gameup.exe")
    FileDelete(@systemDir &"\cfg.ini")
    MsgBox (64, "更新程序修复提示:", "1、更新界面修复成功！" & @CRLF & "" & @CRLF & "2、更新缓存设置修复成功！")
    Case $msg = $btn6
    $text = GUICtrlRead($file1)
    $text = StringReplace(""& $text &"", '"', "")
    FileCopy($text &"\QQ.171270", @systemDir &"\QQ.171270")
    if FileExists(@systemDir &"\QQ.171270") ="" then
    MsgBox (8208, "服务器在线检测结果:", "服务器目前为不能访问状态!" & @CRLF & "" & @CRLF & "可能是因为你没有在远程路径基下建立识别文件：QQ.171270")
    Else
    MsgBox (64, "服务器在线检测结果:", "服务目前状态器正常!" & @CRLF & "" & @CRLF & "成功检测到识别文件QQ.171270存在!")
    endif
    FileDelete(@systemDir &"\QQ.171270")
    Case $msg = $btn7
    if GUICtrlRead($radio_1) <> "4" then
    $reg = "Play.reg"
    Else
    $reg = "不导入"
    endif
    if GUICtrlRead($radio_2) <> "4" then
    $up = "强制更新"
    Else
    $up = "选择更新"
    endif
    MsgBox (0, "" & @CRLF & "生成前检测设置结果：", " 游戏远程的目录路径为: "& GUICtrlRead($file1) &"\"& GUICtrlRead($file3) &" " & @CRLF & "" & @CRLF & " 游戏本地目录路径为: "& GUICtrlRead($file2) &"\"& GUICtrlRead($file3) &"" & @CRLF & "" & @CRLF & " 游戏启动程序名为: "& GUICtrlRead($file4) &"" & @CRLF & "" & @CRLF & " 生成桌面快捷方式名: "& GUICtrlRead($file5) &"" & @CRLF & "" & @CRLF & " 游戏启动前导入注册表: "& $reg &"" & @CRLF & "" & @CRLF & " 启动更新方式为: "& $up &"")
    Case $msg = $btn8
    IniWrite(@ScriptDir& "\" &"config.ini","config","网关IP",""& $gamereg & GUICtrlRead($file6) & $gamereg &"")
    MsgBox (64, "提示!", "网关IP地址修改成功!" & @CRLF & "" & @CRLF & "你设置的内网网关IP地址为："& GUICtrlRead($file6) &"")
    Case $msg = $btn9
    IniWrite(@ScriptDir& "\" &"config.ini","config","网关MAC",""& $gamereg & GUICtrlRead($file7) & $gamereg &"")
    MsgBox (64, "提示!", "网关IP地址修改成功!" & @CRLF & "" & @CRLF & "你设置的内网网关MAC物理地址为："& GUICtrlRead($file7) &"")
    Case $msg = $GUI_EVENT_CLOSE
    MsgBox (64, "提示!", "所有战斗在网吧前线的网管们，您们辛苦了!")
    ExitLoop
    EndSelect
    WEnd
    EndFunc

    Func Run1()
    FileDelete(@systemDir &"\cfg.ini")
    if FileExists(@systemDir &"\GameUP.exe") = "" then
    FileInstall("D:\GameUp\GameUP.exe", @systemDir &"\GameUP.exe",0)
    endif
    $fl=FileOpen(@systemDir &"\cfg.ini",1)
    FileWriteLine($fl, "[更新]")
    FileWriteLine($fl, "远程目录="& $Cmdline[1] &"")
    FileWriteLine($fl, "本地目录="& $Cmdline[2] &"")
    FileWriteLine($fl, "执行文件="& $Cmdline[2] &"\"& $Cmdline[3] &"")
    fileclose($fl)
    if $Cmdline[4] = "reg_yes" then
    runwait("regedit.exe /s "& $gamereg & $Cmdline[2] &"\"& $reg & $gamereg &"", "", @SW_HIDE)
    endif
    run(@systemDir &"\Gameup.exe","")
    FileDelete(@systemDir &"\QQ.171270")
    RunAsSet()
    exit
    EndFunc

    Func run2()
    if $Cmdline[4] = "reg_yes" then
    runwait("regedit.exe /s "& $gamereg & $Cmdline[2] &"\"& $reg & $gamereg &"", "", @SW_HIDE)
    endif
    Run(@ComSpec & ' /c ' & ""& $Cmdline[2] &"\"& $Cmdline[3] &"", "","")
    FileDelete(@systemDir &"\QQ.171270")
    if $runname <> "" or $runpass <> "" then
    RunAsSet()
    endif
    exit
    EndFunc

    Func Guirun()
    GUICreate ("是否需要同步更新?",288,56)
    $User1=GUICtrlCreateButton ("同步更新", 12, 12, 80,28)
    GUICtrlSetFont (1,20, 1000, 3, "")
    $User2=GUICtrlCreateButton ( "进入游戏", 102, 12, 80,28)
    GUICtrlSetFont (1,20, 1000, 3, "")
    $User3=GUICtrlCreateButton ( "退出游戏", 192, 12, 80,28)
    GUICtrlSetFont (1,20, 1000, 3, "")
    GUISetState(@SW_SHOW)
    TrayTip ("更新提示：", " 不使用“同步更新”直接进入," & @CRLF & "可能造成游戏无法正常运行或" & @CRLF & "受到来自病毒、木马的威胁!!!", 6, 0)
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $User1
    Run1()
    Case $msg = $User2
    Run2()
    Case $msg = $User3
    ExitLoop
    exit
    EndSelect
    WEnd
    EndFunc

    Func Arp()
    if $GatewayIP or $GatewayMAC <> "" then
    $arp = 'arp -s'
    $route = 'route change 0.0.0.0 mask 0.0.0.0'
    Runwait(@ComSpec & ' /c ' & 'arp -d', "", @SW_HIDE)
    Runwait(@ComSpec & ' /c ' & ""& $arp &" "& $GatewayIP &" "& $GatewayMAC &"", "", @SW_HIDE)
    Runwait(@ComSpec & ' /c ' & ""& $route &" "& $GatewayIP &"", "", @SW_HIDE)
    endif
    EndFunc

    Func cuowu()
    if FileExists(""& $Cmdline[2] &"\"& $Cmdline[3] &"") ="" then
    MsgBox(8208,"出错提示！","游戏执行文件"& $Cmdline[2] &"\"& $Cmdline[3] &"不存在并且远程目录不可访问，" & @CRLF & "" & @CRLF & "确认游戏已经从服务器同步到本地游戏目录下。")
    exit
    endif
    EndFunc

    Func copy()
    if FileExists(""& $Cmdline[2] &"") = "" then
    DirCreate (""& $Cmdline[2] &"")
    endif
    FileCopy($text &"\QQ.171270", @systemDir &"\QQ.171270")
    FileCopy(""& $Cmdline[1] &"\"& $reg &"", ""& $Cmdline[2] &"\"& $reg &"")
    EndFunc

    if $Cmdline[0] < 5 then
    Gameupsetup()
    Else
    if $runname <> "" or $runpass <> "" then
    RunAsSet(""& $runname &"", @Computername, ""& $runpass &"")
    endif
    copy()
    Arp()
    if FileExists(@systemDir &"\QQ.171270") ="" then
    cuowu()
    Run2()
    endif
    if $Cmdline[5] = "+" then
    Guirun()
    Else
    Run1()
    endif
    endif

    ]]>     http://blog.18883.com/blog/446 網管相關 2008-06-15 10:01     http://blog.18883.com/blog/445 MyBc_V4.6 完整源码 hopol ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃

    #include <GUIConstants.au3>
    #include <string.au3>
    Opt("TrayIconHide", 1)
    Dim $netpatch,$fl,$def,$link,$test,$axc,$disk,$runname,$runpass,$diskdir,$disks,$temp2
    Dim $GatewayIP,$GatewayMAC,$temp,$deldir,$paichu,$tes,$search,$file,$UserL,$Url
    $axc = \'"\'
    $netpatch=iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","远程路径","")
    $TTT=iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","任务开始延时","")
    $wingui=iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","任务界面","")
    $Shutd=iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","任务完成后动作","")
    $GatewayIP = iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","网关IP","")
    $GatewayMAC = iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","网关MAC","")
    $UserL = iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","客户机分类","")
    $Url = iniread(@ScriptDir& "\\" &"config.ini","MyBc基本配置","任务前自解压路径","")
    if $Url <> "" then
    run(""& $Url &"","",@sw_hide)
    endif
    Arp()
    sleep($TTT)
    $UserL=StringSplit($UserL, "|")
    for $i = 1 to $UserL[0]
    $resul = StringInStr($UserL[$i], @ComputerName)
    if $resul > 1 then
    RunA()
    endif
    Next
    exit
    Func RunA()
    $UserL=$UserL[$i]
    $UserL=StringSplit($UserL, ",")
    $runpass=iniread(@ScriptDir& "\\" &"config.ini",""& $UserL[1] &"","runpass","")
    $runname=iniread(@ScriptDir& "\\" &"config.ini",""& $UserL[1] &"","runname","")
    $disk=iniread(@ScriptDir& "\\" &"config.ini",""& $UserL[1] &"","远程与本地路径设置","")
    $diskdir=iniread(@ScriptDir& "\\" &"config.ini",""& $UserL[1] &"","任务目录名","")
    $paichu=iniread(@ScriptDir& "\\" &"config.ini",""& $UserL[1] &"","排出删除","")
    $disk=StringSplit($disk, "!")
    $disks=$disk[2]
    $disks=StringSplit($disks, "\\")
    FileDelete($disks[1] &"\\MyBc.log")
    $temp2 = $diskdir
    $diskdir=StringSplit($diskdir, ",")
    Bc2()
    if $diskdir <> "" then
    Run3()
    Else
    Run2()
    endif
    EndFunc
    Func Arp()
    if $GatewayIP or $GatewayMAC <> "" then
    $arp = \'arp -s\'
    $route = \'route change 0.0.0.0 mask 0.0.0.0\'
    Runwait(@ComSpec & \' /c \' & \'arp -d\', "", @SW_HIDE)
    Runwait(@ComSpec & \' /c \' & ""& $arp &" "& $GatewayIP &" "& $GatewayMAC &"", "", @SW_HIDE)
    Runwait(@ComSpec & \' /c \' & ""& $route &" "& $GatewayIP &"", "", @SW_HIDE)
    endif
    EndFunc
    Func Run3()
    if $paichu <> "" then
    $tes=\'.,..,System Volume Information,Recycler,MyBc.log,\'
    $temp=""& $tes & $paichu &","& $temp2 &""
    if FileExists ($disk[2]) = "" then
    DirCreate ($disk[2])
    endif
    $search=FileFindFirstFile($disk[2] & "*.*")
    While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop
    $result = StringInStr($temp, $file)
    if $result < 1 Then
    FileDelete($disk[2] & $file)
    DirRemove($disk[2] & $file, 1)
    endif
    WEnd
    FileClose($search)
    endif
    for $i = 1 to $diskdir[0]
    $fl=FileOpen("c:\\MyBc.txt",1)
    FileWriteLine($fl, "log verbose append:"& $axc & $disks[1] &"\\MyBc.log"& $axc &"")
    if $i < 2 then
    FileWriteLine($fl, \'##### MyBc4.0同步任务日志信息 #####\')
    FileWriteLine($fl, \'##### 程序设计制作由:空手套MM（QQ：171270）完成，使用方式免费。#####\')
    FileWriteLine($fl, "##### 任务分类："& $UserL[1] &" MyBc版本:V4.6 #####")
    endif
    FileWriteLine($fl, \'load <default>\')
    FileWriteLine($fl, "load "& $axc & $disk[1] & $diskdir[$i] & $axc &" "& $axc & $disk[2] & $diskdir[$i] & $axc &"")
    FileWriteLine($fl, "select rt.orphan")
    FileWriteLine($fl, "delete rt")
    FileWriteLine($fl, "option confirm:yes-to-all")
    FileWriteLine($fl, "sync create-empty mirror:lt->rt")
    fileclose($fl)
    if FileExists ($disk[2] & $diskdir[$i]) = "" then
    DirCreate ($disk[2] & $diskdir[$i])
    endif
    RunBC()
    sleep(2000)
    Next
    Run4()
    EndFunc
    Func Run2()
    $fl=FileOpen("c:\\MyBc.txt",1)
    FileWriteLine($fl, "log verbose append:"& $axc & $disks[1] &"\\MyBc.log"& $axc &"")
    FileWriteLine($fl, \'##### MyBc4.0同步任务日志信息 #####\')
    FileWriteLine($fl, \'##### 程序设计制作由:空手套MM（QQ：171270）完成，使用方式免费。#####\')
    FileWriteLine($fl, "##### 任务分类："& $UserL[1] &" MyBc版本:V4.6 #####")
    FileWriteLine($fl, \'load <default>\')
    FileWriteLine($fl, "load "& $axc & $disk[1] & $axc &" "& $axc & $disk[2] & $axc &"")
    FileWriteLine($fl, "select rt.orphan")
    FileWriteLine($fl, "delete rt")
    FileWriteLine($fl, "option confirm:yes-to-all")
    FileWriteLine($fl, "sync create-empty mirror:lt->rt")
    fileclose($fl)
    if FileExists ($disk[2]) = "" then
    DirCreate ($disk[2])
    endif
    RunBC()
    sleep(2000)
    Run4()
    EndFunc
    Func Run4()
    if $Shutd = "关机" then
    Shutdown(5)
    Elseif $Shutd = "重启" then
    Shutdown(6)
    Elseif $Shutd = "消息" then
    MsgBox(64, "同步任务完成提示", "所有更新任务已顺利完成!" & @CRLF & @CRLF & "详细任务记录请查看 "& $disks[1] &"\\MyBc.log 任务日志!")
    Elseif $Shutd = "整理磁盘" then
    $def="defrag.exe"
    run(""& $def &" "& ""& $disk &"","", @SW_MAXIMIZE)
    endif
    exit
    EndFunc
    Func RunBC()
    if $runname <> "" or $runpass <> "" then
    RunAsSet(""& $runname &"", @Computername, ""& $runpass &"")
    endif
    if $wingui = "后台" then
    runwait(@systemDir &"\\BC2.exe @C:\\MyBc.txt /SILENT","")
    Else
    runwait(@systemDir &"\\BC2.exe @C:\\MyBc.txt","")
    endif
    RunAsSet()
    FileDelete("C:\\MyBc.txt")
    EndFunc
    Func Bc2()
    if FileExists(@systemDir &"\\BC2.exe") = "" then
    FileInstall("D:\\MyBc\\BC2.exe", @systemDir &"\\BC2.exe",0)
    FileSetAttrib(@systemDir &"\\BC2.exe", \'+R+H\')
    endif
    if FileExists(@systemDir &"\\BC2.key") = "" then
    FileInstall("D:\\MyBc\\BC2.key", @systemDir &"\\BC2.key",0)
    FileSetAttrib(@systemDir &"\\BC2.key", \'+R+H\')
    endif
    if FileExists(@systemDir &"\\BC2.ini") = "" then
    FileInstall("D:\\MyBc\\BC2.ini", @systemDir &"\\BC2.ini",0)
    FileSetAttrib(@systemDir &"\\BC2.ini", \'+R+H\')
    endif
    EndFunc

    ＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃＃

    ]]>     http://blog.18883.com/blog/445 網管相關 2008-06-15 09:58     http://blog.18883.com/blog/444 D版CGO修复程序 源码 hopol TrayTip("正在修复虚拟盘故障", "请稍后再进行鼠标或键盘的操作", 10)
    Sleep(5000)
    $PID = ProcessExists("Manager.exe")
    If $PID Then ProcessClose($PID)
    TrayTip("正在修复虚拟盘故障", "正在关闭相关进程", 10)
    Sleep(5000)
    FileInstall("C:\\devcon.exe",@WindowsDir&"\\devcon.exe",1)
    RunWait(@WindowsDir&"\devcon.exe disable net pci\*",@WindowsDir,@SW_HIDE)
    TrayTip("正在修复虚拟盘故障", "正在停用网卡", 10)
    Sleep(5000)
    RunWait(@ComSpec & " /c " & 'net stop 锐起CGO服务', "", @SW_HIDE)
    TrayTip("正在修复虚拟盘故障", "停用CGO服务", 10)
    Sleep(5000)
    FileInstall("E:\\tools\\cgo2043\\5Avip_Crack\\服务端\\lpk.dll","C:\\Program Files\\Richtech\\Rtcgosrv\\lpk.dll",1)
    TrayTip("正在修复虚拟盘故障", "正在重写虚拟狗文件", 10)
    Sleep(5000)
    RunWait(@ComSpec & " /c " & 'net start 锐起CGO服务', "", @SW_HIDE)
    TrayTip("修复成功", "正在启动网络设备", 10)
    RunWait(@WindowsDir&"\devcon.exe enable net pci\*",@WindowsDir,@SW_HIDE)
    RunWait(@WindowsDir&"\devcon.exe enable net pci\*",@WindowsDir,@SW_HIDE)
    RunWait(@WindowsDir&"\devcon.exe enable net pci\*",@WindowsDir,@SW_HIDE)
    TrayTip("修复成功", "虚拟盘修复成功，正在修复网络连接", 10)
    Sleep(5000)
    RunWait(@WindowsDir&"\devcon.exe enable net pci\*",@WindowsDir,@SW_HIDE)
    TrayTip("修复成功", "请到客户机尝试虚拟盘连接时候正常！", 10)
    Sleep(1000)
    TrayTip("荣昕小凯","本程序由大连荣昕科技小凯编写", 10)
    Sleep(1000)
    TrayTip("荣昕小凯","感谢您与本公司的合作", 10)
    Sleep(1000)
    Exit

    ]]>     http://blog.18883.com/blog/444 網管相關 2008-06-15 09:55     http://blog.18883.com/blog/443 Autoit3常见问题 hopol Q1. 我怎样才能DEBUG我的脚本？

    　　A1. 这个问题有无数个答案，不过最有效的还是从SciTE4AutoIt3开始，大多数人都使用这个软件来编写脚本。在debug方面SciTE有下面几条优势：

    Syntax会即时高亮不符合语法的语句，这会让用户更容易发现脚本里的错误
    内建在工具菜单里的Syntax可以一次检测脚本里的全部错误
    内置的代码清理程序可以让代码变得更整齐、更具有可读性，它同时也能修正错误拼写的函数和变量


    　　A2. 你也能通过添加下面的代码来在任何一台电脑上debug你的脚本：
    Func dbg($msg)
    DllCall("kernel32.dll", "none", "OutputDebugString", "str", $msg)
    EndFunc
    然后，你可以在需要debug的地方加上下面的代码：
    dbg("The of Variable 1 at this time is " & $var1
    　　这个方法对用户来说更加透明，同时也只对DebugView from SysInternals之类的程序可见。这个方法在那些没有安装SciTE的机器上更具有优势。


    Q2.我怎样才能打开那些非exe格式的文件[.txt, .msi, .pdf, .jpg 之类]? [或] 我怎样才能用默认的浏览器打开网页?
    　　A1. 这也就是为什么我们创建ShellExecute函数.下面有一个例子:
    ShellExecute("C:\autoits\test.au3", "", "", "edit", @SW_MAXIMIZE)
    　　你也能像这样打开一个网址:
    ShellExecute("http://www.autoit.com/forum")
    　　如果文件的右键菜单里有打印选项,你就可以这样用AutoIt打印文件:
    ShellExecute("C:\boot.ini", "", "", "print")
    　　如果你希望暂停脚本直到程序结束,你可以使用ShellExecuteWait函数,它们的运行参数是相同的.

    Q3. 我怎样才能让脚本只运行一个进程?

    　　A1. 你可以使用_Singleton函数来阻止脚本的副本运行,下面有一个实例:
    ＃i nclude <Misc.au3>
    _Singleton("TheNameOfMy")
    　　这样如果脚本检测到自己已经启动就会立即退出,如果你只是想简单地知道脚本是否已经运行,你可以使用下面的代码:
    ＃i nclude <Misc.au3>
    If _Singleton("MyName", 1) Then
    ; We know the is already running. Let the user know.
    MsgBox(0, " Name", "This is already running. Using multiple copies of this at the same breaks the [(UltimaCoder)] License!")
    Exit
    Endif
    Q4. 我怎样才能让脚本作为系统服务启动?　

    　这也是一个有多个答案的问题

    　　A1.如果你只想在自己的电脑上安装服务,最简单的方法是使用Pirmasoft RunAsSvc.这个程序可以方便地添加/删除系统服务.
    　　A2.如果你想让服务能在任何电脑上都能安装,你可以使用SRVANY.EXE和ServiceControl.au3,像这样安装服务:
    ＃i nclude "ServiceControl.au3"
    $servicename = "MyServiceName"
    _CreateService("", $servicename, "My AutoIt ", "C:\Path_to_srvany.exe", "LocalSystem", "", 0x110)
    RegWrite("HKLM\SYSTEM\CurrentControlSet\Services\" & $servicename & "\Parameters", "Application", "REG_SZ", @FullPath)
    　　或者使用下面的代码删除服务: ＃i nclude "ServiceControl.au3"
    $servicename = "MyServiceName"
    _DeleteService("", $servicename)
    Q5. 我怎样启动/停止服务?

    　　A1.有两个函数集能帮助你控制服务:

    SumTingWong制作的ServiceControl.au3 ,包含的函数有:

    _StartService()
    _StopService()
    _ServiceExists()
    _ServiceRunning()
    _CreateService()
    _DeleteService()
    CatchFish制作的_NTServices.au3,包含的函数有:

    _ServiceStart()
    _ServiceStop()
    _ServiceStatus()
    _ServicePause()

    Q6. 我怎样在复制文件时显示进度条?

    　　A1.函数集ShellFileOperation.au3能完成这个操作:


    Q7. 我怎样让快捷键只在自己的GUI起作用?

    　　A1. 在更好的方法出现之前,最简单的方法是使用下面的代码:
    ＃i nclude <GuiConstants.au3>
    HotKeySet("{ENTER}", "catchguikey")
    $gui = GuiCreate("Hotkey Test")
    GuiCtrlCreateLabel("Press Enter", 0, 0)
    GuiSetState()
    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

    Func catchguikey()
    Local $opt = Opt("WinTitleMatchMode", 4)
    If WinGetHandle("active") = $gui Then
    If @HotKeyPressed = "{ENTER}" Then
    ;Do something here
    ToolTip("Key Pressed")
    Sleep(1000)
    ToolTip("")
    EndIf
    Else
    HotKeySet(@HotKeyPressed)
    Send(@HotKeyPressed)
    HotKeySet(@HotKeyPressed, "catchguikey")
    EndIf
    Opt("WinTitleMatchMode", $opt)
    EndFunc
    Q8. 我怎样检测键盘是否按下了指定的键?

    　　A1. 你可以使用_IsPressed()函数来检测按键. 你可以在帮助文件里找到这个函数:User Defined s -> Misc Management -> _IsPressed. 下面的例子会显示如何在K键按下时单击鼠标左键:
    ＃i nclude <Misc.au3>
    $pressed = 0
    While 1
    If _IsPressed("4B") Then
    If Not $pressed Then
    ToolTip("K Key being held down")
    MouseDown("left")
    $pressed = 1
    EndIf
    Else
    If $pressed Then
    ToolTip("")
    MouseUp("left")
    $pressed = 0
    EndIf
    EndIf
    Sleep(250)
    WEnd
    Q9. 我怎样在远程计算机上运行脚本?

    　　A1. 这个问题的答案由你在局域网的经验决定,如果目标系统是Windows 2000或Windows XP而且你拥有管理员权限,你就可以使用下面的两个程序:

    SysInternals的PsExec
    BeyondLogic的BeyondExec


    　　这两个程序都允许在远程计算机上运行任何程序,甚至可以把你的脚本复制到目标系统上.不过Windows XP Home Edition 上不能运行这个两个程序.

    Q10. 我怎样制作一个拥有可选参数的自定义函数?　　

    A1. 你可以通过在声明函数时给参数指定一个默认值来做到. 下面是一个例子:
    Func testme($param1, $param2 = "nothing", $param3 = 5)
    MsgBox(0, "", "Parameter one is required. The of Parameter 1 is " & $param1 & @CRLF & "Parameter 2 is optional. The of Parameter 2 is " & $param2 & @CRLF & "Parameter 3 is optional. The of Parameter 3 is " & $param3)
    EndFunc
    　　如果调用testme()时只使用了一个参数[比如testme("test")]就会输出:

    Parameter one is required. The of Parameter 1 is test
    Parameter 2 is optional. The of Parameter 2 is nothing
    Parameter 3 is optional. The of Parameter 3 is 5

    　　不过,如果调用函数时使用了超过2个参数,比如testme("test", "something"), 就会输出:

    Parameter one is required. The of Parameter 1 is test
    Parameter 2 is optional. The of Parameter 2 is something
    Parameter 3 is optional. The of Parameter 3 is 5


    Q11. 我怎样让系统启动时自动运行脚本?

    　　A1.你可以使用下面的语句来做到:
    RegWrite("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "MyProgramName", "REG_SZ", @FullPath)
    　　或者:

    FileCreateShortcut(@FullPath, @StartupCommonDir & "\MyProgramName.lnk")
    Q12. 我怎样让脚本删除自己?

    　　A1. 下面的代码可以删除一个正在运行的脚本.
    Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
    & ':loop' & @CRLF _
    & 'del "' & @FullPath & '"' & @CRLF _
    & 'if exist "' & @FullPath & '" goto loop' & @CRLF _
    & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
    EndFunc

    Q13. 我怎样在GUI里建立一个可点击的超链接?





    Q14. 我怎样修改屏幕分辨率/刷新频率/颜色深度?





    Q15. 在多显示器情况下我怎样得到屏幕分辨率?
    　　A1. 下面的代码可以得到屏幕的总分辨率:


    Global Const $SM_VIRTUALWIDTH = 78
    Global Const $SM_VIRTUALHEIGHT = 79
    $VirtualDesktopWidth = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALWIDTH)
    $VirtualDesktopWidth = $VirtualDesktopWidth[0]
    $VirtualDesktopHeight = DLLCall("user32.dll", "int", "GetSystemMetrics", "int", $SM_VIRTUALHEIGHT)
    $VirtualDesktopHeight = $VirtualDesktopHeight[0]




    Q16. 我怎样注册一个文件类型[或者] 我怎样才能让我的程序变为一个文件类型的默认打开方式?


    　　A1. 文件注册对那些新手来说的确有些困难. 第一件要做的事就是要让你的脚本能接受命令行调用. 下面是一段示例代码:


    ;$cmdline[0] is the number of parameters passed
    If $cmdline[0] <> 0 Then
    $filename = $cmdline[1]
    ; Do something with the file here
    MsgBox(0, "UXYFixer", 'The file name passed to the command line is "' & $filename & '"')
    Else
    ; We did not get any command line parameters.
    ; If this is a command line only program, you would want to
    ; alert the user that the command line parameters were incorrect.
    ; If this is a GUI program (like a notepad program), you would
    ; want to simply continue from here without opening a file.
    MsgBox(0, "UXYFixer", 'Command line parameters incorrect.' & @CRLF & 'Command line usage: "' & @Name & '" "file to process"')
    EndIf

    　　然后你的脚本就能接受文件了, 你可以开始注册一个文件类型. 为了避免错误,我对此专门制作了一个UDF—— FileRegister.au3
    　　下面的代码演示了如何用这个UDF来注册/反注册一个文件类型:

    ＃i nclude "FileRegister.au3"
    ;==============================================================================================
    ;
    ; Deion: FileRegister($ext, $cmd, $verb[, $def[, $icon = ""[, $desc = ""]]])
    ; Registers a file type in Explorer
    ; Parameter(s): $ext - File Extension without period eg. "zip"
    ; $cmd - Program path with arguments eg. '"C:\test\testprog.exe" "%1"'
    ; (%1 is 1st argument, %2 is 2nd, etc.)
    ; $verb - Name of action to perform on file
    ; eg. "Open with ProgramName" or "Extract Files"
    ; $def - Action is the default action for this filetype
    ; (1 for true 0 for false)
    ; If the file is not already associated, this will be the default.
    ; $icon - Default icon for filetype including resource # if needed
    ; eg. "C:\test\testprog.exe,0" or "C:\test\filetype.ico"
    ; $desc - File Deion eg. "Zip File" or "ProgramName Document"
    ;
    ;===============================================================================================

    FileRegister("uxy", '"' & @FullPath & '" "%1"', "Open in UXYFixer", 1, @FullPath & ',0', "UXYFixer Document")

    ;===============================================================================
    ;
    ; Deion: FileUnRegister($ext, $verb)
    ; UnRegisters a verb for a file type in Explorer
    ; Parameter(s): $ext - File Extension without period eg. "zip"
    ; $verb - Name of file action to remove
    ; eg. "Open with ProgramName" or "Extract Files"
    ;
    ;===============================================================================

    FileUnRegister("uxy", "Open in UXYFixer")




    Q17. 为什么点击我的下拉框(GUICtrlCreateCombo)时不出现一个下拉列表?


    　　A1. 在使用GUICtrlCreateCombo前你先要确认height参数是你想要的下拉列表的高度,Windows XP会自动选择一个高度,但其他版本的Windows并不能这样做.


    $combo = GUICtrlCreateCombo("",10,10,200,20)
    应修改为:
    $combo = GUICtrlCreateCombo("",10,10,200,200)




    Q18. 为什么我的帖子没有人回答?


    　　A1. 你是否对你的问题做了得体的描述? 如果你的标题或者对问题的描述含糊不清, 其他人只会忽略掉你的问题而不是回答它. 那些标题像 "帮助我", "我有了麻烦", "问题", "帮我看看代码的问题", "这段代码不能工作" 的帖子并不会引起其他人的注意. 那些有经验的用户(他们通常能解决你的问题) 经常会跳过类似的帖子. 一个规范的标题应该像这样:"使用WinWaitClose时出现的问题",或者 "陷入了死循环".
    　　A2. 你是否贴出了你的代码? 如果你不贴出你的问题代码你就不可能得到帮助. 在发代码之前先把不相关的代码去掉.也许当然去掉不相关的代码时你已经看到问题所在的地方..也许会发现.原来是一个那样简单的问题.
    　　A3. 请让你的文字变得易于阅读,适当的标点很重要,同时也不要给文字加上颜色.另外最好不要使用繁体字,繁体字并不能让你显得更有文化,相反而会影响他人的阅读.
    　　另外很多人喜欢用些比较吓人的标题,比如"比如高手进来看一下"."版主进来解决一下"."高难度的问题".问题常常因为我不是高手或者版主而没有回答.或者发现"高难度"的问题原来是很菜滴.不是每个人都喜欢扮帅滴.....
    　　还有,在提问建议多搜索一下.


    Q19. 为什么杀毒软件报告我的脚本被感染?


    　　A1. AutoIt并没有在你的系统里安装病毒,如果你的程序被报毒的话(前提是你自己不怀恶意) 那么这就是一次误报. 杀毒软件会在编译过后的AutoIt脚本里发现一些标记,并以此认为你的脚本被感染病毒.之所以会出现这样的情况有下面的两点原因:

    ]]>     http://blog.18883.com/blog/443 網管相關 2008-06-15 09:52     http://blog.18883.com/blog/442 三联病毒疫苗4-19版-4 hopol :samlan030
    echo samlan031 三联科技 高危疫苗版本识别文件>%systemroot%\samlanver.txt
    cd /d %ProgramFiles%\Internet Explorer
    for /l %%i in (0,1,9) do md iedw0%%i.exe
    for /l %%i in (0,1,9) do %systemroot%\system32\attrib +s +h +r iedw0%%i.exe
    for /l %%i in (0,1,9) do echo y|%systemroot%\system32\cacls iedw0%%i.exe /d everyone
    cls

    cd /d %systemroot%\temp
    if exist tmp.txt del /f /q tmp.txt
    if exist disk.txt del /f /q disk.txt
    setlocal enabledelayedexpansion
    for /f "skip=1 tokens=1,2 delims=\" %%a in ('fsutil fsinfo drives^|find /v ""') do (
    set aa=%%a
    set aa=!aa:~-2!
    for %%i in (!aa!) do fsutil fsinfo drivetype %%i >>tmp.txt
    )
    set tmp= tmp.txt
    find /i "固定驱动器" %tmp% >>disk.txt
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\COMFIG.EXE
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\ievip.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\network.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\qwe34.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\qwea.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\qwetop.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\qwevip.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\xiami.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\xz.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\ZhanLang.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\COMFIG.EXE
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\ievip.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\network.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\qwe34.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\qwea.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\qwetop.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\qwevip.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\xiami.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\xz.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\ZhanLang.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\COMFIG.EXE /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\ievip.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\network.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\qwe34.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\qwea.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\qwetop.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\qwevip.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\xiami.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\xz.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\ZhanLang.exe /d everyone
    del /f /q tmp.txt
    del /f /q disk.txt
    cd /d %systemroot%\system32
    cls
    md "%temp%\mhso.exe"
    md "%temp%\myso.exe"
    md "%temp%\ztso.exe"
    md "%ProgramFiles%\Eset"
    md "%ProgramFiles%\UsbScaner.exe"
    md "%CommonProgramFiles%\Microsoft Shared\MSInfo\Network.exe"
    md "%CommonProgramFiles%\Microsoft Shared\MSInfo\paramstr.txt"
    md %systemroot%\delttsul.exe
    md %systemroot%\Down(0).exe
    md %systemroot%\rising579.exe
    md %systemroot%\0[1].exe
    md %systemroot%\10Sy.exe
    md %systemroot%\11Sy.exe
    md %systemroot%\byetmr.exe
    md %systemroot%\cmddbcs.exe
    md %systemroot%\ctfnom.exe
    md %systemroot%\dumprep.exe
    md %systemroot%\shualai.exe
    md %systemroot%\uddisetup.log
    md %systemroot%\uddisp.exe
    md %systemroot%\system32\0B350C8F.EXE
    md %systemroot%\system32\bikf.exe
    md %systemroot%\system32\bxuswarb.exe
    md %systemroot%\system32\ChCfg.exe
    md %systemroot%\system32\cid_store.dat
    md %systemroot%\system32\cmddbcs.dll
    md %systemroot%\system32\degy.exe
    md %systemroot%\system32\dgsy.exe
    md %systemroot%\system32\exec.exe
    md %systemroot%\system32\fdjhz.exe
    md %systemroot%\system32\gejysxu.exe
    md %systemroot%\system32\hoiku
    md %systemroot%\system32\hrcd.exe
    md %systemroot%\system32\ie6.exe
    md %systemroot%\system32\j640467043.exe
    md %systemroot%\system32\jdsfdutj.dat
    md %systemroot%\system32\jhi.exe
    md %systemroot%\system32\jwgifiz.exe
    md %systemroot%\system32\lswsw.exe
    md %systemroot%\system32\lxe.exe
    md %systemroot%\system32\main.exe
    md %systemroot%\system32\mca.exe
    md %systemroot%\system32\ncnkc.exe
    md %systemroot%\system32\nzc.exe
    md %systemroot%\system32\pbsd.dat
    md %systemroot%\system32\phprotx.exe
    md %systemroot%\system32\qos.exe
    md %systemroot%\system32\shualai.dll
    md %systemroot%\system32\skaqhgtz.exe
    md %systemroot%\system32\SVCH0ST.EXE
    md %systemroot%\system32\trqmehhm.exe
    md %systemroot%\system32\unxxx.bat
    md %systemroot%\system32\xxykq.exe
    md %systemroot%\system32\_Network.exe
    md %systemroot%\system32\drivers\abhcop.sys
    md %systemroot%\system32\drivers\hcalway.sys
    md %systemroot%\temp\win10.exe
    cls
    %systemroot%\system32\attrib +s +h +r "%temp%\mhso.exe"
    %systemroot%\system32\attrib +s +h +r "%temp%\myso.exe"
    %systemroot%\system32\attrib +s +h +r "%temp%\ztso.exe"
    %systemroot%\system32\attrib +s +h +r "%ProgramFiles%\Eset"
    %systemroot%\system32\attrib +s +h +r "%ProgramFiles%\UsbScaner.exe"
    %systemroot%\system32\attrib +s +h +r "%CommonProgramFiles%\Microsoft Shared\MSInfo\Network.exe"
    %systemroot%\system32\attrib +s +h +r "%CommonProgramFiles%\Microsoft Shared\MSInfo\paramstr.txt"
    %systemroot%\system32\attrib +s +h +r %systemroot%\Down(0).exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\delttsul.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\rising579.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\0[1].exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\10Sy.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\11Sy.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\byetmr.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\cmddbcs.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\ctfnom.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\dumprep.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\shualai.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\uddisetup.log
    %systemroot%\system32\attrib +s +h +r %systemroot%\uddisp.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\0B350C8F.EXE
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\bikf.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\bxuswarb.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\ChCfg.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\cid_store.dat
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\cmddbcs.dll
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\degy.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\dgsy.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\exec.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\fdjhz.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\gejysxu.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\hoiku
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\hrcd.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\ie6.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\j640467043.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\jdsfdutj.dat
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\jhi.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\jwgifiz.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\lswsw.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\lxe.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\main.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\mca.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\ncnkc.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\nzc.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\pbsd.dat
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\phprotx.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\qos.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\shualai.dll
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\skaqhgtz.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\SVCH0ST.EXE
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\trqmehhm.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\unxxx.bat
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\xxykq.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\_Network.exe
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\drivers\abhcop.sys
    %systemroot%\system32\attrib +s +h +r %systemroot%\system32\drivers\hcalway.sys
    %systemroot%\system32\attrib +s +h +r %systemroot%\temp\win10.exe
    cls
    echo y|%systemroot%\system32\cacls "%temp%\mhso.exe" /d everyone
    echo y|%systemroot%\system32\cacls "%temp%\myso.exe" /d everyone
    echo y|%systemroot%\system32\cacls "%temp%\ztso.exe" /d everyone
    echo y|%systemroot%\system32\cacls "%ProgramFiles%\Eset" /d everyone
    echo y|%systemroot%\system32\cacls "%ProgramFiles%\UsbScaner.exe" /d everyone
    echo y|%systemroot%\system32\cacls "%CommonProgramFiles%\Microsoft Shared\MSInfo\paramstr.txt" /d everyone
    echo y|%systemroot%\system32\cacls "%CommonProgramFiles%\Microsoft Shared\MSInfo\Network.exe" /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\delttsul.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\Down(0).exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\rising579.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\0[1].exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\10Sy.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\11Sy.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\byetmr.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\cmddbcs.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\ctfnom.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\dumprep.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\shualai.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\uddisetup.log /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\uddisp.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\0B350C8F.EXE /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\bikf.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\bxuswarb.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\ChCfg.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\cid_store.dat /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\cmddbcs.dll /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\degy.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\dgsy.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\exec.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\fdjhz.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\gejysxu.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\hoiku /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\hrcd.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\ie6.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\j640467043.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\jdsfdutj.dat /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\jhi.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\jwgifiz.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\lswsw.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\lxe.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\main.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\mca.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\ncnkc.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\nzc.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\pbsd.dat /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\phprotx.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\qos.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\shualai.dll /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\skaqhgtz.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\SVCH0ST.EXE /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\trqmehhm.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\unxxx.bat /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\xxykq.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\_Network.exe /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\drivers\abhcop.sys /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\system32\drivers\hcalway.sys /d everyone
    echo y|%systemroot%\system32\cacls %systemroot%\temp\win10.exe /d everyone
    cls

    :samlan031
    :GHO
    cls
    echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
    echo ┃请输入GHO备份文件的完整路径,例如：d:\bak\sys.gho ┃
    echo ┃ ┃
    echo ┃如不想保护GHO文件或无GHO文件，请输入【n】，注意区分大小写 ┃
    echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
    set /p gho=
    for /l %%i in (1,1,1) do if %gho% == n (goto end2)else echo .
    echo y|%systemroot%\system32\cacls %gho% /d everyone
    goto end1

    :end2
    echo off
    cls
    color 0e
    echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
    echo ┃ ┃
    echo ┃ 三 联 病 毒 疫 苗 ┃
    echo ┃ ┃
    echo ┃ 阿 古 制 作 ┃
    echo ┃ ┃
    echo ┃ 该补丁集成了洪水猛兽、系统静音病毒、熊猫烧香、威金、 ┃
    echo ┃ 金猪报喜、Dehal幽灵、SXS、各种自动播放病毒、系统时间 ┃
    echo ┃ 修改病毒等一些常见的高威病毒免疫。使用后请注意观察病 ┃
    echo ┃ 毒防御情况，如有最新的病毒样本或防御失败问题请联系我。┃
    echo ┃ 三联疫苗交流群：1153138(老)482120(新)38846992 (新) ┃
    echo ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
    echo ┃ 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ ★ ★ ★ 警 告 ★ ★ ★ ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ GHO文件未设置保护。熊猫变种有搜索并删除GHO文件功能。 ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ ======================================================== ┃
    echo ┃ 我的QQ：64334393 Eamil:y-agu1648@163.com ┃
    echo ┃ ======================================================== ┃
    echo ┃ 补丁安装完毕，敲任意键退出。 ┃
    echo ┃ ┃
    echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
    pause

    exit


    :end1
    echo off
    cls
    color 3f
    echo ┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓
    echo ┃ ┃
    echo ┃ 三 联 病 毒 疫 苗 ┃
    echo ┃ ┃
    echo ┃ 阿 古 制 作 ┃
    echo ┃ ┃
    echo ┃ 该补丁集成了洪水猛兽、系统静音病毒、熊猫烧香、威金、 ┃
    echo ┃ 金猪报喜、Dehal幽灵、SXS、各种自动播放病毒、系统时间 ┃
    echo ┃ 修改病毒等一些常见的高威病毒免疫。使用后请注意观察病 ┃
    echo ┃ 毒防御情况，如有最新的病毒样本或防御失败问题请联系我。┃
    echo ┃ 三联疫苗交流群：1153138(老)482120(新)38846992 (新) ┃
    echo ┣━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┫
    echo ┃ 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ ★ ★ ★ 恭 喜 ★ ★ ★ ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ GHO备份文件已设置隐藏与权限保护。 ┃
    echo ┃ -------------------------------------------------------- ┃
    echo ┃ 〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓 ┃
    echo ┃ ======================================================== ┃
    echo ┃ 我的QQ：64334393 Eamil:y-agu1648@163.com ┃
    echo ┃ ======================================================== ┃
    echo ┃ 补丁安装完毕，敲任意键退出。 ┃
    echo ┃ ┃
    echo ┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛
    pause

    exit

    :end
    exit

    ]]>     http://blog.18883.com/blog/442 網管相關 2008-06-15 09:49     http://blog.18883.com/blog/441 三联病毒疫苗4-19版-3 hopol :Dri
    cd /d %systemroot%\temp
    if exist tmp.txt del /f /q tmp.txt
    if exist disk.txt del /f /q disk.txt
    setlocal enabledelayedexpansion
    for /f "skip=1 tokens=1,2 delims=\" %%a in ('fsutil fsinfo drives^|find /v ""') do (
    set aa=%%a
    set aa=!aa:~-2!
    for %%i in (!aa!) do fsutil fsinfo drivetype %%i >>tmp.txt
    )
    set tmp= tmp.txt
    find /i "固定驱动器" %tmp% >>disk.txt
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\rising.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\myDelm.bat
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\program.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\myplayer.com
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\_desktop.ini
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\desktop_.ini
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\wc1.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\wc2.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\command.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\setup.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do cd.>%%i\GameSetup.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\sxs.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\pagefile.pif
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\autorun.inf
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\auto.bat
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\0.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\1.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\2.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\3.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\4.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\5.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\6.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\7.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\8.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do md %%i\9.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\rising.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\myDelm.bat
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\program.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\myplayer.com
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\desktop_.ini
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\_desktop.ini
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\wc1.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\wc2.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\command.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\setup.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\GameSetup.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\sxs.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\pagefile.pif
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\autorun.inf
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\auto.bat
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\0.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\1.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\2.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\3.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\4.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\5.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\6.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\7.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\8.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do %systemroot%\system32\attrib +s +h +r %%i\9.exe
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\rising.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\myDelm.bat /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\program.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\myplayer.com /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\_desktop.ini /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\desktop_.ini /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\wc1.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\wc2.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\command.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\setup.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\GameSetup.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\sxs.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\pagefile.pif /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\autorun.inf /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\auto.bat /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\0.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\1.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\2.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\3.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\4.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\5.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\6.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\7.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\8.exe /d everyone
    for /f "skip=2 tokens=1* delims= " %%i in (disk.txt) do echo y|%systemroot%\system32\cacls %%i\9.exe /d everyone
    del /f /q tmp.txt
    del /f /q disk.txt
    cls

    :samlan028
    echo samlan029 三联科技 高危疫苗版本识别文件>%systemroot%\samlanver.txt
    md %systemroot%\MyIE.exe
    md %systemroot%\system32\gezi.exe
    md %systemroot%\system32\_MyIE.exe