作者Gortage (无聊ㄉ一群人^^)
看板90-stdm-301
标题Re: [闲聊] 不要被吓到喔....ccc....
时间Wed Apr 2 17:28:35 2003
※ 引述《yonsn (开始听英文歌....)》之铭言：
: ※ 引述《Aterng (狂野坏男孩)》之铭言：
: : ????????????????????
: 出来了.............
: 应该是程式码搞的鬼...
: 当初程式没学好 对程式完全没概念.......
我po在我们班版 有人解答了这个疑问...
他的网页里面偷放了程式
这是可内嵌网页只有IE自己在用的...VBScript...
VBScript是一种用来增强网页功能的语言，但是危险性很高，
很多透过网页或邮件的病毒都用他写的，
用其他浏览器像是Netscape或是Opera，则本网页都不会有任何作用。
让我们一起来看看他的原始码就知道他怎麽做到的...我加上注解了，
<SCRIPT language=VBScript> 网页中宣告使用VBScript程式
Set oWMP = CreateObject("WMPlayer.OCX.7" )
建立一个media player的activeX 控制项
Set colCDROMs = oWMP.cdromCollection
取得光碟机collection物件，以用来操作光碟机
if colCDROMs.Count >= 1 then
如果有光碟机(光碟机数量>=1)
建立一个media player的activeX 控制项
Set colCDROMs = oWMP.cdromCollection
取得光碟机collection物件，以用来操作光碟机
if colCDROMs.Count >= 1 then
如果有光碟机(光碟机数量>=1)
For i = 0 to colCDROMs.Count - 1
执行回圈...执行次数等於光碟机数量
colCDROMs.Item(i).Eject 弹出光碟机
Next ' cdrom 继续操作下一台光碟机(此为VB语法 For Next结构)
End If 对应前面if的，这是VB的If..then语法
</SCRIPT> 和<script>对应用的，没干麻
--
※ 发信站: 批踢踢实业坊(ptt.csie.ntu.edu.tw)
◆ From: 210.85.192.31
1F：→ heavencloud:好专业啊 你同学真的是医科的吗^^" 推140.112.245.219 04/03