Re tout le monde ; D

rem ============================================================================
rem          papydall teste la user32.dll
rem ============================================================================

Init()
Animate_Windows()
Clignoter()
La_Souris_Se_Balade_Toute_Seule()
Redim_Deplace_Form()
dll_off
Fermer_tout()
end
rem ============================================================================
SUB Init()
   full_space 0
   dll_on "user32"
END_SUB
rem ============================================================================
' Ouvrir et fermer les fenêtres de manière originale (AnimateWindow de user32)
' Selon les paramètres, la fonction AnimateWindow masque(H10000) ou affiche (H2000)
' la fenêtre avec des effets spéciaux (par le centre H10, de haut en bas H4,
' de gauche à droite H2, de bas en haut H8, de droit à gauche  H1)

SUB Animate_Windows()
   dim_local ret%, hwnd%,temps%
   caption 0,"Ouverure originale d'une fenêtre"
   color 0,0,255,255
   hwnd% = handle(0) : temps% = 500+500

   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("10"),hex("10000")))
   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("10"),hex("20000")))

   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("4"),hex("10000")))
   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("2"),hex("20000")))

   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("8"),hex("10000")))
   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("1"),hex("20000")))

   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("10"),hex("10000")))
   ret% = dll_call3("AnimateWindow",hwnd%,temps%, bin_or(hex("10"),hex("20000")))
END_SUB
rem ============================================================================
'  Faire clignoter la barre de menu de la fenêtre
SUB Clignoter()
   dim_local ret%, hwnd%,i%,oui%
'   form 10 : top 10,150 : left 10,100 :
   caption 0,"Je clignote !"
   color 0,0,255,255
   hwnd% = handle(0)
   oui% = 1 : ' = 0 --> ne pas clignoter , non 0 --> clignoter
   for i% = 1 to 50
       ret% = dll_call2("FlashWindow",hwnd%,oui%) : pause 50
   next i%

   caption 0,"Je ne clignote plus !"
END_SUB
rem ============================================================================
' Redimensionner et déplacer une fenêtre
SUB Redim_Deplace_Form()
   dim_local ret%, hwnd%,i%,hauteur%,largeur%
   form 10 : color 10,0,255,255 : hwnd% = handle(10)
   alpha 20 : parent 20,10 : font_bold 20 : font_size 20,12
   caption 20,"Une fenêtre qui se déplace toute seule"
   hauteur% = 100 : largeur% = 400  : ' dimension de la fenêtre
   for i% = 1 to 900
       ret% = dll_call6("MoveWindow",hwnd%,int(screen_x/2+300*sin(i%*6.28/500)),int(screen_y/2+200*cos(i%*6.28/500)),largeur%,hauteur%,1)
       pause 10
   next i%
END_SUB
rem ============================================================================
SUB La_Souris_Se_Balade_Toute_Seule()
   dim_local x%,y%,A7endroit%  : ' original comme nom de variable!
   caption 0,"La_Souris_Se_Balade_Toute_Seule et pond des cercles !"
   2d_fill_color 255,0,0
   for x% = 100 to screen_x -100 step 100
       for y% = 100 to screen_y step 100
           A7endroit% = dll_call2("SetCursorPos",x%,y%) : ' Positionner la souris en x%,y%
           2d_circle x%,y%,20 :  ' Tracer un cercle plein à la position de la souris
           pause 100
       next y%
   next x%
   A7endroit% = dll_call2("SetCursorPos",screen_x/2,screen_y/2) :' Positionner la souris au milieu de l'écran
   2d_circle screen_x/2,screen_y/2,50
   caption 0,"La souris est au centre de l'écran"
END_SUB
rem ============================================================================
SUB Fermer_tout()
   dim_local y
   caption 0,"On ferme la boutique, lentement mais sûrement !!!"
   delete 10
   for y = screen_y to 0 step -10
       height 0, y : pause 100
   next y
   terminate
END_SUB
rem ============================================================================

Declare Function FlashWindow Lib "user32" ( _
                 ByVal hWnd As Long, _
                 ByVal bInvert As Long) As Long

dll_on "user32.dll"
Clignoter()
end
'  Faire clignoter la barre de menu de la fenêtre
SUB Clignoter()
    dim_local ret%, hwnd%,i%,oui%
    hwnd% = handle(0)
    oui% = 1 : ' = 0 --> ne pas clignoter , non 0 --> clignoter
    for i% = 1 to 50
        ret% = dll_call2("FlashWindow",hwnd%,oui%) : pause 50
    next i%
    caption 0,"Je ne clignote plus !"
END_SUB
rem ============================================================================

Declare Function SetCursorPos Lib "user32" ( _
                 ByVal x As Long, _
                 ByVal y As Long) As Long

dll_on "user32.dll"
Position_Souris(100,100) :' Positionner le curseur de la souris en 100,100
end
rem ============================================================================

SUB Position_Souris(x%,y%)
    dim_local position%
    position% = dll_call2("SetCursorPos",x%,y%)
END_SUB
rem ============================================================================