Shut down - eteindre, redémarrer son pc dans le temps !

Soyez le premier à donner votre avis sur cette source.

Vue 8 021 fois - Téléchargée 943 fois

Description

Ce code vous permet d'éxécuter la commande shutdown, donc de contrôler l'extension de son PC, éteindre, redémarrer, annuler un action, programmer dans le temps son éxécution pratique quand on part en week-end et de terminer des téléchargement sur plusieurs jours....

Sinon pour le code, un module pour la mise en icone systray du programme avec menu d'accès rapide, la déclaration de l'API Shell...rien de très innovant pour les habitués du VB...

Attention
----------

Pour les nouveaux : Quand vous lancerez le logiciel, si vous ne voyez un icone que dans la barre systray, c normal, c fait pour être discret si l'on veut le mettre au démarrage de Windows...

Conclusion :


Ce code a été écrit dans l'urgence lors de l'attaque par le virus Blaster via les réseaux Microsoft, merci Billou... donc désolé pas de design pour ce logiciel, d'ailleurs c bien le seul que j'ai fais com ca lol

Bonne Année à tous !!!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

rolensoft
Messages postés
1
Date d'inscription
samedi 31 janvier 2004
Statut
Membre
Dernière intervention
1 février 2004
-
je veus un programme pour formater un disque (c:) !!
rolensoft@yahoo.fr
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
Je voulais pas t'agresser mais bon kom tu peut voir ce genre de source yen a encore 2 rien k dans le sommaire alors bon a force si on sait pas k shell shutdown sa etein le pc, enfin bon...(ten mort lol).

Sur ceux bonne prog
bmichael007
Messages postés
114
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
2 juin 2004
-
moi je veux bien le tester....
Disicom
Messages postés
107
Date d'inscription
vendredi 8 novembre 2002
Statut
Membre
Dernière intervention
28 mars 2011
-
Désolé que ma source te porte aucun intérêt, pour les débutants, je pense qu'ils peuvent en voir un, utiliser un module pour mettre une îcone systray, lancer un programme...Bon peut-être que c peu, je veux bien te croire mais bon, je vais pa m'amuser à mettre des sources professionnelles et ainsi me faire attaquer par mes clients. Désolé, chacun sont boulot. Mais merci d'avoir rajouter du code, je pense que ca peu servir à certain.

Allez @++ é bonne participation si vous pouvez lol
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
pour trouvez la version de windows:
(a placez dans un module et jme souvien pas du coder mais merci a lui car je luse tres souvent)

Private Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Public Enum Enum_OperatingPlatform
Platform_Windows_32 = 0
Platform_Windows_95_98_ME = 1
Platform_Windows_NT_2K_XP = 2
End Enum
Public Function OperatingPlatform() As Enum_OperatingPlatform
Dim lpVersionInformation As OSVERSIONINFO
lpVersionInformation.dwOSVersionInfoSize = Len(lpVersionInformation)
Call GetVersionExA(lpVersionInformation)
OperatingPlatform = lpVersionInformation.dwPlatformId
End Function

'form
'Select Case OperatingPlatform
'windows32
'Case Enum_OperatingPlatform.Platform_Windows_32
'me
'Case Enum_OperatingPlatform.Platform_Windows_95_98_ME
'Shell ("rundll32.exe user.exe,exitwindows")
'xp
'Case Enum_OperatingPlatform.Platform_Windows_NT_2K_XP:
'Shell "shutdown -r -t 0"
'End Select

Voila je croi k c tout

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.