Coding spel med Vbs (1 / 3 steg)
Steg 1: koden
koden
göra
x = msgbox ("Tryck inte på", 0, "fel")
x = msgbox ("* ahem * jag SAID inte trycker på", 0, "Fel")
x = msgbox ("... DU TRYCKTE DEN IGEN." & vbCrLf & "OK PUNK, tryck på den igen.", 0, "Fel")
x = msgbox ("YEAH, det är det.." & vbCrLf & "Kom igen, en mer tid.", 0, "Fel")
x=MsgBox("Again.",0,"Error")
x = msgbox ("göra det.", 0, "Fel")
x = msgbox ("Okej, nu du har fått ditt lystmäte." & vbCrLf & "STOP klicka!", 0, "Fel")
x = msgbox ("Du ser, det är därför vi inte kan vara vänner.", 0, "fel")
x = msgbox ("Du är bara för självisk.", 0, "fel")
x = msgbox ("Grrr... nu har du bett om den." & vbCrLf & "Tryck inte på den OK knappen!", 0, "fel")
x = msgbox ("Du verkar vara immun mot mitt sinne kontroll.", 0, "fel")
x = msgbox ("tid för PLAN B." & vbCrLf & "Tryck på det! du vet att du vill.", 0,"fel")
x = msgbox ("Mhahahahahahaha! Nu ska vi se hur du trycker på den! " & vbCrLf & "LOSER!", 3, "Fel")
x = msgbox ("... detta misshagar mig.", 0, "Fel")
x = msgbox ("... Jag hatar dig.", 0,"fel")
x = msgbox ("i den" skär av huvudet med en "& vbCrLf &" tandborste "slags sätt.", 0, "Fel")
x = msgbox ("Quick, vad är bakom dig!.", 0, "Fel")
x = msgbox ("vilken är det?" & vbCrLf & "Inte så smart nu är ya?!", 2, "fel")
x = msgbox ("Okej, okej. Du kan trycka på OK." & vbCrLf & "Jag inte vård.", 0, "fel")
x = msgbox ("inte egentligen, jag inte bryr mig längre.", 0, "fel")
x = msgbox ("i själva verket jag förlorat intresse nyss.", 0, "fel")
x = msgbox ("Jag gör detta bara för att underhålla dig.", 0, "fel")
x=MsgBox("Really.",0,"Error")
x = msgbox ("Do du gillar tecknad film?", 0, "Fel")
x = msgbox ("... och måla?", 0, "Fel")
x = msgbox ("Tecknade serier och färg?", 0, "fel")
x = msgbox ("Ja du bör.", 0, "Fel")
x = msgbox ("Låt mig använda din internet.", 0, "fel")
x = msgbox ("Du har ett virus.", 0, "fel")
x = msgbox ("se, inte du kan lita på mig." & vbCrLf & "Eller kan du?", 0, "fel")
x = msgbox ("Du vet, jag är glad att vi får" & vbCrLf & "att spendera så mycket tid tillsammans.", 0, "Fel")
x = msgbox ("Gör det du vill stoppa" & vbCrLf & "Klicka OK knappar.", 0, "Fel")
x = msgbox ("inte på allvar.", 0, "Fel")
x = msgbox ("Titta djupt inne i dig.", 0, "Fel")
x=MsgBox("Deeper.",0,"Error")
x=MsgBox("DEEPER!!!.",0,"Error")
x = msgbox ("Tänk om jag sa att nästa" & vbCrLf & "att du trycker på OK, världen" & vbCrLf & "kommer att explodera?", 0, "fel")
x = msgbox ("See.You kunde ha varit" & vbCrLf & "dead rätt där.", 0, "Fel")
x = msgbox ("och där.", 0, "Fel")
x = msgbox ("Du vet, så småningom" & vbCrLf & "Jag ska sluta låta dig komma undan med detta.", 0, "fel")
x = msgbox ("The WORLD kommer att explodera" & vbCrLf & "och allt du bryr dig om är att trycka OK knappar.", 0, "fel")
x = msgbox ("Okej, den här gången världen kommer" & vbCrLf & "explodera. Jag garanti. ", 0,"Fel")
x = msgbox ("BOOM!" & vbCrLf & "Du är död.", 0, "Fel")
x = msgbox ("det inte var mycket smart nu, var det?", 0, "fel")
x = msgbox ("allas döda. även du", 0,"Fel")
x = msgbox ("jag inte. Jag är bara text.", 0,"fel")
x = msgbox ("Men du är död.", 0, "fel")
x = msgbox ("Ha! Döda-face!", 0,"Fel")
x = msgbox ("Stop klickande.", 0, "Fel")
x = msgbox ("Har jag någonsin sagt hur mycket jag hatar dig?", 0, "fel")
x = msgbox ("Jo jag do.", 0, "fel")
x = msgbox ("Jag ska börja prata baklänges" & vbCrLf & "om du klickar på mig en mer tid.", 0, "fel")
x = msgbox ("? uoy nac, vann em daer t'naC! AH", 0,"FEL")
x = msgbox ("Vad du inte vill läsa mig ändå?", 0, "fel")
x = msgbox ("Då jag ska visa dig.", 0, "fel")
x = msgbox ("", 0, "Fel")
x = msgbox ("", 0, "Fel")
x = msgbox ("Du egentligen är envis.", 0, "fel")
x = msgbox ("Stop att klicka! Snälla... ", 0,"FEL")
x = msgbox ("Titta, du har nedsatt mig" & vbCrLf & "till tiggeri. så snälla sluta.", 0,"fel")
x=MsgBox("Please!!!",0,"Error")
x = msgbox ("Jag ska ge dig en nickel.", 0, "fel")
x = msgbox ("Dime?", 0, "Fel")
x = msgbox ("kvartalet?", 0, "Fel")
x = msgbox ("aw kom igen! Bara sluta!", 0,"Fel")
x = msgbox ("Alla rätt...", 0, "fel")
x = msgbox ("Let's get funky!", 48, "fel")
x = msgbox ("Jag slår vad om du börjar undra" & vbCrLf & "varför du har gjort detta" & vbCrLf & "för så länge!", 0, "fel")
x = msgbox ("Jeeze, allt du gjort är" & vbCrLf & "att klicka på en OK knapp.", 0, "Fel")
x = msgbox ("hur lamt är det?", 0, "fel")
x = msgbox ("men det är en bonus till alla här", 0, "Fel")
x = msgbox ("men det är en hemlighet." & vbCrLf & "Så jag inte kan berätta.", 0, "Fel")
x = msgbox ("Jag fick du gå, inte jag?", 0, "fel")
x = msgbox ("Du bör har sett utseendet" & vbCrLf & "i ansiktet! HAHA!", 0,"FEL")
x = msgbox ("men allvarligt, det finns en hemlighet." & vbCrLf & "Det har varit en hela tiden.", 0, "fel")
x = msgbox ("Du har varit upptagen att klicka bort på" & vbCrLf & "detta felmeddelande...", 0, "fel")
x = msgbox ("... När samtidigt en liten osynlig" & vbCrLf & "meddelande har varit att titta på din varje flytta.", 0, "fel")
x=MsgBox("Bugagagahahaha!",0,"Error")
x=MsgBox("hahaha!",0,"Error")
x=MsgBox("Bugagagahahaha!",0,"Error")
x=MsgBox("Bugaga!",0,"Error")
x=MsgBox("haha!",0,"Error")
x=MsgBox("hehe!",0,"Error")
x=MsgBox("lol",0,"Error")
x=MsgBox("ROFL",0,"Error")
x=MsgBox("roflmao",0,"Error")
x=MsgBox("roflmaoqwerty",0,"Error")
x = msgbox ("och så vidare och så vidare", 0, "fel")
x=MsgBox("...",0,"Error")
x=MsgBox("*whistles*",0,"Error")
x = msgbox ("Har du hittat det?", 0, "fel")
x = msgbox ("titta hårdare!" & vbCrLf & det är rakt under din näsa.", 0,"fel")
x = msgbox ("Jag vet var det är." & vbCrLf & "Men jag ska aldrig säga.", 0, "fel")
x = msgbox ("Eller kanske jag kommer...", 0, "fel")
x = msgbox ("men du måste sluta att klicka på den" & vbCrLf & "OK knappen först!", 0, "fel")
x=MsgBox("stop.",0,"Error")
x=MsgBox("Now.",0,"Error")
x = msgbox ("Bra, jag kommer inte berätta" & vbCrLf & "den hemliga.", 0, "Fel")
x = msgbox ("Varsågod. Försök att hitta den själv"& vbCrLf &"Du kommer aldrig hitta den.", 0,"fel")
x = msgbox ("Väl du kan... men oddsen" & vbCrLf & "är mot dig.", 0, "fel")
x=MsgBox("~",0,"Error")
x = msgbox ("Vad är din favorit brev?", 0, "fel")
x = msgbox ("Min är den snirkliga", 0, "fel")
x=MsgBox("~",0,"Error")
x = msgbox ("Inte har hittat det än?", 0, "Fel")
x=MsgBox("no?",0,"Error")
x = msgbox ("stoppa sedan att klicka på och jag ska berätta", 0, "fel")
x = msgbox ("Du vet vad?", 0, "fel")
x = msgbox ("POOF! DET HAR GÅTT!", 3,"FEL")
x = msgbox ("Har någon någonsin slog du?", 0, "fel")
x = msgbox ("Cuz jag vilja.", 0, "Fel")
x = msgbox ("verkligen, jag kommer.", 0, "Fel")
x = msgbox ("Det inte kommer skada ändå.", 0, "fel")
x = msgbox ("Cuz du döda.", 0, "Fel")
x=MsgBox("D-E-A-D",0,"Error")
x = msgbox ("Minns du gick och blåste upp" & vbCrLf & "hela planet!", 0, "Fel")
x = msgbox ("Trodde jag skulle glömma som" & vbCrLf & "inte du?", 0, "Fel")
x = msgbox ("Men en elefant glömmer aldrig!", 0, "fel")
x = msgbox ("... eller något i de linjer.", 0, "Fel")
x = msgbox ("Du dödade alla.", 0, "fel")
x=MsgBox("Sikko",0,"Error")
x = msgbox ("Vad skulle din mamma säga", 0, "fel")
x = msgbox ("det är rätt... känner mig dålig.", 0, "Fel")
x = msgbox ("världen är null och du att skylla.", 0, "fel")
x = msgbox ("Jag skulle rekommendera självmord" & vbCrLf & "men du är död redan.", 0, "fel")
x = msgbox ("så det finns bara en sak kvar" & vbCrLf & "du kan göra...", 0, "fel")
x = msgbox ("Stop att klicka knappen.", 0, "fel")
x = msgbox ("Dude, din död." & vbCrLf & "vad du vinner på detta?.", 0, "Fel")
x = msgbox ("Okej, varje gång du klickar du" & vbCrLf & "få skickad till ett lägre skikt av helvete.", 0, "fel")
x = msgbox ("Välkommen till lager 2.", 0, "fel")
x=MsgBox("3",0,"Error")
x=MsgBox("4",0,"Error")
x=MsgBox("5",0,"Error")
x=MsgBox("6",0,"Error")
x=MsgBox("7",0,"Error")
x=MsgBox("8",0,"Error")
x=MsgBox("9",0,"Error")
x = msgbox ("BOOM!" & vbCrLf & "Youve exploderade helvete.", 0, "fel")
x = msgbox ("Jag hoppas du är nöjd.", 0, "fel")
x = msgbox ("Heaven gone också." & vbCrLf & det är hur smidigt du är.", 0,"fel")
x = msgbox ("nu din död, och det finns" & vbCrLf & "ingen himmel eller helvete", 0, "fel")
x = msgbox ("hur känns det?" & vbCrLf & "Du har fördömde världen att limbo.", 0, "fel")
x = msgbox ("Jag en gång skjutit en man för att vara i limbo.", 0, "fel")
x = msgbox ("... eller gjorde han limbo?", 0, "Fel")
x = msgbox ("Meh, tomat Tomahto", 0, "Fel")
x = msgbox ("Detta blir tråkigt inte är det?", 0, "fel")
x = msgbox ("men du kan inte sluta!" & vbCrLf & "Du bara försöker stänga detta fel meddelande.", 0, "fel")
x = msgbox ("du vill avsluta det här." & vbCrLf & "Du vill lämna...", 0, "fel")
x = msgbox ("Men du kan inte!", 0, "fel")
x = msgbox ("Du måste se om det finns en kruka med guld" & vbCrLf & "vid slutet av regnbågen!", 0, "fel")
x = msgbox ("men jag har redan berättat hur till" & vbCrLf & "hitta kruka med guld", 0, "Fel")
x = msgbox ("Följ den vita kaninen.", 0, "Fel")
x = msgbox ("... erm, OK-knappen.", 0, "Fel")
x = msgbox ("kom ihåg knappen dolda?", 0, "Fel")
x = msgbox ("eller är du så självcentrerad du" & vbCrLf & "glömt om det också?", 0, "fel")
x = msgbox ("Jag kunde bara hålla dig här hela dagen" & vbCrLf & "om jag ville.", 0, "Fel")
x = msgbox ("Du är i min värld nu.", 0, "fel")
x = msgbox ("oavsett hur mycket du" & vbCrLf & "hatar det, du måste trycka OK knappen.", 0, "Fel")
x=MsgBox("Again...",0,"Error")
x = msgbox ("och igen...", 0, "Fel")
x = msgbox ("och igen", 0, "fel")
x = msgbox ("Du bara behålla hoppas något" & vbCrLf & "god vilja komma ur detta.", 0, "fel")
x = msgbox ("Säker jag kunde berätta om jag ville" & vbCrLf & ", men jag tänker inte.", 0, "Fel")
x = msgbox ("du har beslutat att hålla klickande." & vbCrLf & "Så jag kommer att njuta av den.", 0, "Fel")
x = msgbox ("Jag menar, det finns inget annat att njuta av.", 0, "fel")
x = msgbox ("du blåste det upp allt ihåg?", 0, "Fel")
x = msgbox ("du förmodligen undrar vem i am...", 0, "Fel")
x = msgbox ("Ja, låt mig berätta en berättelse om min själv.", 0, "fel")
x = msgbox ("en dag jag gick hem från" & vbCrLf & "och jag såg en liten liten hus.", 0, "fel")
x = msgbox ("jag knackade på dörren ur curiosety." & vbCrLf & "för att se om någon var hem.", 0, "Fel")
x = msgbox ("det dörren öppnat!", 0, "Fel")
x = msgbox ("Men ingen var där.", 0, "fel")
x = msgbox ("Jag gick in till check den ute" & vbCrLf & "och hittade ingenting...", 0, "fel")
x = msgbox ("ingenting annat än en tom dator fall.", 0, "Fel")
x = msgbox ("Så jag öppnade den.", 0, "fel")
x = msgbox ("Insidan fallet var ett lager" & vbCrLf & "skum skydda dess innehåll.", 0, "fel")
x = msgbox ("jag bort skummet och där var det...", 0, "fel")
x=MsgBox("...",0,"Error")
x = msgbox ("......", 0, "Fel")
x=MsgBox("ZZZZZzzzzz",0,"Error")
x=MsgBox("zzzzzZZZZZzzzzz",0,"Error")
x=MsgBox("ZZzZZzzZzzZZzZZ",0,"Error")
x=MsgBox("huh?",0,"Error")
x = msgbox ("Oh! Rätt! Berättelsen", 0,"Fel")
x = msgbox ("så det jag, höll" & vbCrLf & "denna dator fall i min händer.", 0, "fel")
x = msgbox ("toppen var öppen och sitter" & vbCrLf & "inuti var detta...", 0, "fel")
x = msgbox ("Felmeddelande och OK-knappen", 0, "fel")
x = msgbox ("Och vet du vad den sa?", 0, "fel")
x = msgbox ("Åh, jag ska berätta vad det sagt." & vbCrLf & "The felmeddelande sa...", 0, "Fel")
loop