ScreenSaver

« Older   Newer »
  Share  
bradipooso
CAT_IMG Posted on 26/7/2010, 16:45     +1   -1




Non sapevo che fare e mi sono ingegnato in questo coso nei 5 min di gianlu xd:

SPOILER (click to view)
#NoTrayIcon
#include <guiconstants.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>


$gui = GUICreate("BradSaver", @DesktopWidth, @DesktopHeight, 0, 0, $WS_MINIMIZEBOX+$WS_POPUP+$WS_EX_TRANSPARENT)
GUICtrlCreateLabel("Premi ESC per uscire", 0, 0, @DesktopWidth, @DesktopHeight, $SS_CENTER)
$var = @DesktopHeight - 25
$ciao = 0
$num = GUICtrlCreateLabel("[" & $ciao & "]", 5, $var)


$tempo = 10 ;qui imposti la velocitą degli spostamenti

$largo = @DesktopWidth -100
$alto = @DesktopHeight -100



$1 = Random(0, $largo, 1)
$2 = Random(0, $alto, 1)
$awesome = GUICtrlCreatePic("", $1 , $2, 100, 100)
GUICtrlSetState(-1,128)
GUICtrlSetImage(-1, @scriptdir&"\awesome.gif")

GUISetState()

GUISetBkColor(0xffffff)

$22 = Random(0, $largo, 1)
MouseMove($22, @DesktopHeight, 1)



While 1



$evento = GUIGetMsg()
Switch $evento
Case $GUI_EVENT_CLOSE
Exit
Case 1 = 1



$1 = Random(0, $largo, 1)
$2 = Random(0, $alto, 1)

GUICtrlSetPos ( $awesome, $1, $2, 100, 100)
$ciao = $ciao + 1
GUICtrlSetData($num, GUICtrlCreateLabel("[" & $ciao & "]", 5, $var) )
MouseMove($1, @DesktopHeight, $tempo)


EndSwitch
WEnd



Immagine :




Edited by bradipooso - 26/7/2010, 22:59
 
Top
0 replies since 26/7/2010, 16:45   103 views
  Share