This page is for more advanced coding, also known as VBS files. To use, replace .bat with .vbs! These files are more complex, thus making them COOLER. Emphasis on the more complex part of it though.
Ask someone if they are crazy or not! You can change the answers if you understand how...
dim result
result = msgbox("Are you crazy?", 4 , "Select yes or no")
If result=6 then
msgbox "Darn."
msgbox "Well... Darn."
msgbox ":("
msgbox "lol"
msgbox "what is this even."
else
msgbox "Thats good!"
end if
This one is pure evil. When run, it will spam the Volume Up buttons, while also making narrator say "i am not cool" on a loop.
Set oShell = CreateObject("WScript.Shell")
do
oShell.run"%SystemRoot%\System32\SndVol.exe "'Runs The Master Volume App.
WScript.Sleep 1500 'Waits For The Program To Open
oShell.SendKeys("{PGUP}")'Turns Up The Volume 20, If It Is Muted Then It Will Unmute It
oShell.SendKeys("{PGUP}")'Turns Up The Volume 20
oShell.SendKeys("{PGUP}")'Turns Up The Volume 20
oShell.SendKeys("{PGUP}")'Turns Up The Volume 20
oShell.SendKeys("{PGUP}")'Turns Up The Volume 20
oShell.SendKeys"%{F4}"' ALT F4 To Exit The App.
Set oVoice = CreateObject("SAPI.SpVoice")
set oSpFileStream = CreateObject("SAPI.SpFileStream")
oSpFileStream.Open "C:\Windows\Media\Notify.wav"
oVoice.SpeakStream oSpFileStream
oSpFileStream.Close
oVoice.Speak "i am not cool"
loop
This one is simple. Text box appears, type something in, narrator will attempt to say it! heh...
Dim text, sapi
text=inputbox("dank")
Set sapi=Createobject("sapi.spvoice")
sapi.Speak text
This one doesn't work on most laptops. Only desktops, really, and only if they have a CD drive. But, if they do... It continuously pops out and pulls back in the CD tray.
do
Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
strDriveLetter = ""
For intDriveLetter = Asc("A") To Asc("Z")
Err.Clear
If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
If Err.Number = 0 Then
strDriveLetter = Chr(intDriveLetter)
Exit For
End If
End If
Next
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
For d = 0 to colCDROMs.Count - 1
colCDROMs.Item(d).Eject
Next 'null
set owmp = nothing
set colCDROMs = nothing
loop
MWAHAHAHA! This one spam presses Caps lock, Number lock, and Scroll lock. Some crazy stuff!
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop
This is already kind of a lot of code, to be honest. A coder's DREAM. So, please help support me. I don't mean to pay me money, just tell your friends about this website! ALSO, if anyone tries to block the website, guess what? The website link changes. And BAM! It is back! WOOOOOHOOOO!!!
Copyright ShrekSwamp
