VBS ecire message dans une fenetre ...

VBS ecire message dans une fenetre ... - VB/VBA/VBS - Programmation

Marsh Posté le 30-07-2009 à 17:11:15    

:D  j'ai un petit probleme ^^
 
alors voilà ( bonjour tous le monde X)  )
 
j'ai ovulu creer un programme batch qui lancer un autre batch qui lui meme lance un exe
 
pour plus de comprehension :
 
le " servertext.bat "  lance le " server.bat " qui lui lance un serveur dedié du jeu republic commando , une fenetre de console ...
le but du servertext.bat etait d'ecrire dans la fenetre "montextevoulu" mais sa ne faisait que lancer le serveur et point barre :/
 
code :  
 
:Lance
start server.bat
echo "say Salut à tous bienvenue sur le serveur "
:fin  
 
j'ai ensuite vue un lien parlant du vbs et que c'etait un peu plus complet j'ai donc scripter ceci :
 
Set WshShell = createobject("wscript.shell" )
Set oExec = WshShell.Exec("D:\Program Files\LucasArts\Star Wars Republic Commando\GameData\System\server.bat" )
.writeLine "say Bienvenue / Welcome"
.writeLine "say Sur le serveur / On the Server"
.writeLine "say Bon frag et no noob ! / Good frag and no noob !"
 
mais cette fois-ci j'ai eu une erreur que j'ai compris tout seul , le texte n'arrive pas à s'ecrire sur la fenetre ..
 
 
ce que je cherche en fait c'est , pouvoir créer un boucle géré par le temps qui ecris dans la fenetre ce que je souhaiterai ,  
 
un message repeté toute les 30 sec par exemple :/
 
 
j'ai chercher sur le net ouvrir un processus , et d'autre recherche mais rien ...
 
 
merci de bien vouloi m'aider ...
 
ou alors ce serrai comme afficher la fenetre que je souhaite et y ecrire mon texte repeter en boucle toute les 30 sec...

Reply

Marsh Posté le 30-07-2009 à 17:11:15   

Reply

Marsh Posté le 30-07-2009 à 17:35:18    

de plus je precise que je n'y connais rien , j'ai commencer y'a 2h à peine

 

j'ai trouvé çà

 

http://faqvbnet.developpez.com/?page=syst#syst_cmdline
http://faqvbnet.developpez.com/?page=syst#syst_iocons
http://faqvbnet.developpez.com/?pa [...] itebinfile

 

je rajoute le fait qu'il y a un temps de chargement pour que le serveur soit pres lancé ... de 1 à 10sec vraiment maxi plus souvent 2sec

 


Message édité par dc_volo le 30-07-2009 à 18:12:16
Reply

Marsh Posté le 30-07-2009 à 22:07:17    

pour ton batch il me semble qu'il attend que ton serveur s'arrête pour afficher le message
si tu réessaye en quittant ton serveur une fois que tu l'a lancer avec ton batch tu verra ton message


Message édité par adri-du-91 le 30-07-2009 à 22:09:02

---------------
CrashDrives
Reply

Marsh Posté le 30-07-2009 à 23:57:38    

c'est bien plus compliqué que çà ... et j'ai resolu une partie de mon probleme ... il me reste plus qu'a savoir comment faire une boucle  et ecrire dans un programme/processus PRECIS !

 

désolé pour ce court post j'edit en ce moment meme ... mon test etait concluant mais super chiant x)

 

donc en fait je precise ce qui se passe ...

 

je lance mon .vbs qui lance .bat qui lance par exemple une commande msdos ou alors un document de texte

 

je sais faire la boucle ( EDIT )

 

voici mon script :

  

Set WshShell = createobject("wscript.shell" )
WScript.Sleep(2000)
Set oExec = WshShell.Exec("L:\Star Wars Republic Commando\GameData\System\server.bat" )
WScript.Sleep(5000)

 

do while(1)
Set variable=CreateObject("WScript.Shell" )
variable.SendKeys ("say Bienvenue  / Welcome " )
variable.SendKeys ("{enter}" )
variable.SendKeys ("say Sur le serveur des Dark Clone / On the Dark Clone's Server" )
variable.SendKeys ("{enter}" )
variable.SendKeys ("say Bon frag et no noob ! / Good frag and no noob !" )
variable.SendKeys ("{enter}" )
variable.SendKeys ("say http://darkclone.servegame.org/" )
variable.SendKeys ("{enter}" )

 

WScript.Sleep(40000)  
loop

  


il ne me manque plus que comment ecrire sur un processus qui n'est pas une fenetre ouverte ou fenetre active ( pouvoir ecrire quand la fenetre est par exemple soustraite/reduite )


Message édité par dc_volo le 31-07-2009 à 01:00:27
Reply

Marsh Posté le 31-07-2009 à 11:42:07    

up

Reply

Marsh Posté le 31-07-2009 à 14:14:07    

dsl je ne peut pas plus t'aider je ne connais pas trop le vbs ( j'ai juste les petite base :D)


Message édité par adri-du-91 le 31-07-2009 à 14:14:39

---------------
CrashDrives
Reply

Marsh Posté le 31-07-2009 à 14:29:00    

Lol ne t'en fait pas moi de meme , j'ai commencer hier en milieu d'aprem X)

Reply

Marsh Posté le 31-07-2009 à 14:48:16    

j'ai une autre question comment faire un saut de ligne avec ce code ....
 
f.write("Suppress+=DevCompile" )
f.write("Suppress+=DevBind" )
f.write("Suppress+=DevBsp" )
f.write(" " )
f.write("[Engine.MaterialTypeInfo]" )
f.write("bSpawnHitDecals=true" )
 
parce que là j'ai mis un f.write qui n'ecrit que des espace à moins qu'une sendkey ? - non la sendkey pas possible


Message édité par dc_volo le 31-07-2009 à 15:00:37
Reply

Marsh Posté le 31-07-2009 à 17:09:45    

up et re up , je pense pas que se soit bien compliqué pour vous ce dernier message ;)

Reply

Marsh Posté le 02-08-2009 à 16:06:51    

j'ai trouver finallement il faut utiliser le code .WriteLine
 
merci de votre aide sa ma été d'un grand secours  ...... >.< -.-' *..* et j'en passe et des meilleurs

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed