在开源上看到的一段代码，分享一下。

heroxianf · 发表于 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

haijie1223 · 发表于 2016-9-11 13:24:09

有卵用？

heroxianf · 发表于 2016-9-11 20:31:12

回复 2# haijie1223

hai大你要鼓励我冲刺高级会员的决心啊

haijie1223 · 发表于 2016-9-11 22:02:58

回复 3# heroxianf

好吧，不过这代码真的有点水

heroxianf · 发表于 2016-9-11 23:00:34

回复 4# haijie1223

这可是在 github 上找到的

haijie1223 · 发表于 2016-9-11 23:19:23

回复 5# heroxianf

水货，英雄不问出处。

zghwelcome · 发表于 2016-9-12 16:47:50

水水很健康

heroxianf · 发表于 2016-9-13 02:00:45

回复 7# zghwelcome

欢迎加入优化嘛，好不容易翻到一个。

ila · 发表于 2016-9-17 08:57:06

git上面充斥着为了找工作而上传的水码

liuhisense · 发表于 2020-9-25 13:25:15

这是啥垃圾代码

		自动登录	找回密码
密码			加入

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