SpalshScreen [solved]

[Unc3nZureD 13]

Hi, I want to do a little program. This program will show me a little picture in the middle of my screen.yes, I know the Splashimage command, but how can i remove the frame from it?(the X,minimize...). and if it possible can i put an Always on top attirbute? (like if any game or movie or any program is on it'll be ALWAYS on the top.

(pic attached)

Thanks!

Edited June 25, 2010 by Unc3nZureD

[UEZ 1,273]

Here a very simple Splash Screen example I made:

expandcollapse popup

#include <WindowsConstants.au3>
#include <GDIPlus.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Global $hWnd, $hGraphic, $file, $hImage
Global $iX, $iY

$file = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"

If Not FileExists($file) Then Exit MsgBox(16, "Error", $file & " not found!", 10)

_GDIPlus_Startup()

$hImage = _GDIPlus_ImageLoadFromFile($file)

$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)

$hWnd = GUICreate("Simple Splash Screen by UEZ", $iX, $iY, -1, -1, $WS_BORDER + $WS_SYSMENU + $WS_POPUP, $WS_EX_TOPMOST)
WinSetTrans($hWnd, "", 0)
GUISetState()

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)

GUIRegisterMsg(0x000F, "WM_PAINT") ;$WM_PAINT = 0x000F
GUIRegisterMsg(0x0014 , "WM_ERASEBKGND") ;WM_ERASEBKGND = 0x0014

GUISetOnEvent(-3, "_Exit")

For $i = 0 To 255 Step 2
    WinSetTrans($hWnd, "", $i)
    Sleep(15)
Next

Sleep(5000)

For $i = 255 To 0 Step -2
    WinSetTrans($hWnd, "", $i)
    Sleep(5)
Next

GUIDelete($hWnd)

_Exit()

Func _Exit()
    GUIRegisterMsg(0x000F, "")
    GUIRegisterMsg(0x0014, "")
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
EndFunc

Func WM_PAINT()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)
    Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_PAINT

Func WM_ERASEBKGND()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)
    Return "GUI_RUNDEFMSG"
EndFunc

BR,

UEZ

Edited June 17, 2010 by UEZ

[Unc3nZureD 13]

Here a very simple Splash Screen example I made:

expandcollapse popup

#include <WindowsConstants.au3>
#include <GDIPlus.au3>
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Global $hWnd, $hGraphic, $file, $hImage
Global $iX, $iY

$file = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"

_GDIPlus_Startup()

$hImage = _GDIPlus_ImageLoadFromFile($file)

$iX = _GDIPlus_ImageGetWidth($hImage)
$iY = _GDIPlus_ImageGetHeight($hImage)

$hWnd = GUICreate("Simple Splash Screen by UEZ", $iX, $iY, -1, -1, $WS_BORDER + $WS_SYSMENU + $WS_POPUP, $WS_EX_TOPMOST)
WinSetTrans($hWnd, "", 0)
GUISetState()

$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)

GUIRegisterMsg(0x000F, "WM_PAINT") ;$WM_PAINT = 0x000F
GUIRegisterMsg(0x0014 , "WM_ERASEBKGND") ;WM_ERASEBKGND = 0x0014

GUISetOnEvent(-3, "_Exit")

For $i = 0 To 255 Step 0.005
    WinSetTrans($hWnd, "", $i)
Next

Sleep(5000)

For $i = 255 To 0 Step -0.01
    WinSetTrans($hWnd, "", $i)
Next

GUIDelete($hWnd)

_Exit()

Func _Exit()
    GUIRegisterMsg(0x000F, "")
    GUIRegisterMsg(0x0014, "")
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_GraphicsDispose($hGraphic)
    _GDIPlus_Shutdown()
    Exit
EndFunc

Func WM_PAINT()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)
    Return "GUI_RUNDEFMSG"
EndFunc ;==>WM_PAINT

Func WM_ERASEBKGND()
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 0, 0, $iX, $iY)
    Return "GUI_RUNDEFMSG"
EndFunc

BR,

UEZ

Dunno why but it won't work for me.

If i start it nothing won't happen. (i changed the way of the pic)

[UEZ 1,273]

Can you add this line

If Not FileExists($file) Then Exit MsgBox(16, "Error", $file & " not found!", 10)

just after

$file = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"?

Do you get an em?

BR,

UEZ

[Unc3nZureD 13]

Yes, Still nothing.

[UEZ 1,273]

Yes, Still nothing.

Do you get the em: c:\Program Files\AutoIt3\Examples\GUI\logo4.gif not found?

If not, what is the output from SciTE when you run the script?

BR,

UEZ

[Unc3nZureD 13]

I don't get any messages, how can i see that output? ( D:\Program Files\AutoIt3\Examples\GUI\logo4.gif ) - But I use this (not the C:\)

[Unc3nZureD 13]

I tried to put a wrong 'address' then it write the error. if i put in a good path it doesn'T do nothing

[UEZ 1,273]

Same on a different image e.g. *.jpg?

BR,

UEZ

Edited June 17, 2010 by UEZ

[Unc3nZureD 13]

yes, it start for 0,1sec then it exit. is it works for u?

ohh and an other thing: I've got the beta version.

Edited June 17, 2010 by Unc3nZureD

[Unc3nZureD 13]

