VB Lancer un .bat tout juste créé [Resolu]

VB Lancer un .bat tout juste créé [Resolu] - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2009 à 11:41:39    

voilà je veux créer une sorte de patch ...
 
mon code etant :
 
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell" )
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject" )
   Set f = fso.OpenTextFile("L:\Star Wars Republic Commando\GameData\System\server.bat", ForWriting,true)
WScript.Sleep(1000)
   f.write("SWRepublicCommando.exe dm_engine?Name=Volo?Game=MPGame.DMGame?GoalScore=50?TimeLimit=0?RespawnDelay=1?RoundTime=0?MaxPlayers=8?GameSpeed=1.1?FF=0.00?WeaponStay=true?BalanceTeams=true?DedicatedServer=True?ReservedSlots=0?GameStats=True? -ini=server.ini -userini=server_user.ini -log=server.log -server " )
WScript.Sleep(1000)
WScript.Sleep(2000)
Set WshShell = createobject("wscript.shell" )
WScript.Sleep(2000)  
Set oExec = WshShell.Exec("L:\Star Wars Republic Commando\GameData\System\server.bat" )
 
 
j'ai une erreur qui me dit que le processus est utiliser par un autre .......
 
Help :(


Message édité par dc_volo le 31-07-2009 à 15:45:08
Reply

Marsh Posté le 31-07-2009 à 11:41:39   

Reply

Marsh Posté le 31-07-2009 à 12:53:21    

Il n'y aurait pas une instruction pour fermer ton fichier quand t'écris dedans par hasard ? Regarde dans les méthodes disponibles pour f ou fso genre un close ou quelque chose du même style.

Reply

Marsh Posté le 31-07-2009 à 13:53:05    

oui F.Close ;) merci
 
sa donne çà maintenant
 
Const ForReading = 1, ForWriting = 2
  Set WshShell = WScript.CreateObject("WScript.Shell" )
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject" )
   Set f = fso.OpenTextFile("L:\Star Wars Republic Commando\GameData\System\server.bat", ForWriting,true)
WScript.Sleep(1000)
   f.write("SWRepublicCommando.exe dm_engine?Name=Volo?Game=MPGame.DMGame?GoalScore=50?TimeLimit=0?RespawnDelay=1?RoundTime=0?MaxPlayers=8?GameSpeed=1.1?FF=0.00?WeaponStay=true?BalanceTeams=true?DedicatedServer=True?ReservedSlots=0?GameStats=True? -ini=server.ini -userini=server_user.ini -log=server.log -server " )
  F.Close
WScript.Sleep(1000)
WScript.Sleep(2000)
Set WshShell = createobject("wscript.shell" )
WScript.Sleep(2000)  
Set objWS = WScript.CreateObject("WScript.Shell" )
objWS.Run """L:\Star Wars Republic Commando\GameData\System\server.bat"""

Reply

Sujets relatifs:

Leave a Replay

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