XProfan

Título de la ventana "Hallo sólo veces... Yo blanco sí no si Sie lo wussten, aber: ..."
CLS
Def AnimateWindow(3) !"user32.dll","AnimateWindow"
'{To show or hide a window without special effects, use ShowWindow.
' Avoid animating a window that has a drop shadow because it produces visually distracting, jerky animations.
Declarar dwtime&,dwflags&
var AW_ACTIVATE&=$00020000'Activates the window. Do not use this value with AW_HIDE
var AW_BLEND&   =$00080000'Fade effect. This flag can be used only if hwnd is a top-level window.
var AW_CENTER&  =$00000010'Makes the window appear to collapse inward if AW_HIDE is used
' or expand outward if the AW_HIDE is not used. The various direction flags have no effect.
var AW_HIDE&    =$00010000'Hides the window. By default, the window is shown.
var AW_HOR_POSITIVE&=$00000001'Animates the window from left to right. This flag can be used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
var AW_HOR_NEGATIVE&=$00000002'Animates the window from right to left. This flag can be used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
'You can combine AW_HOR_POSITIVE or AW_HOR_NEGATIVE with AW_VER_POSITIVE
'or AW_VER_NEGATIVE to animate a window diagonally.
var AW_SLIDE&   =$00040000'Uses slide animation. By default, roll animation is used.
' When using slide or roll animation, you must specify the direction. It can be either
' AW_HOR_POSITIVE, AW_HOR_NEGATIVE, AW_VER_POSITIVE, or AW_VER_NEGATIVE.
' This flag is ignored when used with AW_CENTER.
var AW_VER_POSITIVE&=$00000004'Animates the window from top to bottom. This flag can be used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
var AW_VER_NEGATIVE&=$00000008'Animates the window from bottom to top. This flag can be used with
' roll or slide animation. It is ignored when used with AW_CENTER or AW_BLEND.
'You can combine AW_HOR_POSITIVE or AW_HOR_NEGATIVE with AW_VER_POSITIVE
'or AW_VER_NEGATIVE to animate a window diagonally.
'RESULT (BOOLEAN):
' If the function succeeds, the volver value is nonzero.
' If the function fails, the volver value is zero.
' The function voluntad fail en the following situations:
'    If the window is already visible and you are trying to show the window.
'    If the window is already hidden  and you are trying to hide the window.
'    If there is no direction specified for the slide or roll animation.
'    When trying to animate a child window with AW_BLEND.
'    If the thread does not own the window. Note that, en this caso, AnimateWindow
'    fails but GetLastError returns ERROR_SUCCESS.
' To get extended error information, call the GetLastError function.
' The window procedures for the window and its child windows should handle any
' WM_PRINT or WM_PRINTCLIENT messages. Diálogo boxes, controls, and common controls
' already handle WM_PRINTCLIENT. The default window procedure already handles WM_PRINT.
' If a child window is displayed partially clipped, when it is animated
' it voluntad have holes where it is clipped.
'} AnimateWindow supports RTL (Run-time library) windows.
usefont "ARIAL",140,90,1,0,0
drawtext 100,100,"1"
waitinput 2000
dwtime&=3000 : dwflags&= 0 \
\'| AW_ACTIVATE& \'not together with aw_hide
| AW_BLEND& \'Fade
| AW_CENTER& \'collapse inward / expand outward
| AW_HIDE& \
| AW_HOR_POSITIVE& \
\'| AW_HOR_NEGATIVE&
\'| AW_SLIDE& \
\'| AW_VER_POSITIVE& \
| AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"2":waitinput 2000
dwtime&=3000 : dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 1*AW_BLEND& | 1*AW_CENTER& \
| 0*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"3":waitinput 2000
dwtime&=3000 : dwflags& = 0*AW_ACTIVATE& | 1*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"4":waitinput 2000
dwtime&=3000 : dwflags& = 0*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 0*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"5":waitinput 2000:dwtime&=3000
dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 1*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"6":waitinput 2000:dwtime&=3000
dwflags& = 0*AW_ACTIVATE& | 1*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 1*AW_SLIDE& | 1*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 1*AW_VER_POSITIVE& | 0*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"7":waitinput 2000:dwtime&=3000
dwflags& = 1*AW_ACTIVATE& | 0*AW_HIDE& | 0*AW_BLEND& | 0*AW_CENTER& \
| 0*AW_SLIDE& | 0*AW_HOR_POSITIVE& | 0*AW_HOR_NEGATIVE& | 0*AW_VER_POSITIVE& | 1*AW_VER_NEGATIVE&
imprimir animatewindow(%hwnd,dwtime&,dwflags&)
usefont "ARIAL",140,90,1,0,0:drawtext 100,100,"OK!":waitinput 2000
end