PDA

【圖片】神奇的圖片，誰能告訴我原理啊？




頁 : 1 [2] 3
meilinhc
2003-08-02, 04:25 PM
<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">

想在桌面上放個圖示用來進退cdrom,請問要在那裡編寫上面的script,要存到那裡
另外進匣的script要如何寫?
因為是電腦外行,請各位前輩儘量詳細解說
謝謝;)



TomX
2003-08-02, 04:56 PM
..vb要用html..
Jarren
2003-08-02, 06:12 PM
cupholder.jpg其實不是圖片檔
而是含有VBScript的文字檔
只是副檔名被改成了jpg而已
Jarren
2003-08-02, 07:00 PM
最初由 meilinhc 發表
<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">

想在桌面上放個圖示用來進退cdrom,請問要在那裡編寫上面的script,要存到那裡
另外進匣的script要如何寫?
因為是電腦外行,請各位前輩儘量詳細解說
謝謝;)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmplay/mmp_sdk/cdromeject.asp

「If the drive door is open, this method closes the door.」

意思是如果光碟機原本就打開著，那麼再執行此一 method 它就會縮回去，
不過實際上再執行一次，我的光碟機並未縮回去，
不曉得這是因為Bug，或是光碟機機種，或者是作業系統版本的關係。
想了好久
2003-08-02, 09:42 PM
http://kmserv.com/testbed/cd.htm
點下去 硬體也會有反應喔...CC
meilinhc
2003-08-03, 02:19 AM
謝謝前輩,但我還是不懂?
我用快立網(試用)上作一網頁上有一圖案,另外又作一網頁將上述script貼上,然後我將圖案與貼有script的網頁作連結,結果失敗
請前輩们教教我,謝謝!!
現在xp上試用,成功後要移植到win98SE上用,再次謝謝!!:(
Jarren
2003-08-03, 02:23 PM
最初由 meilinhc 發表
謝謝前輩,但我還是不懂?
我用快立網(試用)上作一網頁上有一圖案,另外又作一網頁將上述script貼上,然後我將圖案與貼有script的網頁作連結,結果失敗
請前輩们教教我,謝謝!!
現在xp上試用,成功後要移植到win98SE上用,再次謝謝!!:(
呵呵，這點子不錯哦，利用網頁開啟光碟機，
不過可不必另增一連結去開啟含有VBSript的網頁
只要在原本的Script稍加一些東西，然貼上你那張圖案所在的網頁上的原始檔裡就可以了
一、使原來的程式碼變成函數：

<SCRIPT language=VBScript>
<!--
Function openit()
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
End Function
-->
</SCRIPT>

二、將上面<SCRIPT></SCRIPT> 之間的碼貼到到你的主網頁原始檔裡面，任一處都可以。

三、將那張圖片所用的html標籤裡加入onclick動作：
<img src="你的圖片路徑" onclick="openit()">

編輯完後，用瀏覽器開你的網頁，在那張圖上點一下試試看吧;)
ellery
2003-08-03, 09:54 PM
VBscript 能做到這樣子, 怪不得有人用以來寫電腦病毒/病蟲.
meilinhc
2003-08-04, 03:53 PM
最初由 Jarren 發表
呵呵，這點子不錯哦，利用網頁開啟光碟機，
不過可不必另增一連結去開啟含有VBSript的網頁
只要在原本的Script稍加一些東西，然貼上你那張圖案所在的網頁上的原始檔裡就可以了
一、使原來的程式碼變成函數：

<SCRIPT language=VBScript>
<!--
Function openit()
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
End Function
-->
</SCRIPT>

二、將上面<SCRIPT></SCRIPT> 之間的碼貼到到你的主網頁原始檔裡面，任一處都可以。

三、將那張圖片所用的html標籤裡加入onclick動作：
<img src="你的圖片路徑" onclick="openit()">

編輯完後，用瀏覽器開你的網頁，在那張圖上點一下試試看吧;)

Jarren前輩及其他前輩:
幫我看一下,到底是哪裡錯了?謝謝!!
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=big5">
<META NAME="Generator" CONTENT="Microsoft Word 97">
</HEAD>
<BODY>

<FONT FACE="新細明體" LANG="ZH-TW"><P><IMG SRC="Image2.jpg" WIDTH=57 HEIGHT=57></P></FONT></BODY>
<img src="C:\Documents and Settings\Owner\My Documents\Imag2.jpg" onclick="openit()">
</HTML>

<SCRIPT language=VBScript>
<!--
Function openit()
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
End Function
-->
</SCRIPT>
TomX
2003-08-04, 04:17 PM
~刪~