OAC Screen Shooter

[Gibbz]

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

[JScript]

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

[Gibbz]

lol thnx

i think i was very stupid in the original script XDD