[EX] Courir sur l'écran
Posté : lun. 16 juin 2008 21:25
'soir !
Edit Tlem : Script d'origine
Ce script fonctionne avec la dernière version d'Autoit.
Ne pas hésiter à changer le "Sleep(xxx)" ou le "+= 3" pour ajuster à la vitesse de la machine.
Edit Tlem : Script d'origine
Code : Tout sélectionner
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
$HWnd = GUICreate("GIFanime", 105, 130, -110, -1, $WS_POPUP,$WS_EX_LAYERED)
GUICtrlCreatePic(@ScriptDir & "\vaca19.gif",-1,-1, 105, 130, $SS_SUNKEN)
GUISetState()
$obj = ObjCreate("Gif89.Gif89.1")
GUICtrlCreateObj( $obj, 0, 0 , 105, 130)
$obj.filename = @ScriptDir & "\vaca19.gif"
$n=-105
while $n<@DesktopWidth+105
$n += 2
WinMove($HWnd,"",$n,200)
Sleep(13)
WEnd
$obj = 0
ExitNe pas hésiter à changer le "Sleep(xxx)" ou le "+= 3" pour ajuster à la vitesse de la machine.