QQ记录自动备份,完成。
$INI = "config.ini"$Path = IniRead($INI,"配置","QQ路径","")
$SavePath = IniRead($INI,"配置","保存路径","")
$ServerIP = IniRead($INI,"配置","服务器IP","")
$ServerPath = Iniread($INI,"配置","共享名称","")
$UserName = Iniread($INI,"配置","共享帐号","")
$UserPass = Iniread($INI,"配置","共享密码","")
$PatchName = IniRead($INI,"配置","映射名称","")
$DriveName = IniRead($INI,"配置","映射盘符","")
$Process = IniRead($INI,"配置","QQ进程","")
$Time = IniRead($INI,"配置","间隔时间","")
Opt("TrayIconHide", 1) ;0=显示, 1=隐藏托盘图标
Break(0) ;有图标时用图标点不会暂停脚本。。这个可以去掉。
ProcessWait($Process) ;判断进程有没有运行，如果没有运行暂停
While 1
If ProcessExists($Process) Then ;判断要监控进程有没有运行，如果有运行，继续执行Then下命令，
Ping($ServerIP) ;Ping 服务器IP，如果通运行下一步
DriveMapAdd($DriveName,"\\"&$ServerIP&"\"&$ServerPath,0, $PatchName&"\"&$UserName,$UserPass);映射服务器共享文件夹为盘符，
DirCopy($Path,$SavePath, 1) ;复制并覆盖文件
DriveMapDel($DriveName) ;断开驱动映射
Sleep($Time*1000) ;延时秒为单位。
Else ;判断要监控进程有没有运行，如果没有运行，在备份一下，防止进程结束后没有备份，完成后退出脚本
Ping($ServerIP) ;Ping 服务器IP，如果通运行下一步
DriveMapAdd($DriveName,"\\"&$ServerIP&"\"&$ServerPath,0, $PatchName&"\"&$UserName,$UserPass);映射服务器共享文件夹为盘符，
DirCopy($Path,$SavePath, 1);复制并覆盖文件
DriveMapDel($DriveName);断开驱动映射
ExitLoop ;退出脚本。
EndIf
WEnd
配置文件
[配置]
服务器IP=192.168.1.3
共享名称=QQ
共享帐号=QQ
共享密码=icafe
映射名称=QQ记录
映射盘符=Z:
QQ路径=E:\聊天工具\QQ2009\Users
QQ进程=QQ.exe
保存路径=Z:\Users
间隔时间=60 秒为单位
目前只支持QQ2009的QQ记录自动保存，也可以用来做别的软件保存。。。。。。。
:face (29): 总算完成了，在学学如何判断在QQ2008里的QQ记录文件，在修改吧~~
这里边可以加很多判断语句，为了省事就没加…………,:face (37): 懒人啊！！！
[ 本帖最后由 angelink 于 2008-12-19 15:12 编辑 ] :face (30): 熬夜搞得，哪位大大帮我参谋参谋啊。。。 判断和复制是重复吧，那就把它们写成函数形式调用
循环用
while 1
Do
do_this()
Until QQ没有存在
do_this() 再运行一次
wend
func do_this()
...
endfunc
我是这样想的.上班中,不能帮你试不好意思..:face (37): :face (37):
[ 本帖最后由 waynelue 于 2008-12-19 09:47 编辑 ] 支持，顶一 楼上挖坟哪
页:
[1]