@Echo OFF
 
REM Lanzamos el juego, importante ejecutarlo en segundo plano con el parámetro "/B" para no detener el script.
Start /B """" "MiJuego.exe"
 
REM Lanzamos MouseLock
Start /W MouseLock.exe MiJuego.exe -K CTRL+C
:: Al apretar Control+C dentro del juego, se desactivará el bloqueo hasta que volvamos a presionar dicha combinación de teclas...
 
REM PD : Para terminar la ejecución de MouseLock hay que cerrar el juego o cerrar la consola.
REM PD2: También se pueden usar comillas dobles para encerrar cualquier argumento del programa.

While Running : Application.DoEvents() : End While

    Private Sub Lock()
        If Process_Is_Running(Executable_Name) Then
            AddHandler Lock_Timer.Elapsed, AddressOf Locker
            AddHandler Executable_Timer.Elapsed, AddressOf Executable_Tick
            Lock_Timer.Interval = Lock_Interval
            Lock_Timer.Start()
            Executable_Timer.Start()
            Running = True
            While Running : Application.DoEvents() : End While
        Else
            Terminate()
        End If
    End Sub

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(Class1.GetHalfNumber(100))
    End Sub
End Class

Public Class Class1
    Public Shared Function GetHalfNumber(ByVal Number As Int64) As Int64
        Return Number \ 2
    End Function
End Class

Ping -n 5 localhost >NUL

Segundos = 5
 
Set shell = CreateObject("WScript.Shell")
WScript.Sleep Segundos*1000
MsgBox WScript.Arguments.item(1), , WScript.Arguments.item(0)
Wscript.Quit(0) 

Archivo.vbs "Título" "Contenido del box"