Traducir bat a vbs (10 puntos)
dim MyS
set MyS = wscript . createobject(" wscript . shell ")
My. Run("cmd /c subst q: E:\Juegos para un jugador\Lead to Survival 2"), vbHide.
La mía. Run("cmd /c echo inicia la plataforma de combate...(2/2)"), vbHide.
La mía. Ejecutar ("cmd /c subst h: E:\Juego de batalla\Plataforma de batalla Fang Hao\5.5.0.1023 "), vbHide.
La mía. run(" cmd /c copy /y U: \ ZL \ game client . ini " H: \ " "), vbHide
My. run(" cmd/c start H:\ game client . exe "), vbHide
Msgbox "Completo..."
2;
1:
dim MyS
set MyS = wscript . createobject(" wscript . shell ")
Mi. Run("cmd /c subst q: E:\Juegos para un jugador\Lead to Survival 2"), vbHide.
La mía. Run("cmd /c copy /y U:\cfg\*.* "Q:\left4dead2\cfg " "), vbHide
My. run(" cmd/c start Q：\ left 4 dead 2 . exe "), vbHide
Msgbox "Completo..."