Ecran de veille

Soyez le premier à donner votre avis sur cette source.

Vue 9 348 fois - Téléchargée 498 fois

Description

Salut

Ca faisait un moment que je voulais savoir comment faire un ecran de veille.
Il faut renommer le fichier EXE en SCR et le placer dans le répertoire de Windows.

mais ca suffit pas

Alors j'ai trouvé en cherchant quatre modes de lancement du prog
(je sais donc en utiliser que 3, je sais pas comment marche le mot de passe)

windows envoie don une ligne de commande (que l'on récupère grace à Command$)

/a On doit paramétrer le mot de passe
/s On doit exécuter l'écran de veille
/c: On doit afficher la feuille d'option
/p on doit afficher le Preview

la ligne de commande contient parfois un numéro correspondant au HWND d'un controle
Je pense que la seule utilité de récupérer ce numéro est lors de l'apercu, car on doit déssiner dans la feuille de window.

Pour afficher le preview je recommande d'utiliser un picture, avec autoredraw sur true.
on va copier le picture vars le carré de la fenetre de window.
comme on connait le HWND de ce carré, on va pouvoir connaitre sa taille et redimensionner notre picture

on comprend mieux avec le zip meme s'il est quasiment pas commenté

ps le zip contient le projet le + facile et rapide que j'ai pu faire, mais on peut largement l'améliorer.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_PaTaTe
Messages postés
1878
Date d'inscription
mercredi 21 août 2002
Statut
Contributeur
Dernière intervention
7 janvier 2019
-
Pour le password ca doit etre ceci :


Public Declare Sub PwdChangePassword Lib "mpr.dll" Alias "PwdChangePasswordA" (ByVal lpProvider As String, ByVal hWnd As Long, ByVal dwFlags1 As Long, ByVal dwFlags2 As Long)


Public Sub ChangePassword()
Dim lhwndParent As Long
lhwndParent = GetForegroundWindow()
Call PwdChangePassword("SCRSAVE", lhwndParent, 0, 0)
End Sub


Par contre de mon coté, j'ai une probleme de preview ... tout est ok mais ma preview n'etait pas alignée dans la fenetre prevu elle se trouve dans le coin superieur droit. Si kelk1 sait ...
Noiretulipe
Messages postés
165
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
13 juillet 2008
-
dit moi, ça fait autre chose qu'un ecran noir ????
Sinon, oui, la solution la plus efficace pour éviter que windows ouvre à période régulière la même application c'est ;
If App.PrevInstance = True Then End
9713Jo
Messages postés
17
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
15 mai 2003
-
pour éviter que ça se démarre plusieurs fois il faut faire : If App.PrevInstance = True Then End, c'était pas dit, alors j'l'ai dit.
Guidelor
Messages postés
236
Date d'inscription
jeudi 31 octobre 2002
Statut
Membre
Dernière intervention
18 août 2006
-
Oh le bel écran noir !
Cet exemple contient un bug! On ne peut faire 2x en suivant installer pour l'écran de veille.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.