<script language="VBScript"> Set oWMP = CreateObject("WMPlayer.OCX.7") 'Script criado por _Rocco_ ' Verifica os Drives de CD existentes Set colCDROMs = oWMP.cdromCollection ' isso vai abrir todos os compartimentos de CD que o PC possua if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom End If </script>
Vbs Abre Cd-rom
#1
Posted 12/12/2003, 17:34
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
#2
Posted 12/12/2003, 17:37
#3
Posted 12/12/2003, 18:17
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
#4 WebMan
Posted 12/12/2003, 18:42
algum de vcs tem este exemplo no ar?
#5
Posted 12/12/2003, 19:18
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
#6
Posted 12/12/2003, 19:59
Nome: Rodrigo
Idade: 14
ICQ: 164570058
MSN: xwpxmaster@hotmail.com
E-mail a contato: rodrigo.losso@terra.com.br
Site: LokaHP.cjb.net
------------------------------------------------------------
#7
Posted 12/12/2003, 20:58
$nome = RoCcO
$experiência em Web = PhP, ASP, JavaScript, VBScript.
$experiência em programação = C, Delphi e Visual Basic.
$site = www.roccomail.tk
$email/msn = hacker@terra.com.br
$icq = 264765927
?>
#8 WebMan
Posted 12/12/2003, 23:57
#9
Posted 13/12/2003, 04:15
Mas eu tb tinha um código desses, q funfava naépoca, não sei se agora funfaria..
Fui..
chinello at gmail dot com
System > Athlon 64 3200+ Mobile | Kubuntu 7.04 Fesity Fawn AMD64 | Kernel 2.6.20-16
Coding @ KDE 3.5.7 | PHP 5.2.1 | Apache 2.2.3 | MySQL 5.0.38
#10
Posted 13/12/2003, 09:24
#11
Posted 07/01/2004, 00:59
errado.Lembrando q isso é ASP.NET
vbscript
e existe a versão em activex
todas banidas pelos patches da microsoft.
Edição feita por: .ALec, 07/01/2004, 01:00.
#12
Posted 07/01/2004, 14:39
http://asp.zocka.com...outros/opa.aspx
Edição feita por: crazybaby, 07/01/2004, 14:40.
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)