Gibbz Posted October 6, 2012 Share Posted October 6, 2012 Just A Simple Program To Get A Timer ScreenShot expandcollapse popup#include _ScreenCapture_SetJPGQuality(100) $7 = Random(111,999,1) MsgBox(0, "OAC", "Created By MrOmar") $1 = InputBox("OAC", "Please Enter The Username Here") $2 = InputBox("OAC", "Please Enter The Password Here", "", "*") If $2 = "OAC" Then MsgBox(0, "OAC", "Welcome" & $1) $4 = InputBox("OAC", "Whats The Extinsion Your Wana Pics Be ?" & @LF& "1 = jpg" &@LF& "2 = Png" &@LF& "Note : If You Didnt Choose Any, Photos Will Be Saved As PNG") If $4 = "1" Then $3 = InputBox("OAC", "Pls Enter The Timer" & @LF & "3 = 3mins" & @LF & "5 = 5mins" & @LF & "10 = 10mins") Break(0) If $3 = "3" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") EndIf If $3 = "5" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") EndIf If $3 = "10" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".jpg") Sleep(1000000) EndIf Else Exit EndIf Else $6 = InputBox("OAC", "Pls Enter The Timer" & @LF & "3 = 3mins" & @LF & "5 = 5mins" & @LF & "10 = 10mins") Break(0) If $6 = "3" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(300000) EndIf If $6 = "5" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(500000) EndIf If $6 = "10" Then _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) _ScreenCapture_Capture(@DesktopDir & "\"&$7&".png") Sleep(1000000) EndIf EndIf Link to comment Share on other sites More sharing options...
JScript Posted October 8, 2012 Share Posted October 8, 2012 More clean: expandcollapse popup#include <ScreenCapture.au3> _ScreenCapture_SetJPGQuality(100) $7 = Random(111, 999, 1) MsgBox(0, "OAC", "Created By MrOmar") $1 = InputBox("OAC", "Please Enter The Username Here") $2 = InputBox("OAC", "Please Enter The Password Here", "", "*") $iSleep = 3 $sExt = ".jpg" Switch $2 Case "OAC" MsgBox(0, "OAC", "Welcome" & $1) $4 = InputBox("OAC", "Whats The Extinsion Your Wana Pics Be ?" & @LF & "1 = jpg" & @LF & "2 = Png" & @LF & "Note : If You Didnt Choose Any, Photos Will Be Saved As PNG") If $4 = "1" Then $3 = InputBox("OAC", "Pls Enter The Timer" & @LF & "3 = 3mins" & @LF & "5 = 5mins" & @LF & "10 = 10mins") Else Exit EndIf Case Else $sExt = ".png" $3 = InputBox("OAC", "Pls Enter The Timer" & @LF & "3 = 3mins" & @LF & "5 = 5mins" & @LF & "10 = 10mins") EndSwitch Break(0) Switch $3 Case 3 $iSleep = 300000 Case 5 $iSleep = 500000 Case 10 $iSleep = 1000000 EndSwitch For $i = 1 To 10 _ScreenCapture_Capture(@DesktopDir & "" & $7 & $sExt) Sleep($iSleep) Next JS http://forum.autoitbrasil.com/ (AutoIt v3 Brazil!!!) Somewhere Out ThereJames Ingram Download Dropbox - Simplify your life!Your virtual HD wherever you go, anywhere! Link to comment Share on other sites More sharing options...
Gibbz Posted October 8, 2012 Author Share Posted October 8, 2012 lol thnx i think i was very stupid in the original script XDD Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now