Jump to content
Sign in to follow this  
Gibbz

OAC Screen Shooter

Recommended Posts

Gibbz

Just A Simple Program To Get A Timer ScreenShot

#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

Share this post


Link to post
Share on other sites
JScript

More clean:

#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

somewh10.png

dropbo10.pngDownload Dropbox - Simplify your life!
Your virtual HD wherever you go, anywhere!

Share this post


Link to post
Share on other sites
Gibbz

lol thnx

i think i was very stupid in the original script XDD

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×