Autoit計劃的任務

我試圖設置一個程序，當主機計算機達到某個小時或分鐘時，它將運行一個函數。看起來我需要一些東西來總是檢查時間，但不阻止任何事情。函數Say（）是一個示例，顯示在某個時間點，函數將被觸發。 Backup（）是我想要備份文件夾並將其名稱更改爲其製作日期的功能。我不知道如何讓時間工作。有什麼建議麼？Autoit計劃的任務

#include <ComboConstants.au3> 
#include <StaticConstants.au3> 
#include <GUIConstantsEx.au3> 
#include <WindowsConstants.au3> 
#include <Misc.au3> 
#include <EditConstants.au3> 
#include <WindowsConstants.au3> 
#include <Date.au3> 

Global $hwnd, $pid, $Server, $time, $min, $sec, $hour, $Counter, $s_Source, $s_Destination, $i_Flag 
MsgBox(0, "Test", Time()) 
Start() 
While 1 
If $Server = "Running" Then 
    If ProcessWaitClose($pid) = 1 Then Exit 
EndIf 
If $time = "20:15:00" Then Say() 
WEnd 

Func Start() 
If @error Then 
    Sleep(1) 
Else 
    Run('java -jar -Xmx1024M "C:\Users\Kristian\Desktop\Minecraft Server\minecraft_server.jar"', "C:\Users\Kristian\Desktop\Minecraft Server\", @SW_SHOW) 
    Sleep(1000) 
    WinSetTitle("C:\Windows\system32\java.exe", "", "MCS") 
    WinSetTitle("C:\Windows\SYSTEM32\java.exe", "", "MCS") 
    Global $hwnd = WinGetHandle("MCS") 
    Global $pid = WinGetProcess("MCS") 
    Sleep(1000) 
    Global $Server = "Running" 
    Sleep(10000) 
EndIf 
EndFunc ;==>Start 

Func Say() 
WinActivate($hwnd) 
Sleep(1000) 
ControlSend("MCS", "", $hwnd, 'say Hello') 
Sleep(1000) 
ControlSend("MCS", "", $hwnd, '{ENTER}') 
Sleep(1000) 
EndFunc ;==>Say 


Func Backup() 
$Counter += 1 
DirCreate("C:\ServerBackups") 
FileCopy("C:\Users\Kristian\Desktop\Minecraft Server\world\*.*", "C:\ServerBackups\") 
_FileRename_($s_Source, $s_Destination, $i_Flag = $time) 
EndFunc ;==>Backup 

Func _FileRename_($s_Source, $s_Destination, $i_Flag = $time) 
Local $i 
$i = FileMove($s_Source, $s_Destination, $i_Flag) 
Return $i 
EndFunc ;==>_FileRename_ 

Func Time() 
$min = @MIN 
$sec = @SEC 
$hour = @HOUR 
$time = $hour & ":" & $min & ":" & $sec 
Return $time 
EndFunc ;==>Time

我從提出的建議：

Global $Server, $pid, $time, $save = 0 
$Read = RegRead("HKEY_CURRENT_USER\Software\KnarCraft", "Version") 
$Path1 = @TempDir & "\versions.json" 
If Not InetGet("https://s3.amazonaws.com/Minecraft.Download/versions/versions.json", $Path1, 1, 0) = 0 Then $FF = FileOpen($Path1) 
$RF = FileReadLine($FF, 3) 
If $Read = $RF And FileExists("E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\minecraft_server.jar") Then 
Else 
    $ver1 = StringReplace($RF, ' "snapshot": "', "") 
    $ver = StringReplace($ver1, '",', "") 
    If InetGet('https://s3.amazonaws.com/Minecraft.Download/versions/' & $ver & "/minecraft_server." & $ver & ".jar", "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\minecraft_server.jar", 1, 0) = 1 Then RegWrite("HKEY_CURRENT_USER\Software\KnarCraft", "Version", "REG_SZ", $RF) 
EndIf 
FileDelete($Path1) 
$2 = Run('java -jar -Xmx3072M "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\minecraft_server.jar"', "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\", @SW_HIDE) 
If Not ProcessWait($2) = 0 Then WinSetTitle("C:\Windows\system32\java.exe", "", "MCS") 
Global $hwnd = WinGetHandle("MCS"), $pid = WinGetProcess("MCS"), $Server = "Running" 
While 1 
    AdlibRegister("Checktime", 1000) 
    If $Server = "Running" And ProcessWaitClose($pid) = 1 Then Exit 
WEnd 
Func Checktime() 
    If @MIN = 00 Or @MIN = 10 Or @MIN = 20 Or @MIN = 30 Or @MIN = 40 Or @MIN = 50 And @SEC = 00 Then ControlSend("MCS", "", $hwnd, 'say Report bugs and errors here: http://knar.world-servers.com/f6-problems-and-suggestions' & '{ENTER}') 
    If @MIN = 05 Or @MIN = 15 Or @MIN = 25 Or @MIN = 35 Or @MIN = 45 Or @MIN = 55 And @SEC = 00 Then ControlSend("MCS", "", $hwnd, 'say Warning: Server may be unstable' & '{ENTER}') 
    If @MIN = 37 And @SEC = 00 Then 
     If ControlSend("MCS", "", $hwnd, "say Commencing Backup" & '{ENTER}') = 1 Then RunWait(@ComSpec & ' /c xcopy /e /c /h /i /v /r /y /q "' & "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\world" & '" "' & "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\backup\" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & "-" & @MIN & "H" & "\world" & '"') 
    EndIf 
    If @HOUR = 20 And @MIN = 15 Then 
     If ControlSend("MCS", "", $hwnd, "say Commencing Backup" & '{ENTER}') = 1 Then RunWait(@ComSpec & ' /c xcopy /e /c /h /i /v /r /y /q "' & "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\world" & '" "' & "E:\Spill\Alle spill\Minecraft\Tools\YAMS\servers\7\backup\" & @MDAY & "-" & @MON & "-" & @YEAR & "-" & @HOUR & "-" & @MIN & "D" & "\world" & '"') 
    EndIf 
    If @HOUR = 00 And @MIN = 00 Then 
     If ControlSend("MCS", "", $hwnd, "say Restarting Server" & '{ENTER}' & "stop" & '{ENTER}') = 1 Then Shutdown(2) 
    EndIf 
    If @MIN = 00 Or @MIN = 05 Or @MIN = 10 Or @MIN = 15 Or @MIN = 20 Or @MIN = 25 Or @MIN = 30 Or @MIN = 35 Or @MIN = 40 Or @MIN = 45 Or @MIN = 50 Or @MIN = 55 And @SEC = 07 Then ControlSend("MCS", "", $hwnd, 'say Saving World' & '{ENTER}' & 'save-all' & '{ENTER}') 
EndFunc ;==>Checktime

來源

2013-10-16 EpicKnarvik97

檢查AdLibRegister功能。這將使您能夠設置特定的時間間隔來運行程序。 http://www.autoitscript.com/autoit3/docs/functions/AdlibRegister.htm –

也檢查出_NowTime（）函數。 http://www.autoitscript.com/autoit3/docs/libfunctions/_NowTime.htm –

我用了很多測試來找到正確的設置，但它最終奏效了。謝謝@JonBecher :) – EpicKnarvik97

只需更換

If $time = "20:15:00" Then Say()

與

If Time() = "20:15:00" Then Say()

乾杯

來源

2013-10-17 13:31:53 Milos

Autoit計劃的任務

回答

相關問題