[Ex] Neige tombant sur votre écran (en été ^^)

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
Avatar du membre
d3v1lm33
Niveau 2
Niveau 2
Messages : 28
Enregistré le : mer. 28 mai 2008 16:03
Status : Hors ligne

[Ex] Neige tombant sur votre écran (en été ^^)

#1

Message par d3v1lm33 »

Code : Tout sélectionner

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
; Script Start - Add your code below here
$image = "test.bmp"
$lol=GUICreate("Test",@desktopwidth,@desktopheight,0,0, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW,$WS_EX_LAYERED))
GUISetBkColor(0xFFFFFF)
GUISetState(@sw_show)
WinSetOnTop($lol,"",1)
$no = 5
Local $dx[$no],$xp[$no],$yp[$no],$am[$no],$stx[$no],$sty[$no],$img[$no]
$doc_width = @DesktopWidth
$doc_height = @DesktopHeight
For $i=0 to $no-1
    $dx[$i] = 0
    $xp[$i] = Random()*($doc_width-50)
    $yp[$i] = Random()*$doc_height
    $am[$i] = Random()*20
    $stx[$i] = 0.01 + Random()/10
    $sty[$i] = 0.7 + Random()
    $img[$i] = GUICtrlCreatePic($image,0,0,29,22)
Next
While 1
For $i=0 to $no-1
    $yp[$i] += $sty[$i]
    if ($yp[$i] > $doc_height-50) Then
    $dx[$i] = 0
    $xp[$i] = Random()*($doc_width-$am[$i]-30)
    $yp[$i] = 0
    $stx[$i] = 0.02 + Random()/10
    $sty[$i] = 0.7 + Random()
EndIf
$pos = MouseGetPos()
If $pos[0]<>MouseGetPos(0) And $pos[1]<>MouseGetPos(1) Then
    Exit
EndIf
GUICtrlSetPos($img[$i],$xp[$i]+$am[$i]*Sin($dx[$i]),$yp[$i])
    $dx[$i] += $stx[$i]
Next
WEnd
ca m'a pris un petit bout de temps donc c'est sorti en été
Venez ici poster les astuces que vous trouvez sur le web, nous les collectionnons !
ani
Niveau 11
Niveau 11
Messages : 1826
Enregistré le : lun. 23 juil. 2007 12:31
Localisation : Bureau
Status : Hors ligne

Re: [Ex] Neige tombant sur votre écran (en été ^^)

#2

Message par ani »

bonjour :)

il manque juste la neige ^^'

peux-tu ajouter l'image test.bmp ?
Avatar du membre
d3v1lm33
Niveau 2
Niveau 2
Messages : 28
Enregistré le : mer. 28 mai 2008 16:03
Status : Hors ligne

Re: [Ex] Neige tombant sur votre écran (en été ^^)

#3

Message par d3v1lm33 »

dsl d'avoir été si long je regardais pas ^^
Fichiers joints
c un gif faut le transformer en bmp (paint fera ça très bien!)
c un gif faut le transformer en bmp (paint fera ça très bien!)
sne.gif (256 Octets) Vu 4422 fois
Venez ici poster les astuces que vous trouvez sur le web, nous les collectionnons !
Avatar du membre
jbnh
Niveau 11
Niveau 11
Messages : 1932
Enregistré le : ven. 02 mai 2008 14:54
Localisation : Bruxelles
Status : Hors ligne

Re: [Ex] Neige tombant sur votre écran (en été ^^)

#4

Message par jbnh »

sympa, ça serait encore mieux si ça le faisait sur le bureau :)
Balise [..] devant votre requête en cours, [R] quand résolu | Pas de message concernant les bots !

Merci
Avatar du membre
d3v1lm33
Niveau 2
Niveau 2
Messages : 28
Enregistré le : mer. 28 mai 2008 16:03
Status : Hors ligne

Re: [Ex] Neige tombant sur votre écran (en été ^^)

#5

Message par d3v1lm33 »

En fait si tu regarde bien mon code, tu verra que c'est justement l'effet désiré, le style toolbox et Ex_layered font que la fenetre est transparente...
Venez ici poster les astuces que vous trouvez sur le web, nous les collectionnons !
tolf
Niveau 7
Niveau 7
Messages : 318
Enregistré le : ven. 15 févr. 2008 12:25
Localisation : Paris
Status : Hors ligne

Re: [Ex] Neige tombant sur votre écran (en été ^^)

#6

Message par tolf »

dommage que les flocons clignottent !
Lisez la documentation d'AutoIt en français (et participez svp :mrgreen:) !

Mes UDF :
[/i][/b]
Répondre