Programa en ejecución Vbs

El código vbs es el siguiente:

═════════════════

set fso=CreateObject("Scripting. Objeto del sistema de archivos" )

p>

set ws = CreateObject(" wscript . shell ")

Ruta = FSO. getfile("C:\archivos de programa\Tencent\qqminidownloader\jcqqdlq-v 1.0\Orange City QQ2010 Automatic Recorder.exe").

ruta ws.run

wscript .sleep 10 * 1000

ruta ws.run

Codificado por Flower Protector del equipo VBS

════════════════

El código que proporcioné se ejecuta inmediatamente después de hacer doble clic y se ejecuta nuevamente después de 10 segundos.