Gestions des utilisateurs sur un disk boot

Soyez le premier à donner votre avis sur cette source.

Vue 3 271 fois - Téléchargée 365 fois

Télécharger le projet
Commenter

Description

Le code permet de gérer l'utilisation de votre disque dur afin que votre petit frère ne vienne pas trop y foutre le boxon!!!

Source / Exemple : 


Voir le zip 

'New : mise à jour :
'pour Fermer Windows ss WinXp :
'Ds un module, mettre 
Declare Function ExitWindows Lib "user32" Alias "ExitWindowsEx" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long

'ensuite, lorsque WinXp doit fermer mettre
Call ExitWindows(4, dwReserved)

'En fait, cela n'éteind pas l'ordi mais ferme la session. C déjà pas mal.

Conclusion :


Il y a certains bugs qui st expliqués dans le fichier lisez moi.
Cependant, s'il y en ki savent comment cacher une appli de la liste des tâches sous WinXp ou ki savent comment éteindre le micro (tjs ss WinXp), je suis preneur de vosu sources. MERCI
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
NewSky
Messages postés
86
Date d'inscription
dimanche 27 janvier 2002
Statut
Membre
Dernière intervention
20 février 2009
 -
Merci bcp pr tes infos cyrilp.
Signaler
cs_cyrilp
Messages postés
140
Date d'inscription
mercredi 4 octobre 2000
Statut
Membre
Dernière intervention
12 août 2009
 -
Source SYMPA !!!
un pti' 9/10 ;)

Pour eteindre, essaye plutot ExitWindowsEx que ExitWindows comme ceci :

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub ExWin()
' Pour rebooter en FORCANT le "quitage" (???) des autres appli'
call ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)

' ou encore
' pour ETEINDRE le PC toujours "en forcant"
call ExitWindowsEx(EWX_FORCE Or EWX_SHUTDOWN, 0)

' et enfin
' pour seulement fermer la session
call ExitWindowsEx(EWX_FORCE Or EWX_LOGOFF, 0)
End Sub
Signaler
cs_bibs
Messages postés
11
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002
 -
cool mais comment on fait sous linux?:)
je plaisanttttttte!!! bon c'est mon humour linuxien vu ue je suis sous vb que depuis quelque semaine et je dois dire que ce langage est top cool
comme quoi la simplicité peut etre efficace
Signaler
NewSky
Messages postés
86
Date d'inscription
dimanche 27 janvier 2002
Statut
Membre
Dernière intervention
20 février 2009
 -
Merci à toi Sirocooo.
Ca marche super bien.

Par contre Si qq'un d'autre sait comment éteindre la machine ss WinXp, merci d'avance.
Signaler
Sirocooo
Messages postés
412
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
7 avril 2008
 1 -
n'écoute pas les fouteur de m... comme jack

tu mérite 9/10 pour ton appli.
rendre une apli invisible : app.taskvisible=false (ca equivaut à la rendre 'service')
Afficher les 7 commentaires
S'inscrire maintenant

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.

Du même auteur (NewSky)