Problème "end" attendu

Problème "end" attendu - VB/VBA/VBS - Programmation

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
Reply

Marsh Posté le 31-05-2017 à 13:51:24   

Reply

Marsh Posté le 31-05-2017 à 18:27:43    

Salut,
 
Oui il manque au moins 40 End if


---------------

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed