论坛 › 『 提问交流 』 › 请问利用判断时间间隔改文件名

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)<1800Then
                _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)               ;因為有了很長的延時啊{:face (411):}

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

延时注释了啊？

查看完整版本: 请问利用判断时间间隔改文件名