SHUT DOWN - ETEINDRE, REDÉMARRER SON PC DANS LE TEMPS !
cs_legion91
Messages postés
216
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
15 décembre 2010
-
8 janv. 2004 à 19:15
rolensoft Messages postés 1 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 1 février 2004 - 1 févr. 2004 à 16:09
rolensoft Messages postés 1 Date d'inscription samedi 31 janvier 2004 Statut Membre Dernière intervention 1 février 2004 - 1 févr. 2004 à 16:09
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/19375-shut-down-eteindre-redemarrer-son-pc-dans-le-temps
https://codes-sources.commentcamarche.net/source/19375-shut-down-eteindre-redemarrer-son-pc-dans-le-temps
1 févr. 2004 à 16:09
rolensoft@yahoo.fr
9 janv. 2004 à 19:35
Sur ceux bonne prog
9 janv. 2004 à 10:48
9 janv. 2004 à 09:53
Allez @++ é bonne participation si vous pouvez lol
8 janv. 2004 à 20:06
(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
8 janv. 2004 à 19:15
Interet actuel ? Aucun enfin bon juste pour la moral kar c ken meme une source, je met pas de note.
Sur ceux @+ et bonne année à tous.