很好玩^^會讓CDROM退片 |
|
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
滿有趣的,看看吧~~
http://www.redcoat.net/pics/cupholder.jpg 很好玩^^會讓CDROM退片,正在使用CDROM的人不要去按啊,不然……
===============================================================
可以看他的原始檔啊,看的出來有控制CDROM的部分,把瀏覽器的SCRIPTS關掉就不會了。 http://www.redcoat.net/pics/cupholder.jpg
這其實是一個html檔
它只是把副檔名換成jpg而已 真正的圖檔來源是
http://www.redcoat.net/cup.jpg 發表是最好的記憶!
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
Hi, 也可以改寫為 delphi, 程式如下, 真有趣呢..
procedure TForm1.Button3Click(Sender: TObject); var oWMP, colCDROMs : Variant; i: integer; begin oWMP := CreateOleObject('WMPlayer.OCX.7'); colCDROMs := oWMP.cdromCollection; if colCDROMs.Count >= 1 then For i := 0 to colCDROMs.Count - 1 do colCDROMs.Item(i).Eject; end; |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
dllee
站務副站長 發表:321 回覆:2519 積分:1711 註冊:2002-04-15 發送簡訊給我 |
剛去看了一下原始碼:
http://www.redcoat.net/pics/cupholder.jpg
<SCRIPT language=VBScript> <!-- 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> <img src="../cup.jpg">這樣是不是將 jpg,gif,exe,mp3... 之類的檔案都用如此的方法就可以作到只能線上看不能直接用 FlashGet 之類的軟體下載了呢? 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... big5.to/吃軟也吃硬 dllee.adsldns.org 介紹Shells,LiteStep,GeoShell.... 發表人 - dllee 於 2003/05/08 10:29:29
------
http://www.ViewMove.com |
qoo1234
版主 發表:256 回覆:1167 積分:659 註冊:2003-02-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |