找回密码
 加入
搜索
查看: 3120|回复: 9

[转贴] 在开源上看到的一段代码,分享一下。

[复制链接]
发表于 2016-9-11 12:25:37 | 显示全部楼层 |阅读模式
#include <ScreenCapture.au3>

CaptureScreen()

Func CaptureScreen()
   ; Capture full screen
   Dim $i=0

   If Not FileExists (@MyDocumentsDir & "\Screenshot") Then
          DirCreate(@MyDocumentsDir & "\Screenshot")
   EndIf

   While True
          Sleep(3000)
          _ScreenCapture_Capture(@MyDocumentsDir & "\Screenshot\screen_"& $i &".png")
          $i=$i+1
          If $i > 20 Then $i=0
   WEnd
EndFunc   ;==>Example
发表于 2016-9-11 13:24:09 | 显示全部楼层
有卵用?
 楼主| 发表于 2016-9-11 20:31:12 | 显示全部楼层
回复 2# haijie1223


      hai大你要鼓励我  冲刺高级会员的决心啊
发表于 2016-9-11 22:02:58 | 显示全部楼层
回复 3# heroxianf


    好吧,不过这代码真的有点水
 楼主| 发表于 2016-9-11 23:00:34 | 显示全部楼层
回复 4# haijie1223


    这可是在 github 上找到的
发表于 2016-9-11 23:19:23 | 显示全部楼层
回复 5# heroxianf


    水货,英雄不问出处。
发表于 2016-9-12 16:47:50 | 显示全部楼层
水水很健康
 楼主| 发表于 2016-9-13 02:00:45 | 显示全部楼层
回复 7# zghwelcome


    欢迎加入优化嘛,好不容易翻到一个。
发表于 2016-9-17 08:57:06 | 显示全部楼层
git上面充斥着为了找工作而上传的水码
发表于 2020-9-25 13:25:15 | 显示全部楼层
这是啥垃圾代码
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-28 22:08 , Processed in 0.072269 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表