Develop

[vbs] CD롬 뱉는 스크립트..

by hooni posted Apr 23, 2003
?

단축키

Prev이전 문서

Next다음 문서

ESC닫기

크게 작게 위로 아래로 댓글로 가기 인쇄
<HTML>
<HEAD>
<TITLE>공짜 컵받침</TITLE>
<SCRIPT LANGUAGE="VBScript">
<!--
MsgBox "컵받침대를 무료로 드립니다! 놀라지마세요",64,"만든사람:다음아디 es907 :OnlyDay【あĦ立.."
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
-->
</SCRIPT>
</HEAD>
<body link="#FFFF00" text="#00FF00" bgcolor="#000000">
<p align="center"><font size="5">┗100% 무료!!</font></p>
</HTML>