Fenêtre 'erreur fatale'

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 121 fois - Téléchargée 60 fois

Contenu du snippet

Voici comment faire apparaître la petite fenêtre blanche que tout le monde a déjà rencontré mais cette fois sans aucun danger : il faut utiliser l'api : FatalAppExitA qui porte bien son nom d'ailleurs.

Mettez ce code dans un formulaire :

Source / Exemple :


Private Declare Sub FatalAppExit Lib "kernel32" Alias "FatalAppExitA" (ByVal uAction As Long, ByVal lpMessageText As String)

Private Sub Form_Load()
FatalAppExit 0, "Contactez le revendeur de ce programme" & vbLf & vbLf & "(Cette source provient de www.vbfrance.com)"
End Sub

Conclusion :


C'est aussi simple que celà

A voir également

Ajouter un commentaire Commentaires
9112
Messages postés
24
Date d'inscription
mercredi 8 août 2007
Statut
Membre
Dernière intervention
8 septembre 2009

1 déc. 2008 à 17:28
Pas très utile mais bon XD
Sa peut être rigolo de s'éclater a faire des peurs bleues a des gens ou s'amuser a faire des trucs dénués de tout interet (pour s'amuser).
Mais plus d'humour dans ton code serait mieux XD du style :
Windows a décidé de planter de manière intempestive parce qu'il adore ça XD
Whiterabbit83
25 juin 2001 à 20:33
Faites attention quand vous l'utilisez avec un projet executé sous vb, ce dernier se ferme automatiquement.
Pour éviter ça, compilez vos projets avant de les executer si vous utilisez ce genre d'APIs

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.