|
|
Agli inizi
- Group:
- Member
- Posts:
- 15
- Reputazione:
- +1
- Status:
| |
| qualche tempo fa ho giocato con i colori in autoit dopo aver compilato il programma gli si deve cambiare l'estensione .exe in .scr e metterlo nella cartella C:windws, cosi da trovarlo quando si imposta lo screen saver nell'apposito menu... #include <guiconstantsex.au3>
#include <windowsconstants.au3>
Global $r,$v,$b
$pos = MouseGetPos()
$posv0=$pos[0]
$poso0=$pos[1]
MouseMove (@DesktopWidth, @DesktopHeight-1,0)
$pos = MouseGetPos()
$posv1=$pos[0]
$poso1=$pos[1]
$r = hex("0",2)
$v = hex("0",2)
$b = hex("0",2)
$gui=GUICreate("",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUPWINDOW);
GUISetState()
GUISetBkColor(0x000000)
HotKeySet("{ESC}", "Termina")
addrosso()
While 1
pausa()
addverde()
subrosso()
pausa()
addblu_subverde()
pausa()
addrosso2()
pausa()
subblu()
WEnd
Func addrosso() ;
for $x= 0 to 255 ;+ rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc
Func addrosso2() ;
for $x= 0 to 255 ;+ rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
if $x=0x7f Then pausa()
Next
EndFunc
Func subrosso() ;
for $x= 255 to 0 Step -1 ;- rosso
ritardo()
$r = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc
Func addverde() ;
for $x= 0 to 150 ;+ verde
ritardo()
$v = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
if $x=0x6f Then pausa() ;arancio
Next
pausa()
for $x= 150 to 255 ;+ verde
ritardo()
$v = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc
Func subblu() ;
for $x= 255 to 0 Step -1 ;- blu
ritardo()
$b = hex($x,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc
Func addblu_subverde() ;
$y=255
for $x= 0 to 255 ;+ blu
if not $y=0 then $y=$y-1
ritardo()
$b = hex($x,2)
$v = hex($y,2)
$color = "0x"&$r&$v&$b
GUISetBkColor($color)
Next
EndFunc
Func Termina()
MouseMove ($posv0,$poso0,0)
Exit
EndFunc
Func pausa()
$pos = MouseGetPos()
$posv2=$pos[0]
$poso2=$pos[1]
if $posv1<>$posv2 Then Termina()
if $poso1<>$poso2 Then Termina()
Sleep(0)
EndFunc
Func ritardo()
$pos = MouseGetPos()
$posv2= $pos[0]
$poso2= $pos[1]
if $posv1<>$posv2 Then Termina()
if $poso1<>$poso2 Then Termina()
Sleep(1)
EndFunc ho poi scritto l'instasller cosi da rendere + semplice l'installazione ai non addetti ai lavori.... #include <progressconstants.au3>
#include <windowsconstants.au3>
#include <guiconstantsex.au3>
$x= MsgBox(4,"Attenzione!","Installare screensaver color???")
$Form1 = GUICreate("Install screensaver...", 326, 51, @DesktopWidth/2-150, @DesktopHeight/2-80)
$Progressbar1 = GUICtrlCreateProgress(0, 0, 321, 49)
GUICtrlSetColor(-1, 32250)
if $x=6 Then
GUISetState(@SW_SHOW,$Form1)
$a= FileInstall ("D:\forbidden\color.scr", @WindowsDir&"\color.scr",1); <----- Attenzione inserire il percorso corretto dell'eseguibile color.scr
For $b=0 to 100 Step 1
GUICtrlSetData($progressbar1, $b)
Sleep(30)
Next
GUISetState(@SW_HIDE,$Form1)
Sleep(500)
if $a= 1 Then MsgBox(0,"Bene!"," Screeen-saver correttamente installato!"&@LF&@LF&"Adesso impostalo su proprietą dello schermo!"&@LF&@LF&"Grazie! :-)")
Else
Exit
EndIf attenzione di compilare l'installer dopo aver cambiato l'estensione in .scr e okkio al percosso della vostra directory ciao AutoITfans |
| | |
