CHANGESCREEN

Commentaire de loskiller62 le 16/10/2003 16:34:44

Huhu toujours toi ;)
J'avoue c'est tout à fait dans mon style :p
Au fait tu as reçu mon mail pour le projet marmotte? Ca marche pas mal :)

Commentaire de kimmelf2 le 21/10/2003 01:30:49

un peu complique non ???

bon, moi je gere pas les images avec une liste, j'ai 5 (wall0.bmp, wall1.bmp .... wall4.bmp) dans mon dossier et je les passe dans l'ordre

Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Private Sub main()
    Dim wsh As Object
    Dim r As String
        
    Set wsh = CreateObject("WScript.Shell")
    
    ' on recupere le numero de l'ancienne image
    r = GetSetting("Wallpaper Changer", "Desktop", "Wallpaper", "0")
    
    ' on y ajoute 1 et on reconverti en string sans espaces
    r = Trim(Str((Val(r) + 1) Mod 5))
    
    ' on sauvegarde le nouveau numero
    SaveSetting "Wallpaper Changer", "Desktop", "Wallpaper", r
    
    ' on cree le nom de l'image
    r = App.Path & "IMGWall" & r & ".bmp"
    
    ' on ecris ce nom dans le fichier win.ini qui contient la "config" Wallpaper
    WritePrivateProfileString "Desktop", "Wallpaper", r, "c:windowswin.ini"
    wsh.regwrite "HKEY_CURRENT_USERControl PanelDesktopWallpaper", r, "REG_SZ"
End Sub

Commentaire de kimmelf2 le 23/10/2003 01:48:20

tout a fait d'ac avec toi, mais la j'ai eu le temps que de bosser sur le wallpaper. apres, mettre une interface pour aller chercher sur le DD plutot que dans un dossier impose, c'est de la prog annexe

et j'ai fais au + simple.

j'ai pas ete voire coment fonctionne le tiens, si l'interface se lance a chaque fois, comment tu enregistre le wallpaper dans les params de windows ...

j'esperes juste que ton interface ne s'ouvre pas a chaque demarrage de windows, car dans ce cas, ca dois etre un peu lourd a force. c'est dailleur ce que j'ai cherche a eviter dans mon pgm : pas de form, pas de ralentissement pendant 5 min au demarrage, pas besoin de cliquer sur un bouton ..... Apart le changement de wallpaper, tout est invisible pour l'utilisateur

Commentaire de kimmelf2 le 23/10/2003 14:41:38

qu'entend tu par becan normale ??? un p4 a 3Ghz ou un 386 a 33 MHz ??? :-D large debat ! :-p

nan, en fait ju suis sur un p2 a 333Mhz, et j'ai plein de pgm qui se lancent au demarrage alors ca rame un peu, alors une premiere version que j'avais avec une form, ca avais tendance a me plomber tout.

c'est pour ca que j'ai pondu un code extra court, et sans interface, meme si c'est pas hyper pratique d'avoir un dossier impose pour les images, d'etre oblige de les convertir en bmp soit meme ...

dans l'etat actuel, pour mon usage perso, ca me suffit, a par le fait que je puisse pas modifier le nombre d'images sans desinstaller l'ancien pgm, recompiler avec le bon nombre d'image et reinstaller.
c'est chiant pour rajouter seulement une image non ?

faudrai que je case le nb d'images dans le registre par exemple, et que je rajoute aussi un test de presence du fichier image pour eviter les buggages.

j'ai poste mon code, meme en sachant qu'il est pas hyper souple, car
-1- ca devoile quelques petits tresors cache du win.ini
-2- utilisation de la base de registre
-3- utilisation des fichiers INI

ca peux interresser quelques personnes tout ca, meme si pour -2- et -3-, il suffit de chercher un peu dur le site ...