now I need to go to anywhere, after 1-1,5hour i'll come back. If u got any idea pls post it i'll try.

And thx for trying to help me.

[UEZ 1,273]

You should update AutoIt to latest version!

Yes, it is working properly on my notebook!

Can somebody confirm?

BR,

UEZ

Edited June 17, 2010 by UEZ

[Melba23 3,455]

UEZ,

Works fine for me. Vista 32 SP2, AutoIt 3.3.6.1.

M23

Edit:

If you want do it without GDI, you can find the image dimensions from the file properties like this:

expandcollapse popup

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

HotKeySet("{ESC}", "On_Exit")
Func On_Exit()
    Exit
EndFunc

$sPicPath = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"

$sDimensions = ""
$oShellApp = ObjCreate("shell.application")
If IsObj($oShellApp) Then
    Local $oDir = $oShellApp.NameSpace("C:\Program Files\AutoIt3\Examples\GUI")
    If IsObj($oDir) Then
        Local $oFile = $oDir.Parsename("logo4.gif")
        If IsObj($oFile) Then
            If @OSVersion = "WIN_VISTA" Or @OSVersion = "WIN_7" Then
                $sDimensions = $oDir.GetDetailsOf($oFile, 31)
            ElseIf @OSVersion = "WIN_XP" Then
                $sDimensions = $oDir.GetDetailsOf($oFile, 26)
            EndIf
        EndIf
    EndIf
EndIf
If $sDimensions = "" Then MsgBox(0, "Error", "Object creation failed")

$aDimensions = StringSplit(StringtrimLeft(StringTrimRight(StringStripWS($sDimensions,  8), 1), 1), "x")

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

GUICtrlCreatePic($sPicPath, 0, 0, $aDimensions[1], $aDimensions[2])

WinSetTrans($hGUI, "", 0)

GUISetState()

For $i = 1 To 255
    Sleep(20)
    WinSetTrans($hGUI, "", $i)
Next

While 1
    Sleep(10)
WEnd

Edited June 17, 2010 by Melba23

[sahsanu 28]

Can somebody confirm?

Confirmed, it is working fine on Windows XP SP3.

Edit: I also tested it on a Windows 7 Virtual Machine and works fine. Both with AutoIt 3.3.6.1

Edited June 17, 2010 by sahsanu

[GEOSoft 67]

Working fine on XP(SP3, Vista(SP2), Win 7

All 32 bit

[Unc3nZureD 13]

I deleted the ßeta version and i'll install it again. I hope it will work! UEZ, i saw your works and downloaded the analog meter. It's great. is that possible to let it play more then 1 music? but it's perfect!

Meba23 i tried your script but it write: Object creation failed. and an error message. (I attached it)

Edited June 17, 2010 by Unc3nZureD

[UEZ 1,273]

I deleted the ßeta version and i'll install it again. I hope it will work! UEZ, i saw your works and downloaded the analog meter. It's great. is that possible to let it play more then 1 music? but it's perfect!

Meba23 i tried your script but it write: Object creation failed. and an error message. (I attached it)

I never planned the Analog Meter to be a real music player! You have to drag'n'drop each mp3 manually! Maybe in the future...

I don't know why you cannot get it run properly!

Btw,

I modified Melba23's script a little bit:

expandcollapse popup

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

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

$sPicPath = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"

$sDimensions = ""
$oShellApp = ObjCreate("shell.application")
If IsObj($oShellApp) Then
    Local $oDir = $oShellApp.NameSpace("C:\Program Files\AutoIt3\Examples\GUI")
    If IsObj($oDir) Then
    Local $oFile = $oDir.Parsename("logo4.gif")
    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
            GUISetState(@SW_DISABLE, $hGUI)
            $hGUI = GUICreate("Test", $aDimensions[0], $aDimensions[1], Default, Default, $WS_POPUP, 0)
            DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hGUI, "int", 500, "short", $Gui_Effects_out[Random(0, 8, 1)])
            GUISetState(@SW_DISABLE, $hGUI)
    EndSwitch
    Exit
EndFunc

BR,

UEZ

Edited June 18, 2010 by UEZ

[Unc3nZureD 13]

I never planned the Analog Meter to be a real music player! You have to drag'n'drop each mp3 manually! Maybe in the future...

I don't know why you cannot get it run properly!

Btw,

I modified Melba23's script a little bit:

expandcollapse popup

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

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

$sPicPath = "c:\Program Files\AutoIt3\Examples\GUI\logo4.gif"

$sDimensions = ""
$oShellApp = ObjCreate("shell.application")
If IsObj($oShellApp) Then
    Local $oDir = $oShellApp.NameSpace("C:\Program Files\AutoIt3\Examples\GUI")
    If IsObj($oDir) Then
    Local $oFile = $oDir.Parsename("logo4.gif")
    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

BR,

UEZ

Object creation failed but now i don'T get the error msg don't know what the hell happaned with my cmoputer

[Unc3nZureD 13]

hmm the promblem still didn't solved. no1 dunno why is it don't wanna work for me? because i tried everything. is there any problem with the sources? the path is good, the script still exit after i start it. nothing don'T happens.

[UEZ 1,273]

Can you try the code on a different computer? Or try it with another user id, maybe profile problem.

BR,

UEZ