分也没有啊??
Dim i
Do
i = hour(time)
If i = 7 Then
Call 停止按键精灵()
call 关机()
End If
Delay 60000
loop
Sub 停止按键精灵()
//你的停止脚本快捷键是哪个就用哪个。我的是F12
KeyPress "F12", 1
End Sub
Sub 关机()
Call Plugin.Sys.ExitOS(1)
End Sub
需要用二个插件,懒人托盘插件和懒人插件,论坛里找一下。
PutAttachment ".\plugin","*.dll"
Plugin.lxj_Icon.lxj_RefreshIcon
pid = Plugin.lxj_Plug.lxj_GetPidByPro ()
Plugin.lxj_Icon.lxj_HideIcon pid
Plugin.lxj_Plug.lxj_KillTask pid