Scherzprogramm in VB

[Toasterfraktion]

Hallo,
dies ist ein kleiner Scherzcode:

Code:

for i=1 to 10
x = msgbox ("Hallo, du befindest dich auf Toasterfraktion.de ", 0+16 , "Toast4you") & i
next

Als Datei mit der Endung .vbs speichern und ausführen, du kannst die Anzahl der Ausführungen auch erhöhen!

Gruß,
Toasterfraktion

[Google]

[adrian]

Das ist doch noch gar nichts!

---

Ich habe ein VBS-Skript geschrieben, das mit Hilfe der Speech API von Windows XP/Vista einen Lehrer (oder jemanden anderen) verarschen kann

Code:

'**********************************

' Lehrerverarschung.vbs 1.00

' Copyright (c) by Adrian Jablonski


'**********************************



Option Explicit

'Variablendeklaration

Dim ausgabe
Dim question
Dim i
Dim answ

Dim lehrername 'Der Name des Lehrers
Dim hackername 'Der Name von dir

'Gib hier den Name des Lehrers und deinen Hackernamen ein

lehrername = "<Text ersetzen>"
hackername = "<Text ersetzen>"

Set ausgabe = CreateObject("SAPI.SpVoice") 'Verbindung zur Speech API herstellen


question = InputBox("Geben Sie die Zeit an, wie lange das Skript warten soll:" & vbCrLf & "(in Millisekunden)") ' Wiel lange soll das

Skript warten?

If question = "" Then 'Falls keine Eingabe, dann beenden

    WScript.Quit


ElseIf IsNumeric(question) Then 'Falls Eingebe eine Ziffer, dann warte.
    
    WScript.Sleep question

Else 'Falls irgend eine Eingabe, dann beenden

    WScript.Quit

End If

ausgabe.Speak "Hello! You have got a message from " & hackername & " who is a hacker!"

WScript.Sleep 500 'halbe Sekunde warten

ausgabe.Speak "Ha ha ha ha ha! You've been powned!"

i = 0 'Zählervariable deklarieren
Do 'Schleife

'Fehlermeldung anzeigen

answ = MsgBox ("Stop:" & vbTab & "0xD9FF9711" & vbCrlf & "Details:" & vbTab & "A " & lehrername & " was found in this memory cell."

& vbcrlf & "Cause:"& vbTab & "He is a stupid teacher." & vbCrlf & vbcrlf & "Press OK to continue.", vbAbortRetryIgnore + vbCritical +

vbSystemModal, "Error")

Select Case answ ' Alle drei Schältflächen-Moglichkeiten behandeln

    Case vbIgnore: ' Ignorieren
ausgabe.Speak "Do not ignore that you are stupid!"


    Case vbRetry ' Wiederholen
ausgabe.Speak "Oh, do you want to be a stupid teacher again?"


    Case vbAbort ' Abbrechen
ausgabe.Speak "You cannot cancel this Program! Ha ha ha ha ha!"


End Select

i = i + 1 ' Zähler erhöhen

Loop Until i = 10 ' Insgesamt 11 mal ausführen

ausgabe.Speak "Oh no! You have cancelled me! But I'll get you soon!"

---

Bild:

[Toasterfraktion]

Hehe cool, das ist wirklich fieß!:irre: Kannst du es so umbauen dass es sich in den Autostart einfügt?

Gruß,
Toasterfraktion

[adrian]

Man kann ja ein zweites Skript dafür schreiben...

[Toasterfraktion]

Achso, ja das könnte man dann gut mit ner .batch machen :-P

[adrian]

Das beste ist immer noch die Betonung von "ha ha ha ha ha"!

[Toasterfraktion]

ja, stimmt!

So könnte man die Datei die man ausführt, also hier eine .bat in den Autostart kopieren, könnte man nicht einfach die .vbs in einen bestimmten Ordner kopieren und in den Autostart kopieren?

Code:

IF NOT EXIST "%USERPROFILE%\STARTM~1\PROGRA~1\AUTOST~1\scherz.bat" (
copy "%~0" "%USERPROFILE%\STARTM~1\PROGRA~1\AUTOST~1\scherz.bat"
)