What's wrong with this script ?

[Mark van Zon]

When he is in paint, and he press: ctrl+v then there is not coming a picture...

Global $Paused
HotKeySet("{PRINTSCREEN}", "PrintScreen")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func PrintScreen()
    Sleep(3000)
        $answer = MsgBox(4, "Print Screen Function", "Do you want to save your Photo ?")
    If $answer = 7 Then
        MsgBox(0, "Goodbye", "Okey, then not, speak you later !")
    EndIf
    Run("C:\Windows\System32\mspaint.exe")
    WinWait("naamloos - Paint")
    TrayTip("Paint", "Paint succesfull started !", 5)
    Sleep(2000)
    Send("{CTRLDOWN}")
    Sleep(250)
    Send("V")
    Sleep(250)
    Send("{CTRLUP}")
    Sleep(1250)
    Send("{CTRLDOWN}")
    Sleep(250)
    Send("S")
    Sleep(250)
    Send("{CTRLUP}")
    Sleep(250)
EndFunc

[Valuater]

Global $Paused
HotKeySet("{F9}", "PrintScreen")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func PrintScreen()
    Send("{PRINTSCREEN}")
        $answer = MsgBox(4, "Print Screen Function", "Do you want to save your Photo ?")
    If $answer = 7 Then
        MsgBox(0, "Goodbye", "Okey, then not, speak you later !")
    EndIf
    Run("C:\Windows\System32\mspaint.exe")
    WinWaitActive("")
    TrayTip("Paint", "Paint succesfull started !", 5)
    Sleep(2000)
    Send("^v")
    Sleep(2000)
    Send("^s")
    Sleep(250)
EndFunc

8)

[rbhkamal]

Global $count = 0
HotKeySet("{PRINTSCREEN}", "PrintScreen")

;;;; Body of program would go here;;;;
While 1
    Sleep(100)
WEnd
;;;;;;;;

Func PrintScreen()
    If MsgBox(4, "Print Screen Function", "Do you want to save your Photo ?") = 7 Then
        MsgBox(0, "Goodbye", "Okey, then not, speak you later !")
        Return
    EndIf
    HotKeySet("{PRINTSCREEN}")
    Send("{PRINTSCREEN}")
    TrayTip("Paint", "Paint started !", 5)
    Run("C:\Windows\System32\mspaint.exe")
    WinWait("untitled - Paint")
    If Not WinActive( "untitled - Paint" ) Then
        WinActivate( "untitled - Paint" )
    EndIf
    WinWaitActive( "untitled - Paint" )
    Sleep(300)
    If ControlSend( "untitled - Paint" , '' , 'Afx:1000000:81' , "{CTRLDOWN}v{CTRLUP}" ) = 1 Then
        $count += 1
        WinSetTitle( "untitled - Paint" , '' , "Picture_"&$count )
        TrayTip("Paint", "Done!", 5)
    Else
        TrayTip("Paint", "Error!", 3)
    EndIf
    HotKeySet("{PRINTSCREEN}", "PrintScreen")
EndFunc

Edit: lol ... I thought I was going to be the first one.

Edited June 28, 2006 by rbhkamal