Discussion :

[DanTesS]

Bonjour à tous,

Après avoir épluché le net et n'ayant pas trouvé de solution à mon soucis, je m'adresse à vous dans l'espoir d'une réponse

Je souhaiterais, via un script vbs, lancer une fenêtre telnet en plein écran.

Pour cela, je lance le programme, et je lui envoie la combinaison de touche suivante : ALT + Entrée (cela fonctionne en manuel sur le clavier).

Sauf que...ca ne marche pas

J'ai, je pense, tout essayé dans le sendkeys :

Code :

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

1
2
WshShell.SendKeys "%({~})"
WshShell.SendKeys "%{ENTER})"

Avec les paranthèses, sans les paranthèses, avec ou sans les accolades, avec les deux, sans les deux etc..

Bref, impossible de passer en mode plein écran.

Quelqu'un aurait une solution ?

Si c'est d'une autre manière qu'avec la combinaison de touche alt+Entrée, cela m'importe peu, du moment que j'arrive à le mettre en plein écran...

Merci d'avances pour vos réponses,
Bonne journée

[DanTesS]

Bon j'ai "trouvé" une solution à la bidouille, la même que celle qu'on trouve partout sur le net, qui consiste à modifier la base de registre pour pouvoir lancer la console en plein écran, et puis lancer le telnet.

Je mets ici la solution pour ceux qui sont intéressés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
'Create the shell object
Set oShell = CreateObject("WScript.Shell")
 
oShell.regWrite "HKEY_CURRENT_USER\Console\Fullscreen", "1", "REG_DWORD"
oShell.Run("cmd /C %Comspec%"), 1
Wscript.Sleep 5000
oShell.AppActivate "cmd"
 
oShell.SendKeys "telnet"
Wscript.Sleep 2000
oShell.SendKeys "{ENTER}"
Wscript.Sleep 500

@+