Ecran de veille

Soyez le premier à donner votre avis sur cette source.

Vue 9 782 fois - Téléchargée 542 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 2107 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 2
2 mai 2005 à 20:44
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 164 Date d'inscription mardi 21 janvier 2003 Statut Membre Dernière intervention 13 juillet 2008
3 juin 2003 à 12:27
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
15 mai 2003 à 21:22
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
26 déc. 2002 à 12:12
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.