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

#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

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