Msgbox autre question ?

Résolu/Fermé
TAVERNIER Messages postés 276 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 22 janvier 2023 - 16 avril 2010 à 09:05
TAVERNIER Messages postés 276 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 22 janvier 2023 - 16 avril 2010 à 11:08
Bonjour, je cherche le code source pour faire deux choses avec msgbox ?
Le premier est pour que la fenêtre créée ne soit pas toujours au centre de l'écran quand elle s'affiche, qu'elle soit aléatoire ?
Le second est pour que la fenêtre créée ne se ré-ouvre pas tout de suite après avoir cliqué sur OK mais qu'elle mette un certain temps (temps choisi par le créateur) avant de se ré-ouvrir après avoir cliqué sur OK et si c'est possible qu'il faille passer automatiquement par le gestionnaire des taches pour la fermer.
Et question subsidiaire le code pour qu'il faille redémarrer le système pour stopper l'application ou même qu'à la dernière fenêtre créée le système (windows) s'arrête tout seul ?
Je sais ça fait beaucoup. MERCI :-)


1 réponse

ghuysmans99 Messages postés 2496 Date d'inscription jeudi 14 juillet 2005 Statut Contributeur Dernière intervention 5 juin 2016 339
16 avril 2010 à 09:46
Il est possible de mettre la MsgBox à la position que tu veux, mais tu dois à ce moment-là utiliser les APIs Windows. Pour qu'une autre MsgBox ne s'ouvre pas tout de suite tu peux utiliser l'API Sleep(dwMilliseconds) qui te permet d'attendre un temps défini. Si tu veux empêcher qu'on en ferme une, utilise un formulaire que tu auras fait toi-même affiché en modal.

Pour couper la machine, il te suffit de passer EWX_SHUTDOWN ou EWX_REBOOT à la fonction ExitWindowsEx. Mets dwReserved à 0.
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
0
TAVERNIER Messages postés 276 Date d'inscription jeudi 28 avril 2005 Statut Membre Dernière intervention 22 janvier 2023 31
16 avril 2010 à 11:08
Merci, gracias, thanks, danke,
0