Anti-Annoying_windows

; legit windows auto_selffuck lol :)

Func _ChangeWallpaper($sFile,$adjuste)

    If Not FileExists($sFile) Then
        SetError(1)
        Return -1
     EndIf

    Select
        Case $adjuste = 1
            RegWrite('HKCU\Control Panel\Desktop','TileWallpaper','reg_sz','1')
            RegWrite('HKCU\Control Panel\Desktop','WallpaperStyle','reg_sz','0')
        Case $adjuste = 2
            RegWrite('HKCU\Control Panel\Desktop','TileWallpaper','reg_sz','0')
            RegWrite('HKCU\Control Panel\Desktop','WallpaperStyle','reg_sz','0')
        Case $adjuste = 3
            RegWrite('HKCU\Control Panel\Desktop','TileWallpaper','reg_sz','0')
            RegWrite('HKCU\Control Panel\Desktop','WallpaperStyle','reg_sz','2')
        Case Else
        EndSelect

    RegWrite('HKCU\Control Panel\Desktop','Wallpaper','reg_sz',$sFile)
    DllCall("User32.dll","int","SystemParametersInfo","int",20,"int",0,"str",$sFile,"int",0)
    Return 0
EndFunc

WHILE 1<2
IF PROCESSEXISTS("slui.exe") THEN
PROCESSCLOSE("slui.exe")
SLEEP(6000)
_ChangeWallpaper('C:\Users\xuser\Desktop\st4rt\ao.bmp',2) ; 2 center
ENDIF
SLEEP(1000)
WEND