请问利用判断时间间隔改文件名

zzbtlc · 发表于 2011-3-12 10:14:11

$name = @ScriptName
If WinExists($name) Then
MsgBox(64,"提示","您已经运行了本程序，"&@CRLF&"请不要重复运行哦！")
Exit
EndIf
AutoItWinSetTitle($name)
#include <Process.au3>
While 1
      $s=@HOUR
      $f=@MIN
      $SF=$s&$f
      if Number($SF)>0800 And Number($SF)<1800  Then
            _RunDOS ("ren C:\Inetpub\wwwroot\OK\ipdate.dat ipdate.all")
_RunDOS ("ren C:\Inetpub\wwwroot\OK\ipdate.daa ipdate.dat")
MsgBox (0,"友情提示：","插件卸载成功！")
            Else
            _RunDOS ("ren C:\Inetpub\wwwroot\OK\ipdate.dat ipdate.daa")
_RunDOS ("ren C:\Inetpub\wwwroot\OK\ipdate.all ipdate.dat")
MsgBox (0,"友情提示：","插件装载成功！")
EndIf
WEnd
8点到18点这段时间把C:\Inetpub\wwwroot\OK\中原有的ipdate.daa改成ipdate.dat
而18点到8这段时间把C:\Inetpub\wwwroot\OK\中原有的ipdate.all改成ipdate.dat

yhxhappy · 发表于 2011-3-12 23:40:59

$BAT = "ipdate.dat"
$FileA = "ipdate.daa"
$FileB = "ipdate.all"

FileChangeDir("C:\Inetpub\wwwroot\OK")

While 1
        Switch @HOUR
        Case 8 To 18
                If FileRead($FileA) <> FileRead($BAT) Then FileCopy($FileA, $BAT, 1)
        Case 19 To 23, 0 To 7
                If FileRead($FileB) <> FileRead($BAT) Then FileCopy($FileB, $BAT, 1)
        EndSwitch
        ;Sleep(100000)                ;实际使用最好加上很长的延时
WEnd

zzbtlc · 发表于 2011-3-14 08:44:57

运行后第一次会改文件名，我把时间手动修改后，程序又不会改文件名了？请问是哪还有问题啊？

haodd · 发表于 2011-3-14 12:23:12

回复 3# zzbtlc

;Sleep(100000) ;因為有了很長的延時啊

zzbtlc · 发表于 2011-3-14 13:59:15

延时注释了啊？

		自动登录	找回密码
密码			加入

[系统综合] 请问利用判断时间间隔改文件名

相关帖子