Ce code fouille sur "C" a la recherche de sons WAV. Puis il les lis aleatoirement d'une facon plus ou moins enervante : Simple lecture, lecture en boucle ou lecture mitraillette. Ce code fait aussi un effet graphique sur le bureau et joue parfois du code morse au haut parleur interne du PC.
A vous de savoir le placer dans le repertoire DEMARRAGE du PC que vous voulez embeter...
ps : le rythme semble peu soutenu mais imaginez ce code tourner TOUS LES JOURS sur le PC de la victime !! Egalement, tout depend du nombre de fichiers WAV present sur le lecteur C ! Plus il y en a, plus ca joue.
ENJOY :
Code : Tout sélectionner
;
; ------------------------------------------------------------
;
; Fichier caché qui joue aleatoirement des WAV
; plus il y a de fichiers WAV sur C: , plus il y aura de sons joués
; compiler et mettre l'EXE dans le menu "DEMARRAGE" de windows =)
;
; ------------------------------------------------------------
;
If InitSound() = 0
End
EndIf
ExamineDesktops()
d$="c:\"
Dim dossier$(999)
dossier=0
Debug ("=========")
Debug ("Bon, on cherche 999 liens sur le diskdur")
While dossier<1000
If ExamineDirectory(0, d$, "*.*")
Repeat
FileType = NextDirectoryEntry()
If FileType
FileName$ = DirectoryEntryName()
If FileType = 2 And FileName$<>"." And FileName$<>".." And dossier<1000
dossier$(dossier)=d$+FileName$+"\"; on memorise les repertoires de C
Debug dossier$(dossier)
dossier+1
Delay(1) ; pause pour ne pas prendre 100% du processeur
EndIf
EndIf
Until FileType = 0
EndIf
d$=dossier$(Random(dossier-1)) ; on refouille plus profondement et de facon aleatoire
Wend
;;;;;;;;;;;;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;
Repeat; forever
jouer=30+Random(50); rythme normal
combien=Random(10)
If Random(20)=0; parametres pour un rythme enervant
jouer=4+Random(15)
combien=2+Random(2)
EndIf
;********************
;********************
;********************
;********************
For u=0 To combien
lu=0
vitesse=200+Random(10000)
For i=0 To 999
If ExamineDirectory(0, dossier$(i), "*.wav") ; on va jouer quelques WAV de ce repertoire
Repeat
FileType = NextDirectoryEntry()
If FileType
FileName$ = DirectoryEntryName()
If FileType = 1 And Random(jouer)=0
If LoadSound(lu, dossier$(i)+FileName$)
poids = FileSize(dossier$(i)+FileName$)
If poids>200
If Random(12)=0
PlaySound(lu,1); lecture repere pour bien enerver
Delay(3000+Random(poids/4))
Else
If Random(10)=1
b=Random(20)+5
For m=0 To b
PlaySound(lu,0); lecture simple
Delay(10+Random(poids/14))
If b=5
Delay(Random(30000))
EndIf
Next m
EndIf
EndIf
PlaySound(lu,0); lecture simple pour couper d'eventuelle lecture répétée
Delay(Random(vitesse)+poids/10) ; pause le temps de la lecture
lu+1
If lu>2
lu=0
EndIf
If Random(10)=1
Delay(Random(10000)); pause possible pour casser le rythme
EndIf
EndIf
EndIf
EndIf
EndIf
Until FileType = 0
EndIf
Next i
;;;;;;;;; ouverture et fermeture de fenetres =)
If Random(3+combien)=0
For n=0 To 70
a=Random(200)+50
If OpenWindow(n,Random(DesktopWidth(0))-30,Random(DesktopHeight(0))-30,a,a, #PB_Window_BorderLess, "")
If StartDrawing(WindowOutput())
Box (0,0,a,a,RGB(Random(255),Random(255),Random(255)))
StopDrawing()
EndIf
Beep_(400+n*40,10)
EndIf
Next
For n=0 To 70
CloseWindow(n)
Beep_(3200-n*45,10)
Next
EndIf
;;;; fin de fermeture de fenetres =)))
Next u
;********************
;********************
;********************
;********************
Delay(Random(500000)) ; pause
If Random(5)=1 ; immitation code morse par le haut parleur integré
a=Random(400)+800
Repeat
Beep_(a,(1+Random(1))*40)
Delay((1+Random(1))*60)
If Random(10)=1
Delay((1+Random(1))*60)
If Random(20)=1
Delay(Random(5000))
EndIf
EndIf
Until Random(200)=1
EndIf
ForEver
