Discussion :

[IceCrime752]

Hello les férus,

Je cherche à faire une "traduction" de VBS en batch.
N'y connaissant rien du tout en batch et ne souhaitant pas y passer 5 heures juste pour 7 ligne de code, me voici donc ici pour demander votre aide. Je sais, je sais, ce n'est pas instructif de demander la réponses toute cuite. mais batch, n'est pas mon langage de prédilection.

Donc, quel serait l'équivalant de :

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
set wsc = CreateObject("WScript.Shell")
Do
'Five minutes
WScript.Sleep(5*60*1000)
wsc.SendKeys("{F5}")
Loop

en batch ? Est-ce que c'est possible ?


Merci pour votre aide.
Ice

[ericlm128]

Pas possible à moins d'utiliser un outil tiers (que je ne connais pas), mais dans ce cas autant rester en vbs

[hackoofr]

Code BATCH :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
@echo off
Title [F5] every 5 Minutes
echo( Send [F5] every five minutes
Call :Runvbs
pause & exit /b
::------------------------------------------------
:RunVbs
(
    echo set ws = CreateObject("WScript.Shell"^)
    echo Do
    echo    WScript.Sleep(5*60*1000^)
    echo    ws.SendKeys("{F5}"^)
    echo Loop
)>"%temp%\%~n0.vbs"
cscript //nologo "%temp%\%~n0.vbs"
Exit /b
::------------------------------------------------

[ericlm128]

@hackoofr
lol ?