|
地板
楼主 |
发表于 2007-6-21 01:48:49
|
只看该作者
增加一下大家的信心,把同步代码先贴上!
一个VBS脚本 开机运行后 可以自动去进行同步!
'请将此脚本程序放到Winwebmail目录下
strComputer = "."
Do
Set objShell = CreateObject("WScript.Shell")
objShell.Run "net stop ""WinWebMail server""",,1
Set xPost = CreateObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://mail.newhi.net/cbl/antispam.txt",0 '下载路径+文件名
xPost.Send()
Set sGet = CreateObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "Kill.ini",2 '也可以用目录,如:./winwebmail/kill.ini
objShell.Run "net start ""WinWebMail server""",,1
WScript.Sleep(3600000) '现在时间为1小时运行一次
LOOP
[ 本帖最后由 chinaliuqi 于 2007-6-21 01:56 编辑 ] |
|