论坛 › 『 作品展览 』 › 在开源上看到的一段代码，分享一下。

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


    {:face (396):}hai大你要鼓励我冲刺高级会员的决心啊

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

回复 3# heroxianf


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

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

回复 4# haijie1223


    这可是在 github 上找到的{:face (197):}

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

这是啥垃圾代码

查看完整版本: 在开源上看到的一段代码，分享一下。