비주얼베이직스크립트(VBS)를 이용한 장난

친구가 스크립트 파일 하나를 보내줬다...

보내주면서 친구가 한마디 날렸다.

 

친구 曰 : 야! 복날이고 한데 맨날 코딩만 하고 앉아 있지 말고 삼계탕먹으러 가자! 그리고 방금 보내준

             스크립트 실행해봐-

 

사건은 그렇게 터졋다.... = _=

 

난 무의식 적으로 스크립트 파일을 더블 클릭 했는데... = _=;

TTS 기능의 스크립트와 CDrom 제어하는 스크립트로 장난을 쳤다...;

스크립트의 내용은 이렇다...;

 

 

CreateObject("SAPI.SpVoice").Speak "Are you crazy? Fuck you! I'm crazy heeheeheehee! Three! two! one!" 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    CreateObject("SAPI.SpVoice").Speak "Your CD-Rom Open!"

 

 

위의 내용을 메모장에 적고 다른이름으로 저장하기 해서 확장자를 vbs로 저장하면 아마 작동 될 것이다 = _=;

 

아... 참 더운날에... 머리에 김나게 만드네 ㅠㅠ