@MeCraniDOS
Te da error porque en VBS no se puede declarar el tipo de variable (Dim As...), manéjate solo con "Dim" y "Set".

El código quedaría como tal y como te lo puse:

Obviamente hay que modificar los valores necesarios... y bueno, si quieres añadirle comentarios a esas lineas o modificarlas un poco eso ya es cosa tuya.

En el último código que has posteado, que es una mezcla de tu code original y del mio, esto está mal:
Ya tienes el objeto instanciado en la variable "oREG", pero en la variable "valdata" lo vuelves a instanciar.

Aparte de la primera línea:
Bórrala.

EDITO2: y esta otra, que se me ha pasado de largo:

Ah eso ya te respondí lo que pienso hace unos días... lo siento pero no te hago códigos, cosas como que uses un "with" sin saber para que sirve, y que lo uses en un bloque de casi 100 líneas sólamente para modificar 1 propiedad de un control... cosas así me desesperan, normal que tengas 1.000 errores en el código, yo no voy a invertir tiempo en resolver parte de tu proyecto para que mañana hayan otros 1.000 errores más porque no quieras aprender, y que encima lo publiques en el concurso diciendo que todo es tuyo.

Saludos

Lo del flickering, al final del video, lo solucionarias si usases mi panel, y activases la propiedad de desactivar el flickering.

O podrías copiar la parte del flickering en tu panel, lo mismo da.

Usa las variables de entorno de Windows...

strRuta = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%APPDATA%") & "\Carpeta\Aplicacion.exe"
WScript.Echo(strRuta)

Saludos.

EDITO: A parte de eso, no estás creando ninguna clave nueva, estás sobreescribiendo el valor por defecto de la clave... tampoco no es necesario escribir la clave en HKCU y HKLM, si la escribes en HKLM afecta a todos los usuarios quedando HKCU innecesaria, eres libre de hacerlo, pero deberías eligir la que más se adapte a tus necesidades.

Aquí tienes:

KeyName = "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
ValName = "Mi aplicacion"
ValData = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%APPDATA%") & "\Carpeta\Aplicacion.exe"
 
CreateObject("WScript.Shell").RegWrite KeyName & ValName, ValData

No he dicho que no te crea, de hecho no he dicho nada al respecto sobre eso xD, solo digo que es imposible que se llame dos veces a si mismo.

El video es privado.

Saludos

Olvida los virus.


Te está diciendo que el problema está en el caracter número 1 de la línea número 1,
Ese error solo puede deberse a una de estas dos razones:

1. Has modificado el código y has agregado un caracter no valido al principio del código.
2. Has guardado el script en una codificación distinta a ANSI, y no reconoce el primer caracter del texto porque se ha convertido a UTF-8(por ejemplo)

Asegúrate de guardar el script.vbs en codificación ANSI.

Saludos!

XDDD +1

Yo me percaté que el Notepad de Windows 7 tiene un pequeño bug (Bueno, en realidad es una limitación de la aplicación, pero para mi es un bug inentendible en toda regla), pero lo han reparado en Windows 8.
(Lo que pasa es que el ajuste de línea y la barra de estado no pueden estar activas al mismo tiempo en el notepad de Win7, algo que no es nada productivo, la verdad)

+1 a la noticia, Microsoft perderá dinero, y los que solo saben usar productos de Microsoft (IE) agradecerán que estas aplicaciones sean más estables y fiables en el futuro

Saludos!.

hmmm...

La verdad es que no encuentro información al respecto sobre ese extraño error.

¿Usas un Windows modificado? (Lease Windows SuperLite, etc)

En lugar de usar "wscript.exe" en el código que te dije, prueba con "cscript.exe", ¿Te funciona?.

Me parece que algo falla en tu WScript, prueba a repararlo con estos tres comandos diréctamente en la CMD:

Gracias Nov

El captcha te lo pide la web de freenode, no el protocolo IRC.
no es necesario, pruébalo xD...