Fenêtre 'erreur fatale'

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 008 fois - Téléchargée 58 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
Messages postés
24
Date d'inscription
mercredi 8 août 2007
Statut
Membre
Dernière intervention
8 septembre 2009

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

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.