Estoy probando esto de crear scripts en VBS y leí en un lado que se pueden encriptar los códigos que tu hagas para que cuando alguien más lo abra (el archivo) no verá el código, pero si se ejecutará el script normalmente.
Leí también que era con un programa de encrypt, pero dicen que ya no se descarga de la página de Microsoft sino que viene embebido ahora con la instalación del windows.
Con el programa se supone que se encripta usando la sentencia
screnc <fichero.vbs> <fichero.vbe>
desde cmd
y esto generaba otro archivo con el script encriptado...
Estuve buscando y me decían que usara el siguiente código:
Set encode = CreateObject("Scripting.Encoder")
encode asd.vbs aaaa.vbe
Pero no funciona, sale el siguiente error:
Secuencia de comandos: [Aquí dice pues la ruta de mi archivo .vbs que quiero ejecutar]
Línea: 2
Carácter: 16
Error: Se esperaba instrucción final de instrucción
Código: 800A0401
Origen: Error de compilación de Microsoft VBScript
Y ya, no hace nada :/
Adicional (Solo si alguien sabe) quisiera saber cómo cambiar el icono que aparece en la ventana de un dialog que genero:
U ocultarlo no sé; Este aparece solo cuando uso la sentencia vbSystemModal
en la creación del Msgbox, el código que uso para generar el dialog es esté:
Acepta = Msgbox(Mensaje, vbYesNo+vbQuestion+vbSystemModal, Titulo)
Y no sé si se podrá cambiar este icono también, información sobre eso si no he encontrado.