- Joined
- Jul 11, 2020
- Messages
- 0
- Reaction score
- 26
- Points
- 0
Hey,
dieses Thema habe ich noch nirgendwo anders gesehen, also fange ich mal an.
Es ist teilweise ziemlich unspektakulär, allerdings gut zu wissen, dass solche Sachen funktionieren und wie sie funktionieren.
Keyboard Light Trick
Dateityp: .vbs
Code:
Anmerkungen: Wird womöglich von eurem Antivirus Programm erkannt ("Joke.VBS")
Optical Disk Drive Trick
Dateityp: .vbs
Code:
Anmerkungen: Wird womöglich von eurem Antivirus Programm erkannt ("Joke.VBS")
Fake Error Message
Dateityp: .vbs
Code:
Anmerkungen: Das "0+16" kann durch folgendes ersetzt werden:
Matrix Breakout
Dateityp: .bat
Code (Variante 1):
Code (Variante 2):
Anmerkungen: -
Notepad Diary
Dateityp: egal - am besten ".txt"
Code:
Anmerkungen: Dieser Code fügt bei jedem Öffnen der Datei das aktuelle Datum und die Zeit ein.
Guessing Game
Dateityp: .bat
Code:
Anmerkungen: Ein Ratespiel falls euch mal langweilig sein sollte.
Passwort Generator
Dateityp: .bat
Code:
Anmerkungen: Dieser Generator kann aktuell nur Zahlen generieren, man kann den Code aber beliebig modifizieren.
Text to Speech
Dateityp: .vbs
Code:
Anmerkungen: Der eingegebene Text wird von einer Computerstimme ausgesprochen.
Die Sprache basiert auf eurer Systemsprache. Wenn ihr z.B. Englisch eingestellt habt, dann spricht der Computer auf Englisch den Text aus.
Shutdown with Message
Dateityp: .bat
Code:
Anmerkungen: In einem LAN-Netzwerk könnt ihr auch "shutdown -i" verwenden.[/SIZE][/SIZE][/SIZE][/SIZE][/SIZE][/SIZE]
dieses Thema habe ich noch nirgendwo anders gesehen, also fange ich mal an.
Es ist teilweise ziemlich unspektakulär, allerdings gut zu wissen, dass solche Sachen funktionieren und wie sie funktionieren.
Keyboard Light Trick
Dateityp: .vbs
Code:
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")
[SIZE=4]do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
Optical Disk Drive Trick
Dateityp: .vbs
Code:
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7")
[SIZE=5]Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count -1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop
Fake Error Message
Dateityp: .vbs
Code:
Code:
x=msgbox("Your Message Here", 0+16, "Your Title Here")
0-Nur OK Button
1-OK&Abrechen
2-Abrechen,Wiederholen & Ignorieren
3-Ja,Nein & Abrechen
4-Ja & Nein
5-Wiederholen & Abrechen
Symbole:
16-Kritische Nachricht
32-Warnmeldung
48-Warnung
64-Info-Nachricht
1-OK&Abrechen
2-Abrechen,Wiederholen & Ignorieren
3-Ja,Nein & Abrechen
4-Ja & Nein
5-Wiederholen & Abrechen
Symbole:
16-Kritische Nachricht
32-Warnmeldung
48-Warnung
64-Info-Nachricht
Matrix Breakout
Dateityp: .bat
Code (Variante 1):
Code:
@echo off
[SIZE=5]color 02
:start
echo %random% %random% %random% %random% %random% %random% %random% %random% %random% %random%
goto start
Code:
@echo off
:a
color 2
echo 1 1 1 0 1 0 0 0 1 1 1 1 0 0 0 1 1 0 0 1 0 0 0 1 1 0 1 0 1 0 0 0 1 1 1 1
ping localhost -n 1 > nul
echo 1 1 0 1 1 1 0 0 0 1 0 1 a f h 0 0 0 1 0 1 1 0 0 1 1 1 0 0 1 0 1 0 0 1 1 0
echo 1 0 0 1 1 0 9 8 1 2 0 1 9 9 2 1 1 1 0 0 1 0 1 1 1 0 1 1 0 1 0 0 0 1 0 1 1
ping localhost -n 1 > nul
echo 0 1 0 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 1 0 1 0 0 0 01 0 1 0 0 1 0
ping localhost -n 1 > nul
echo 1 0 1 1 1 0 1 1 0 9 1 1 2 1 1 0 9 1 0 5 7 7 8 7 8 1 3 2 1 2 1 2 3 2 1 3 4
ping localhost -n 1 > nul
echo 1 1 1 0 1 0 0 1 0 0 0 1 1 1 0 0 1 1 1 4 1 2 1 1 2 0 1 0 1 2 2 1 0 1 1 0 1
goto a
Notepad Diary
Dateityp: egal - am besten ".txt"
Code:
Code:
.LOG
Guessing Game
Dateityp: .bat
Code:
Code:
@echo off
[SIZE=5]color 0e
title Guessing Game by seJma
set /a guessnum=0
set /a answer=%RANDOM%
set variable1=surf33
echo -------------------------------------------------
echo Welcome to the Guessing Game!
echo.
echo Try and Guess my Number!
echo -------------------------------------------------
echo.
:top
echo.
set /p guess=
echo.
if %guess% GTR %answer% ECHO Lower!
if %guess% LSS %answer% ECHO Higher!
if %guess%==%answer% GOTO EQUAL
set /a guessnum=%guessnum% +1
if %guess%==%variable1% ECHO Found the backdoor hey?, the answer is: %answer%
goto top
:equal
echo Congratulations, You guessed right!!!
echo.
echo It took you %guessnum% guesses.
echo.
pause
Passwort Generator
Dateityp: .bat
Code:
Code:
@echo off
[SIZE=5]:Start2
cls
goto Start
:Start
title Password Generator
echo I will make you a new password.
echo Please write the password down somewhere in case you forget it.
echo ----------------------------------------¬-----------------------
echo 1) 1 Random Password
echo 2) 5 Random Passwords
echo 3) 10 Random Passwords
echo Input your choice
set input=
set /p input= Choice:
if %input%==1 goto A if NOT goto Start2
if %input%==2 goto B if NOT goto Start2
if %input%==3 goto C if NOT goto Start2
:A
cls
echo Your password is %random%
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:Exit
exit
:B
cls
echo Your 5 passwords are %random%, %random%, %random%, %random%, %random%.
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
:C
cls
echo Your 10 Passwords are %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%, %random%
echo Now choose what you want to do.
echo 1) Go back to the beginning
echo 2) Exit
set input=
set /p input= Choice:
if %input%==1 goto Start2 if NOT goto Start 2
if %input%==2 goto Exit if NOT goto Start 2
Text to Speech
Dateityp: .vbs
Code:
Code:
Dim message, sapi
[SIZE=5]message=InputBox("What do you want me to say?","Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
Die Sprache basiert auf eurer Systemsprache. Wenn ihr z.B. Englisch eingestellt habt, dann spricht der Computer auf Englisch den Text aus.
Shutdown with Message
Dateityp: .bat
Code:
Code:
@echo off
Shutdown.exe -s -t 10
cls
msg * your message here!