Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //此程式碼適用於"按鍵精靈2014",需要新增伺服器開啟與電腦關閉捷徑
- timedelay = 105
- Dim TimeNow
- Do
- Delay 1000
- Call Time1
- If TimeNow = "23:50" //確定時間到23:50關閉server
- //提醒
- Call Cmd
- Call Serveroff
- //關閉server
- Call Cmd
- SayString "/stop" //輸入/stop 後關閉server
- Delay 1000
- KeyPress "Enter", 1
- Delay 30000
- RunApp "C:\Windows\System32\shutdown.exe /r /t 0"
- EndScript //結束腳本
- End If
- loop
- //副程式
- Sub Cmd
- hwnd = Plugin.Window.find(3,"C:\WINDOWS\system32\cmd.exe")
- zhwnd = Plugin.Window.findex(hwnd, 0, "ConsoleWindowClass", 0)
- TracePrint zhwnd
- Call Plugin.Window.Active(zHwnd) //點開cmd視窗
- End Sub
- Sub Time1 ()
- h=Hour(time)
- m=Minute(time)
- s=Second(time)
- TimeNow = h &":" & m
- End Sub
- Sub Serveroff
- SayString "/say 伺服器自動重開機模式"
- Delay 100
- KeyPress "Enter", 1
- SayString "/say 預計10分鐘內 自動開啟"
- Delay 100
- KeyPress "Enter", 1
- timedelay = 105
- for 10
- SayString "/say 伺服器 "
- KeyPress timedelay, 1
- SayString " 秒後關閉"
- KeyPress "Enter", 1
- timedelay = timedelay - 1
- SayString "/say 伺服器關閉 "
- KeyPress "Enter", 1
- Delay 1000
- Next
- SayString "/say 伺服器關閉 "
- KeyPress "Enter", 1
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment