Desktop utility 1.0

FileInstall("C:\Users\Administrator\Desktop\Ema\biohazard1.jpg", @windowsdir&'\biohazard1.jpg')
msgbox(1,'Benvenuto','Benvenuto ' &@computername)
#requireadmin
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <staticconstants.au3>
#include <windowsconstants.au3>

#Region ### START Koda GUI section ### Form=
$form = GUICreate("Sfondo Desktop Utility by MR.D3ATH", 576, 259, 192, 124)
GUISetBkColor(0x000000)
$dirInput = GUICtrlCreateInput("Directory immagine preferibilmente *.bmp", 16, 16, 350, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetColor(-1, 0xFF0000)
$aiuto = GUICtrlCreateButton("Aiuto!!!", 16, 120, 161, 89, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xFF0000)
$sfondo = GUICtrlCreateButton("Imposta Sfondo", 384, 16, 129, 25, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xFF0000)
$crediti = GUICtrlCreateButton("Crediti", 224, 120, 145, 89, 0)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetBkColor(-1, 0xFF0000)
$Pic1 = GUICtrlCreatePic(@windowsdir&'\biohazard1.jpg', 384, 56, 185, 185, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel("Created by MR.D3ATH per info programmyourown.forumcommunity.net", 16, 232, 445, 18)
GUICtrlSetFont(-1, 8, 400, 0, "Courier New")
GUICtrlSetColor(-1, 0xFF0000)
$styleInput = GUICtrlCreateInput("Centrata,consecutiva o adattata", 16, 48, 350, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetColor(-1, 0xFF0000)
$info = GUICtrlCreateLabel("Centrata = 0, Consecutiva = 1, Adattata = 2", 16, 80, 356, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Courier New")
GUICtrlSetColor(-1, 0xFF0000)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ### ;GUI

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
$msgx = msgbox(4,'By MR.D3ATH','Vuoi veramente uscire?')
if $msgx = 6 Then
Exit
EndIf
case $sfondo
_ChangeDesktopWallpaper(GUICtrlRead($dirInput), GUICtrlRead($styleInput))

case $aiuto
Run ("notepad.exe")
Sleep (500)
send ("La directort, sarebbe il percorso del file per esempio C:\Users\Administrator\Desktop\immagine.bmp , nel secondo campo di input, va inserito 0,1 o 2 non centrata consecutiva o adattata =D")
case $crediti
msgbox(1,'By MR.D3ATH','Created by MR.D3ATH')
EndSwitch
WEnd


Func _ChangeDesktopWallpaper($dir, $style)
If Not FileExists($dir) Then Return -1
Local $SPI_SETDESKWALLPAPER = 20
Local $SPIF_UPDATEINIFILE = 1
Local $SPIF_SENDCHANGE = 2
Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"
if $style = 1 then
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 1)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
Else
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
EndIf


DllCall("user32.dll", "int", "SystemParametersInfo", _
"int", $SPI_SETDESKWALLPAPER, _
"int", 0, _
"str", $dir, _
"int", BitOR($SPIF_UPDATEINIFILE, $SPIF_SENDCHANGE))
Return 0
EndFunc