Paso 4: Msgbox Final y lanzamiento juego
así que primero escribir un msgbox como antes pero en este formato
acabado = msgbox ("Portal 2 ya se ha solucionado. ¿usted WAN ' t para jugar? ", vbyesno,"jugar")
la porción vbyesno dará la caja popup el sí y el no botones permitiendo que otras secciones de la secuencia de comandos con el resultado.
Ahora vamos a escribir una sección de secuencia de comandos que pondrá en marcha el juego si se selecciona Sí.
Si terminado = vbyes then terminar si Set objShell = createobject("Wscript.Shell") objShell.Run strProgramPath
strProgramPath = "" "[su juego exe ruta de acceso]" ""
Esto ejecutará el juego si se selecciona Sí en el cuadro de acabados . Usted recibirá un mensaje de error si selecciona no, pero que es perfectamente normal.
reemplazar [la ruta del exe juego] con la ruta del exe juego en su vapor carpeta steamapps