|
把以下这段字copy到一个txt文件里面,然后更名为backup.htm就可以运行了
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<meta http-equiv="refresh" content="30;URL=backup.htm">
</head>
<body>
最简单的自动备份页面。每30秒备份一次,要备份多少文件,只要在
Fs.copyfile "backup.htm", "backup2.htm", True
下面继续加就可以了。
由于用 VBS 写的,需要授权才能运行,否则诺顿可要砍你的呦 :)
<script language="vbscript">
sub window_onload()
Dim Fs
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.copyfile "C:\Downloads\backup.htm", "C:\Downloads\backup2.htm", True
end sub
</script>
</body>
</html> |
|