[Admin]kAy2
AdministratoR
![[Admin]kAy2](https://2img.net/u/2913/14/83/56/avatars/2-24.png)
Posts : 9
Join date : 2010-05-21
Character
 Ragna TheBloodEdge:
![[Share]Notepad Pranks/Codes Left_bar_bleue](https://2img.net/i/fa/i/left_bar_bleue.jpg)  ![[Share]Notepad Pranks/Codes Empty_bar_bleue](https://2img.net/i/fa/i/empty_bar_bleue.jpg)  (1000/1000)
![[Share]Notepad Pranks/Codes Empty](https://2img.net/i/empty.gif) |  Subject: [Share]Notepad Pranks/Codes ![[Share]Notepad Pranks/Codes Icon_minitime](https://2img.net/i/fa/icon_minitime.gif) Sun May 23, 2010 11:01 pm | |
| VBS CODES~~~~~~Talking- Spoiler:
StrText=("Goodbye")
set ObjVoice = CreateObject("SAPI.SpVoice")
ObjVoice.Rate=-3
ObjVoice.Speak StrText
Ghost Typing- Spoiler:
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "Notepad"
wscript.sleep 2000
wshshell.AppActivate "Notepad"
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "HA"
WScript.Sleep 500
WshShell.SendKeys "LOL!"
WScript.Sleep 500
Error Popup- Spoiler:
X = MsgBox("GIVE ME ALL YOUR SPRITES NOW!!",0+16, "Dick Riding Whore!")
Never Ending Popups - Spoiler:
msgbox "Don't"
msgbox "You"
msgbox "Hate"
msgbox "It"
msgbox "the pop ups like"
msgbox "This"
msgbox "Happens?"
do
msgbox "ASS HOLE!"
loop
==> REMINDER USE ALT + CTRL + DEL to stop it or you can remove the word "do "msgbox "ASS HOLE!" "loop so the ass HOLE thing won't sh0w up.. BackSpace non-stop- Spoiler:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
ENTER OVER AGAIN- Spoiler:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Obnoxious CaPs- Spoiler:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
CD Tray Pop OVER AND OVER- Spoiler:
Set oWMP = CreateObject("WMPlayer.OCX.7")
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 100
loop
Shut Down Comp- Spoiler:
set wshshell = wscript.CreateObject("wscript.shell")
wshshell.run "shutdown.exe -s -t 6"
wscript.sleep 2000
____________________________________ Rep+ If liked / Rep - If it sucks. I'll accept it..____________________________________ You can also combine codes like this... - Spoiler:
X = MsgBox("GIVE ME ALL YOUR SPRITES NOW!!",0+16, "Dick
Error pop up and Never Ending Popups...
Riding Whore!")
do
X = MsgBox("GIVE ME ALL YOUR SPRITES NOW!!",0+16, "Dick
Riding Whore!")
loop
REMINDER AGAIN !!! USE ATL + CTRL + DEL TO STOP IT...
If you want more codes in notepad open the spoiler...This one is you type the word and it will voice it out... save as .vbs- Spoiler:
'************************
'* X BiLe
'* Local Talk Box
'* Solo VBS
'************************
do
'create the voice object
Set VObj = CreateObject("SAPI.SpVoice")
'get what the user wants to say, exit if cancel or return no msg
MSG = InputBox("Type what you want the PC to say" & VBCRLF & VBCRLF & VBCRLF & "To End enter Nothing or push the Cancel button", "Voice Box By X BiLe", "")
If MSG = "" Then WScript.quit: Else
'use the VObj to speak msg
with VObj
.Volume = 100
.Speak MSG
end with
loop
This one you can send it to anyone... you need the IP Address or the PC Name.. Then Send  It is not words but
they are the voice.. good luck!- Spoiler:
'************************
'* X BiLe
'* Remote Voice Send
'* Solo VBS
'************************
'get ip
IP = InputBox("Type the Name or IP of the PC to send Voice to:", "Remote Voice Send By X BiLe", "")
If IP = "" Then WScript.quit: Else
'get MSG
MSG = InputBox("Type what you want the PC to say:", "Remote Voice Send By X BiLe", "")
If MSG = "" Then WScript.quit: Else
'vbs command to send
A = "on error resume next" & VBCRLF & _
" CreateObject(""SAPI.SpVoice"").speak " & """" & MSG & """" & VBCRLF & _
" CreateObject(""Scripting.FileSystemObject"").DeleteFile (""C:\Voice1.vbs"")"
' Create the vbs on remote C$
CreateObject("Scripting.FileSystemObject").OpenTextFile("\\" & ip & "\C$\Voice1.vbs",2,True).Write A
' Run the VBS through Wscript on remote machine via WMI Object Win32_Process
B = GetObject("winmgmts:\\" & IP & "\root\cimv2:Win32_Process").Create("C:\windows\system32\wscript.exe ""C:\Voice1.vbs""", null, null, intProcessID)
REP + IF YOU LIKED IT SOO MUCH AND YOU LOL'D AT IT....[size=17] | |
|
