QQ记录自动备份,完成。

angelink

$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记录自动保存，也可以用来做别的软件保存。。。。。。。

总算完成了，在学学如何判断在QQ2008里的QQ记录文件，在修改吧~~
这里边可以加很多判断语句，为了省事就没加…………, 懒人啊！！！

[ 本帖最后由 angelink 于 2008-12-19 15:12 编辑 ]

angelink

熬夜搞得，哪位大大帮我参谋参谋啊。。。

waynelue

判断和复制是重复吧，那就把它们写成函数形式调用
循环用
while 1
Do
do_this()
Until QQ没有存在
do_this() 再运行一次
wend
func do_this()
...
endfunc


我是这样想的.上班中,不能帮你试不好意思..

[ 本帖最后由 waynelue 于 2008-12-19 09:47 编辑 ]

kkk123

支持，顶一

dfd1258

楼上挖坟哪