Connexion
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités Aucun
Le record du nombre d'utilisateurs en ligne est de 36 le Lun 23 Sep 2024, 10:15
Sujets les plus vus
Derniers sujets
Flux 
[bat] Afficher le jour de la semaine sous Vista et windows 7
2 participants
Page 1 sur 1
[bat] Afficher le jour de la semaine sous Vista et windows 7
par Sachadee Sam 07 Sep 2013, 20:44
Voici 2 astuces pour récuperer le jour de la semaine
en bat pur
1 :
2:
en bat pur
1 :
- Code:
@echo off&cls
::SachaDee 2015
@echo off&cls
for /f "tokens=1-4 delims=/ " %%i in ('echo.^|command /C date ^|find /i "current"') do "set dds=%%l"
echo Aujourd'hui c'est : %$Jour%
set dds=%dds:mon=Lundi%
set dds=%dds:tue=Mardi%
set dds=%dds:wed=Mercredi%
set dds=%dds:thu=Jeudi%
set dds=%dds:fri=Vendredi%
set dds=%dds:Sat=Samedi%
set dds=%dds:Sun=Dimache%
echo Aujourd'hui c'est : %dds%
pause
2:
- Code:
@echo off&cls
for /f "skip=1 tokens=1" %%a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "."') do set /a dds=%%a +1
for /f "tokens=%dds%" %%a in ("Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi") do set jour=%%a
echo Aujourd'hui c'est : %jour%
pause
Dernière édition par Sachadee le Sam 24 Jan 2015, 12:23, édité 6 fois
Sachadee- Admin
- Mensagens : 591
Data de inscrição : 04/06/2013 -
Re: [bat] Afficher le jour de la semaine sous Vista et windows 7
par Invité Ven 13 Sep 2013, 08:44
Hellow !
Génial, une technique à la Sacha ^^ ! (Et oui, je suis pas mort xD)
Dylan.
Génial, une technique à la Sacha ^^ ! (Et oui, je suis pas mort xD)
Dylan.
Invité- Invité
Re: [bat] Afficher le jour de la semaine sous Vista et windows 7
par Hackoo Dim 16 Mar 2014, 10:37
Salut Sacha et Merci pour l'astuce
Je veux transformer ton code avec un vbscript mais j'ai un petit problème
Je veux transformer ton code avec un vbscript mais j'ai un petit problème
- Code:
Option Explicit
Function Executer(StrCmd,Console)
Dim ws,MyCmd,Resultat
Set ws = CreateObject("wscript.Shell")
'The value 0 to hide the console of MS-DOS
If Console = 0 Then
MyCmd = "CMD /C " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,True)
End If
'The value 1 to show the console MS-DOS
If Console = 1 Then
MyCmd = "CMD /K " & StrCmd & " "
Resultat = ws.run(MyCmd,Console,True)
End If
Executer = Resultat
End Function
'***********************************************************Some Examples*******************************************************************
'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for Rar in command line & cd %programfiles%\winrar & cmd /k Rar /?",1)'showing the console
'Call Executer("mode con cols=80 lines=30 & Color 0A & Title Help for FCIV in command line & cd %programfiles%\FCIV & cmd /k FCIV.exe /?",1)'showing the console
'Call Executer("mode con cols=90 lines=15 & Color 0A & Title Ping sur www.visualbasicscript.com by Hackoo & Ping www.visualbasicscript.com",1)'showing the console
'Call Executer("FindStr /? > HelpFindStrTmp.txt & cmd /U /C Type HelpFindStrTmp.txt > HelpFindStr.txt & start HelpFindStr.txt",0) 'console in hidden mode
'Call Executer("mode con cols=80 lines=50 & Color 9B & Title Hackoo & netstat -a",1) 'showing the console
'Call Executer("mode con cols=80 lines=30 & Color 9B & Title Tracert to www.visualbasicscript.com by Hackoo & Tracert www.visualbasicscript.com",1)'showing the console
'***********************************************************Some Examples*******************************************************************
'Call Executer("cd %programfiles%\Microsoft Dynamics CRM\Client\ConfigWizard & cmd /k Microsoft.CRM.Application.Outlook.ConfigWizard.exe /Q /i %TEMP%\config_client.xml /xa",1)
'Call Executer("cd %programfiles%\DVD Maker & DVDMaker.exe",1)
'Call Executer("cd %programfiles%\comodo\comodo internet security & virtkiosk.exe",0)
Dim MaCmd
MaCmd = "@echo off & for /f ""skip=1 tokens=1"" %a in ('wmic path win32_localtime get dayofweek ^| findstr /b /r "".""') do set /a dds=%a +1 & for /f ""tokens=%dds%"" %a in (""Dimanche Lundi Mardi Mercredi Jeudi Vendredi Samedi"") do set jour=%a & echo Aujourd'hui c'est le : %jour% & pause"
msgbox MaCmd
Call Executer(MaCmd,1)
Hackoo- EQUIPE BBAT
- Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie
Contenu sponsorisé
Sujets similaires» ACtiver ou desactiver l'UAC sous vista et 7
» AFFICHER OU CACHER LES FICHIER CACHER DE WINDOWS
» [Ex]Afficher un curseur dans votre GUI.
» [BAT]Afficher le nombre de caractères d'une chaine.
» Afficher la ChatBox en Plein Ecran :)
» AFFICHER OU CACHER LES FICHIER CACHER DE WINDOWS
» [Ex]Afficher un curseur dans votre GUI.
» [BAT]Afficher le nombre de caractères d'une chaine.
» Afficher la ChatBox en Plein Ecran :)
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» [devellopez] Formater une date en ligne Dos
» Un super Tuto Batch de IniTScreen
» Un code MATRIX sympa
» [BAT/EXE] DresolChange changer la sesolution de l´écran
» [EXE/bat] DpScript Código Delphi interpreter
» Externo SaveDlg com 2 kb
» présentation
» [developpez.com] Transcodage fichier vidéo si fichier déposé