AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 06 01:53:29
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

VERSION DE WINDOWS ET SORTIR UN ERRORLEVEL POUR LES SCRIPTS DOS


Information sur la source

Catégorie :Système Niveau : Débutant Date de création : 07/01/2004 Date de mise à jour : 07/01/2004 13:57:17 Vu / téléchargé: 8 081 / 440
Auteur : thierrydelepine Ecrire un message privé
Note :
7,5 / 10 - par 4 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (10)
Ajouter un commentaire et/ou une note

Description

Ce code permet de remonter la version de Windows et en quittant de sortir un ERRORLEVEL correspondant à l'OS trouvé, ceci permet de récuperer cet ERRORLEVEL dans un fichier de commandes MS DOS.
 

Conclusion

exemple de script MS DOS pour traiter l'ERRORLEVEL :

START /W c:\\projet1.exe

IF ERRORLEVEL 7 GOTO winXP
IF ERRORLEVEL 6 GOTO win2000
IF ERRORLEVEL 5 GOTO winNT
IF ERRORLEVEL 4 GOTO win98b
IF ERRORLEVEL 3 GOTO win98a
IF ERRORLEVEL 2 GOTO win95b
IF ERRORLEVEL 1 GOTO win95a

goto fin

:win95a
ECHO windows 95a
pause
GOTO fin

:win95b
ECHO windows 95b
pause
GOTO fin

:win98a
ECHO windows 98a
pause
GOTO fin

:win98b
ECHO windows 98b
pause
GOTO fin

:winNT
ECHO windows NT
pause
GOTO fin

:win2000
ECHO windows 2000
pause
GOTO fin

:winXP
ECHO windows XP
pause
GOTO fin

:fin
echo


 

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de crazyjoke le 07/01/2004 14:15:42

Içi c'est VBFrance pas BatchFrance!!! 1/10

signaler à un administrateur
Commentaire de thierrydelepine le 07/01/2004 14:48:34

le sujet n'est pas de montrer comment faire des batchs mais comment sortir un ERORLEVEL de visual basic.
il s'agit bien de programmation VB.

NB: ton commentaire est inutile et n'apporte pas de solutions nouvelles au problème posé plusieurs fois dans le forum.

signaler à un administrateur
Commentaire de Tilois le 08/01/2004 18:37:35

Windows 98a et b ?? cad windows 98 et windows 98 se ? si c'est le cas, alors c'est très bien ... 9/10

signaler à un administrateur
Commentaire de thierrydelepine le 08/01/2004 18:42:29

gere win 95 a, win 95b, win 98, win 98SE, win NT, win 2000, win XP.

en regardant le code du Zip vous pouvez meme savoir le service pack pour les noyaux NT ( la msgbox en commentaire )

signaler à un administrateur
Commentaire de gabchampagne le 28/05/2004 16:46:50

LOL. 1 zip pour ça?. La chose interressante est ceci :
<
Declare Sub ExitProcess Lib "Kernel32" (ByVal uExitCode As Long)
>

Cette api permet de fermer le programme en lui fesant retourner un numéro qu'on récupère :
IF ERRORLEVEL # GOTO "étiquette dans la batch"

On doit probablement pouvoir obtenir ce code dans VB à l'aide de CreateProcess ou autre...

signaler à un administrateur
Commentaire de gabchampagne le 28/05/2004 16:46:51

LOL. 1 zip pour ça?. La chose interressante est ceci :
<
Declare Sub ExitProcess Lib "Kernel32" (ByVal uExitCode As Long)
>

Cette api permet de fermer le programme en lui fesant retourner un numéro qu'on récupère :
IF ERRORLEVEL # GOTO "étiquette dans la batch"

On doit probablement pouvoir obtenir ce code dans VB à l'aide de CreateProcess ou autre...

signaler à un administrateur
Commentaire de gabchampagne le 28/05/2004 16:50:06

C'est ceci pour obtenir le code de sortie d'un programme :
<
Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess" (ByVal hProcess As Long, lpExitCode As Long) As Long
>
hProcess est le handle du process et  lpExitCode est la varaible long qui va recevoir le code. Retourne 0 en cas de probs.

signaler à un administrateur
Commentaire de gabchampagne le 28/05/2004 16:50:06

C'est ceci pour obtenir le code de sortie d'un programme :
<
Declare Function GetExitCodeProcess Lib "kernel32" Alias "GetExitCodeProcess" (ByVal hProcess As Long, lpExitCode As Long) As Long
>
hProcess est le handle du process et  lpExitCode est la varaible long qui va recevoir le code. Retourne 0 en cas de probs.

signaler à un administrateur
Commentaire de gabchampagne le 28/05/2004 16:50:52

??? c quoi le f**k???

signaler à un administrateur
Commentaire de thierrydelepine le 28/05/2004 17:54:44

Je pense que tu n'a pas compris
le programme VB du zip ne cherche pas a obtenir le code de sortie d'un programme mais  a generer un code de sortie lorsqu'il est quitté.
Ce code de sortie est récupéré dans un fichier de commande BAT et suivant le code de sortie cela me permet dans mon fichier de commande BAT de connaitre la version de windows, cela meut servir par exemeple dans les scripts de connexion a un domaine pour diffuser des patchs Windows qui sont souvent spécifique a un OS.

Donc je repete, dans ce code source, je ne veux pas recuperer le code de sortie d'un autre programme mais je veux que mon programme genere un code de sortie ou errorlevel pour DOS.
dans l'explication final de ce code source il y a un exemple de fichier BAT pour une utilisation en reel il suffit de remplacer les ECHO .... par des actions DOS genre : call KB852732.exe /quiet /norestart

et je n'ai pas compris ta question :  " ??? c quoi le f**k??? "

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Comparez les prix Nouvelle version


Call of Duty 4: Modern Warfare pour Windows
Entre 55€ et 55€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto Cockpit Airbus A320
Photo jolie femme ronde et maturePhoto Lucarne cerf-volant

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,281 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.