tangyi90 发表于 2012-9-6 16:46:41

这个代码怎么到时间不执行啊

#include<Date.au3>
Opt("TrayAutoPause",0);单击不暂停脚本
Opt("TrayIconDebug",1);显示调试信息
if Not FileExists("\电影自动入库\config.ini") Then
IniWrite ( "config.ini", "电影入库", "路径", "" )
IniWrite("config.ini","入库时间","时间","")
EndIf
While 1
Local $systemtime,$updatatime
   $time=IniRead("config.ini","入库时间","时间","NotFound")
   $updatatime=$time
   $systemtime=_NowTime(5)
If $systemtime > $updatatime Then
   if Not ProcessExists("节目管理器") Then
   Sleep("2000")
   Run("D:\xbsmov\节目管理器.exe")
EndIf
EndIf
WinWait("影视管理工具")
Opt("WinDetectHiddenText",1);指定是否让隐藏的窗口文本也能被窗口匹配函数"看见"(可用于窗口文本参数).
WinWait("影视管理工具   ACCESS:1","当前版本:4.0(2012061")
If Not WinActive("影视管理工具   ACCESS:1","当前版本:4.0(2012061") Then WinActivate("影视管理工具   ACCESS:1","当前版本:4.0(2012061")
WinWaitActive("影视管理工具   ACCESS:1","当前版本:4.0(2012061")
ControlClick("影视管理工具   ACCESS:1", "", "","left","1","174,65")
Sleep(50)
$route=IniRead("config.ini","电影入库","路径","NotFound")
ControlSetText("入库/采集等批量操作","","Edit1",$route)
ControlClick("入库/采集等批量操作","","")
if WinWait("入库/采集等批量操作","入库完成") Then
WinActivate("入库/采集等批量操作","入库完成")
   send("!{F4}")
EndIf   
Sleep("500")
if WinWait("影视管理工具","当前版本:4.0(20120616)   最新版本:4.0(20120616)") Then
WinActivate("影视管理工具","当前版本:4.0(20120616)   最新版本:4.0(20120616)")
send("!{F4}")
EndIf
WEnd

当时可以入库,等到第2天,就不行了....

半芯竹 发表于 2012-9-6 22:16:45

如果你是加启动项的,先把需要加路径的地方,加上绝对路径吧。
如if Not FileExists("\电影自动入库\config.ini") Then
IniWrite ( "config.ini", "电影入库", "路径", "" )
IniWrite("config.ini","入库时间","时间","")
还有就是
if Not ProcessExists("节目管理器") Then
加个.exe

tangyi90 发表于 2012-9-7 10:20:49

回复 2# 半芯竹
问题是这个程序死可以执行的都测试过了,
现在的问题就是,在启动这程序之后,时间隔了太久,好像就不执行了...

大叔 发表于 2012-9-7 15:35:13

设置程序执行完之后退出。然后任务计划设置隔多长时间运行一次试试。原来我有个循环程序也是这问题。 调试测试怎么都OK运行一段时间以后就不行了。 再运行也不好使。就重起管用。 我就是这样做的。原因高手不告诉我 = =。
页: [1]
查看完整版本: 这个代码怎么到时间不执行啊