Qui connesse des codes pour pour faire de blage en VBRésolu

Question

@§§§FearME§§§@









 




Qui connaisse des codes pour pour faire de blague en VB exemple
inversé le sens de souri



 




L’apparition est disparition de barre des tache ou quelque
code de faux virus jé télécharger quelque blague en vb mai je cherche la source

gillardg · Accepted Answer

imagine , crée , invente , réfléchis

mortalino · Answer

salut,

bien que ce ne soit pas spécialement 'drôle' :
APIs SetCursorPos, Mouse_Event, Keybd_event.. y'en a plein d'autres

Mais sans être méchant, et désolé si ça ne te plait pas, mais j'espère franchement que tu arriveras avec ces API en testant, à planter ta propre machine, tu sauras ce que ressentiront tes 'amis' qui auront ces fameuses mauvaises blagues

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

jihednond · Answer

@§§§FearME§§§@


merci [auteur/MORTALINO/647037.aspx mortalino] Pour me soutenir franchement je n’ai pas peur d’essai de
test sur mon pauvre ordinateur tout sorte de truc en programmation  des virus logiciel malveillant est les supprimer
manuellement Et fournir des logiciel qui assure le bon fonctionnement de la machine
avec les commande DOS mes source serrant bientôt diffuser sur le site…. La programmation
et un art des magicien

jmfmarques · Answer

Bon, tu es attendrissant ...


Alors une toute douce et pas méchante du tout ...


Juste pour apprendre à cliquer ...


Bien innocente... avec un bouton de commande Command1 sur ta Form



Private toto As String, titi As String, tata As String, n As Integer
Private Sub Command1_Click()
  titi = "on va jouer ensemble"
  toto = "tu vas aimer"
  Dim i As Integer
  While Not toto = titi
    For i = 1 To Len(toto) + Len(titi)
      Shell ("notepad.exe")
    Next    If n And 1 Then tata titi Else tata toto
    MsgBox "t'aimes cliquer ?" & vbCrLf & _
    "clique maintenant (entraîne-toi)" & vbCrLf & tata
    n = n + 1
  Wend
End Sub

jihednond · Answer

@§§§FearME§§§@


c un joli code merci mes 
j'ai un truc plus méchant 
creé un ficher.bat appler le arréter et ecrit ce code  :  shutdown -s -t 0 
enregiter le arréter.bat et executer le avec un shell su vb 

Private Sub Command1_Click()
Call Shell("c:\arréter.bat")
End Sub

gillardg · Answer

http://www.vbfrance.com/codes/BLAGUE-VOS-AMIS_34596.aspx


http://www.vbfrance.com/codes/INVERSER-SENS-SOURIS_34517.aspx


http://www.vbfrance.com/codes/PETITE-BLAGUE-VB-INTEGRANT-NOTIONS-INTERESSANTES-NOMMEE-WINTOOLS32_34494.aspx


http://www.vbfrance.com/codes/PTIZIZI-FO-VIRUS-MARRANT-SUITE-SUCCES-1ER-FAIT_2112.aspx

cs_hackoo · Answer

-L'apparition et la disparition de barre des tache tu le trouve dans le module taskbar.bas
-comment inverser l'écran et d'autre truc a vous de les découvrir bonne programmation.
http://www.vbfrance.com/codes/BANG-BANG-SHOOTEZ-DANS-VOTRE-ECRAN_49710.aspx

cs_hackoo · Answer

-L'apparition et la disparition de barre des tache tu le trouve dans le module taskbar.bas
-comment inverser l'écran et d'autre truc a vous de les découvrir bonne programmation.
http://www.vbfrance.com/codes/BANG-BANG-SHOOTEZ-DANS-VOTRE-ECRAN_49710.aspx

cs_hackoo · Answer

'J'ajoute un petit truc du code poster par jmfmarques ci-dessus
Private toto As String, titi As String, tata As String, n As Integer
'--------------------------------------------------------------------
Private Sub Command1_Click()
  titi = "on va jouer ensemble"
  toto = "tu vas aimer"
  Dim i As Integer
  While Not toto = titi
    For i = 1 To Len(toto) + Len(titi)
      Shell ("notepad.exe")
    Next
    If n And 1 Then tata titi Else tata toto
    MsgBox "t'aimes cliquer ?" & vbCrLf & _
    "clique maintenant (entraîne-toi)" & vbCrLf & tata
    Call Parler
    n = n + 1
  Wend
End Sub
'-----------------------------------------------------------
Private Sub Parler()
Dim V
Set V = CreateObject("Sapi.SpVoice")
V.speak " STUPID and very very stupid! hOOHAAAAAA"
Set V = Nothing
End Sub
'-----------------------------------------------------------

cs_hackoo · Answer

'J'ajoute un petit truc du code poster par jmfmarques ci-dessus
Private toto As String, titi As String, tata As String, n As Integer
'--------------------------------------------------------------------
Private Sub Command1_Click()
  titi = "on va jouer ensemble"
  toto = "tu vas aimer"
  Dim i As Integer
  While Not toto = titi
    For i = 1 To Len(toto) + Len(titi)
      Shell ("notepad.exe")
    Next
    If n And 1 Then tata titi Else tata toto
    MsgBox "t'aimes cliquer ?" & vbCrLf & _
    "clique maintenant (entraîne-toi)" & vbCrLf & tata
    Call Parler
    n = n + 1
  Wend
End Sub
'-----------------------------------------------------------
Private Sub Parler()
Dim V
Set V = CreateObject("Sapi.SpVoice")
V.speak " STUPID and very very stupid! hOOHAAAAAA"
Set V = Nothing
End Sub
'-----------------------------------------------------------

jihednond · Answer

@§§§HIhihihi§§§@


merci pour la source ....c trop cool

Qui connesse des codes pour pour faire de blage en VB

11 réponses

Votre réponse

Discussions similaires