SpalshScreen [solved]

[Unc3nZureD]

so i tried on an other computer.

it worked:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

HotKeySet("{ESC}", "On_Exit")

$sPicPath = "c:\asd.jpg"

$sDimensions = ""
$oShellApp = ObjCreate("shell.application")
If IsObj($oShellApp) Then
    Local $oDir = $oShellApp.NameSpace("C:\")
    If IsObj($oDir) Then
    Local $oFile = $oDir.Parsename("asd.jpg")
    If IsObj($oFile) Then
    If @OSBuild > 6000 Then
    $sDimensions = $oDir.GetDetailsOf($oFile, 31)
    ElseIf @OSVersion = "WIN_XP" Then
    $sDimensions = $oDir.GetDetailsOf($oFile, 26)
    EndIf
    EndIf
    EndIf
EndIf
If $sDimensions = "" Then Exit MsgBox(0, "Error", "Object creation failed")

$aDimensions = StringRegExp($sDimensions, "(?i)[\d]*x*[\d]", 3)
If Not IsArray($aDimensions) Then Exit MsgBox(0, "Error", "Cannot get image resolution!")

$hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP)
GUICtrlCreatePic($sPicPath, 0, 0, $aDimensions[0], $aDimensions[1])

Dim $Gui_Effects_in[10] = [0x00090000, 0x00040001, 0x00040002, 0x00040005, 0x00040004, 0x00040006, 0x00040008, 0x00040009, 0x0004000a, 0x00040010]
Dim $Gui_Effects_out[9] =    [0x00050001, 0x00050002, 0x00050004, 0x00050006, 0x00050005, 0x00050008, 0x00050009, 0x0005000a, 0x00050010]

$effect = Random(0, 1, 1)

If $effect = 1 Then
    WinSetTrans($hGUI, "", 0)
Else
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGUI, "int", 500, "short", $Gui_Effects_in[Random(1, 9, 1)])
EndIf
GUISetState()

If $effect = 1 Then
    For $i = 1 To 255 Step 2
        WinSetTrans($hGUI, "", $i)
        Sleep(10)
    Next
EndIf

Sleep(3500)

On_Exit()

Func On_Exit()
    $effect = Random(0, 1, 1)
    Switch $effect
        Case 0
            For $i = 255 To 0 Step -2
                WinSetTrans($hGUI, "", $i)
                Sleep(5)
            Next
        Case 1
            $hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP)
            DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGUI, "int", 500, "short", $Gui_Effects_out[Random(0, 8, 1)])
            Sleep(50)
    EndSwitch
    Exit
EndFunc

but if I start it on my computer then it write: object creation failed. ive got net framework 4, GeForce 9600 GT (driver and others installed), it can'T create that objeeecct aargh! -.-" i'm so angry. whyyyyy!? LoL really don'T know...

Edited June 23, 2010 by Unc3nZureD

[UEZ]

Did you tried also with another user on your computer?

BR,

UEZ

[Unc3nZureD]

another user? why? i don't understand why does the www.autoitscript.com user important for using the script? sorry I'm not pro I don't have other acc but i can do one.

[darkjohn20]

I think he means another user on the computer. As in a different login when you start up the computer.

[Unc3nZureD]

lol i read it again. really XDXD. i did an idiot question sorry XD. didn't tried. i'll create another one.

[Unc3nZureD]

i tried and worked! the problem was with the profile. thanks all help!

[Unc3nZureD]

ohh and i've got another question:

is that possible to let me do it always on top pic?

and thanks again.

PicShow (v2).au3

Edited June 24, 2010 by Unc3nZureD

[UEZ]

Sure, use

$hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP, $WS_EX_TOPMOST)

instead.

BR,

UEZ

[Unc3nZureD]

it still not always on top.

Edited June 24, 2010 by Unc3nZureD

[Unc3nZureD]

Sure, use

$hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP, $WS_EX_TOPMOST)

instead.

BR,

UEZ

I changed the line but it's still not on the top. why?

[UEZ]

If you have 2 windows which are both topmost, which one will be "the one" being topmost?

BR,

UEZ

[Unc3nZureD]

If you have 2 windows which are both topmost, which one will be "the one" being topmost?

BR,

UEZ

don'T really understand. i want to let it always on the top. So if I put a simple total commander or firefox, let it be visible.because if I activate the window, the script will be on the background. Is it possible?

(and sorry for bad english sometimes)

[GEOSoft]

What he means is this:

If another Window you have opened (not necessisarily one of yours) already has Always on Top set then there is no way to be sure that yours will be the one on top. Windows will get confused and make an arbitrary decision about which will really be top most.

[GEOSoft]

You also might want to try forcing it right after the GUISetState()

WinSetOnTop($hGUI) but even that may not work for the same reason outlined above.