J'ai fait un vbs pour effrayer un ami mais je n'arrive pas à le terminer (Je débute en vbs ^^)
msgbox "Bonjour ca va ?" msgbox "Dis moi si ça va pas" msgbox "ou je vais me faire voir ?" msgbox "Ok ..." msgbox " tu n'es pas très sympa ..." msgbox "Salow va ... Appuie plus sur ok" msgbox "TU VA MOURIR" CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat" msgbox "Sa fais moi le malin ^^" rep = Msgbox ("Allez tu dégage maintenant ... STP ?", vbYesNo, "Install" ) If (rep = vbYes) then Msgbox "Merci !" end If If (rep = vbNo) then rep = Msgbox ("Tu va pas commencer a faire le malin ?", vbYesNo, "Install" ) If (rep = vbYes) then Msgbox "C'est bien cou-couche panier !" End If If (rep = vbNo) then msgbox "OK tu m'as énervé, je lance le hack" CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat" CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat" rep = Msgbox ("Tu es content ?", vbYesNo, "Install" ) If (rep = vbYes) then Msgbox "Nickel parfait !" end If If (rep = vbNo) then msgbox "tu me soule ..."
End if
Merci de votre aide !
Message édité par clementinise le 31-05-2017 à 13:52:40
Marsh Posté le 31-05-2017 à 13:51:24
J'ai fait un vbs pour effrayer un ami mais je n'arrive pas à le terminer (Je débute en vbs ^^)
msgbox "Bonjour ca va ?"
msgbox "Dis moi si ça va pas"
msgbox "ou je vais me faire voir ?"
msgbox "Ok ..."
msgbox " tu n'es pas très sympa ..."
msgbox "Salow va ... Appuie plus sur ok"
msgbox "TU VA MOURIR"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
msgbox "Sa fais moi le malin ^^"
rep = Msgbox ("Allez tu dégage maintenant ... STP ?", vbYesNo, "Install" )
If (rep = vbYes) then
Msgbox "Merci !"
end If
If (rep = vbNo) then
rep = Msgbox ("Tu va pas commencer a faire le malin ?", vbYesNo, "Install" )
If (rep = vbYes) then
Msgbox "C'est bien cou-couche panier !"
End If
If (rep = vbNo) then
msgbox "OK tu m'as énervé, je lance le hack"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
CreateObject("Wscript.Shell" ).Run "C:\Users\FER-14729910\Desktop\bug.bat"
rep = Msgbox ("Tu es content ?", vbYesNo, "Install" )
If (rep = vbYes) then
Msgbox "Nickel parfait !"
end If
If (rep = vbNo) then
msgbox "tu me soule ..."
End if
Merci de votre aide !
Message édité par clementinise le 31-05-2017 à 13:52:40