本帖最后由 m765555 于 2011-1-11 12:04 编辑
各位高手们,帮我看一下这段代码:如果22行换成23到25的代码的话,为什么23-25的代码好像没有起到作用呢?如果不换的话,原代码有个漏洞,就是打开几个excel表的时候程序仍然在截图,不会自动退出,也就是我说的23-25行代码为什么换上之后没有效果,没有跳出最里面一层的循环呢?高手请指点一下,谢谢啊!!!#include <ScreenCapture.au3>
Opt("RunErrorsFatal", 0)
;(此命令说明程序运行时托盘上的图标不会显示)
Opt("TrayIconHide", 1)
;设置一个可调用某用户函数的热键。
;(此命令为按下f12程序退出)
Sleep(800)
While 1
Sleep(800)
If Not FileExists("01") Then
DirCreate("01")
EndIf
$list = WinList()
For $c=1 To $list[0][0]
If StringInStr($list[$c][0],"工作") Or StringInStr($list[$c][0],"学习") Or StringInStr($list[$c][0],"删除") Then
Local $hBmp,$i,$ii
$ii=9999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999
For $i=1 To $ii
; 全屏捕获
Sleep(800)
If Not ProcessExists("EXCEL.exe") Then ContinueLoop
;If StringInStr($list[$c][0],"工作") Or StringInStr($list[$c][0],"学习") Or StringInStr($list[$c][0],"删除") Then
;ContinueLoop
;EndIf
$hBmp = _ScreenCapture_Capture ("")
; 保存位图到文件
_ScreenCapture_SaveImage ("01"&""&$i &".jpg", $hBmp)
Sleep(800)
Next
Sleep(800)
EndIf
Next
Sleep(800)
|