AutoIt Français

Nouveau forum : http://www.autoitscript.fr/
 
AccueilFAQRechercherS'enregistrerMembresGroupesConnexionhttp://www.autoitscript.fr

Partagez | 
 

 Bonne Année 2007

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Michel Claveau
Membre avancé


Nombre de messages : 61
Date d'inscription : 24/10/2006

MessageSujet: Bonne Année 2007   2006-12-31, 23:07

Le script compilé, exécutable est dispo ici :
[url=http://mclaveau.com/gvrac/2007.exe]http://mclaveau.com/gvrac/2007.exe[/url]
Il affiche 2007 durant 8 secondes.
Le code-source (nécessite un dessin contenu dans l'exécutable) :
[code]#NoTrayIcon
#include <GUIConstants.au3>
#include <Constants.au3>
FileInstall(".\2007.bmp", "C:\2007.bmp")
FileInstall(".\BMP2RGN.dll", "C:\windows\system32\BMP2RGN.dll")
$x=100
$y=80
$gui = GUICreate("", 537, 227, $x, $y, $WS_POPUP)
GUISetBkColor (0x000000)
$graf=GUICtrlCreatePic("C:\2007.bmp", 0, 0, 537, 227)
$a = DLLCall(".\BMP2RGN.dll","int","BMP2RGN", _
"str","C:\2007.bmp", _
"int",0, _
"int",0, _
"int",0)
SetWindowRgn($gui, $a[0])
GUISetState()
$duree=8
While 1
$msg = GUIGetMsg()
if $msg=$graf then
$duree=0
ExitLoop
endif
if $duree>0 then
$duree=$duree-1
sleep(1000)
else
ExitLoop
endif
wend
GUIDelete()
exit
Func SetWindowRgn($h_win, $rgn)
DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc
[/code]

Bonne année 2007 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Michel Claveau
Membre avancé


Nombre de messages : 61
Date d'inscription : 24/10/2006

MessageSujet: Re: Bonne Année 2007   2007-01-12, 03:13

Bonsoir !


Mon superbe petit script n'a pas l'air d'avoir eu beaucoup de succès.

Pourtant, sur certains newsgroups, ça a impressionné quelques geeks...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Crad-Vador
Membre


Nombre de messages : 23
Age : 30
Localisation : Clermont-Ferrand
Date d'inscription : 04/01/2007

MessageSujet: Re: Bonne Année 2007   2007-01-12, 19:13

En même temps c'est un script qui s'utilise une fois l'an...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.crad-vador.net
TerminAdminAtor
Admin
Admin


Nombre de messages : 234
Date d'inscription : 22/10/2006

MessageSujet: Re: Bonne Année 2007   2007-01-14, 20:35

les includes marchent enfin!!!
[code]#include <GUIConstants.au3>[/code]
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://autoit-fr.realbb.net
Contenu sponsorisé




MessageSujet: Re: Bonne Année 2007   Aujourd'hui à 16:30

Revenir en haut Aller en bas
 
Bonne Année 2007
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Bonne année 2009 !!!
» Bonne année 2009
» PowerPoint 2007 SP2 - 2 questions qui *semblent* simples
» bonjour et bonne année !
» Bonne année à tous

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
AutoIt Français :: AutoIt v3 :: Scripts-
Sauter vers: