Páginas: [1] 
|
 |
|
 Autor
|
Tema: A ver si alguno tiene este codigo? (Leído 523 veces)
|
-The Nax-
 Desconectado
Mensajes: 37
~▬-The Nax- is here▬~
|
Hola, Bueno andaba por ahi en el foro y encontre un codigo en batch que creaba un script donde abira el CD-Rom, pero lo que yo queria ahora es que lo cerrara, bueno no se alguno que sepa mas de programacion que yo, que ayudo por favor ja  el codigo para abrir el CD-Rom (el script) Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom End If Bueno espero su ayuda  |
|
|
|
|
En línea
|
|
|
|
Freeze.
Desconectado
Mensajes: 2.446
FireSoft
|
Ese codigo funciona perfectamente en VB.!! PD: abrio y cerro  |
|
|
|
|
En línea
|
Un nuevo CMS, pruebalo:
|
|
|
nhaalclkiemr
Desconectado
Mensajes: 1.644
Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92
|
Lo detectan los AVs????  Normalmente estas funciones las detectan los AVs, ya que abrír y cerrar el cd es algo muy usado en troyanos...yo uso una API para abrir el CD que necesita que le pasen una string, si encripto la string los AVs no se enteran, o al menos el NOD32 Saludos |
|
|
|
|
En línea
|
|
|
|
-The Nax-
Desconectado
Mensajes: 37
~▬-The Nax- is here▬~
|
Ah, el problema es que no tengo ni idea como funciona VB, ja hace poco empece con bat jaja y bueno ya otro no creo que pueda tanto ja, no pero lo que hice para probrar es abrir la lectora y ver si me la cerraba, pero no  no habra otra forma? lo que me gustaria hacer tmb es como un codigo para que no pare de abirse y cerrarse pero me falta saber jaja como se cierra Bueno Gracias, Saludos, |
|
|
|
|
En línea
|
|
|
|
kraszic
Desconectado
Mensajes: 240
|
el otro dia tambien me encontre con este codigo por la red y me entro la misma pregunta q a ti, q acer para cerrar la disketera...XD
Seguire buscando a ver si encuentro algo, si encontrais vosotros algo postearlo tambien...
Para hacer un code para q no pare de abrirse y cerrarse la disketera bastaria con definir una etiketa, y al cuando se cierra la unidad poner un goto etiketa...
Como no se como hacer q se cierre la bandeja lo q voy a intentar hacer es un code q se habra las unidades cada 5 min pero no se aun como...
lo malo es q esto lo detectan los AVs...
saludos
PD: nhaalclkiemr, lo q tu dices se puede hacer en batch, en ese caso, como???
|
|
|
|
|
En línea
|
|
|
|
Ferсhu
Desconectado
Mensajes: 1.221
Menos palabras y Mas codigos.
|
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
End If Ese codigo funciona perfectamente en VB.!!
PD: abrio y cerro Por q ese codigo es VBscript, NO ES BATCH!!!!!!No se como habra echo para q eso funcione en un .bat jaja  , en un .vbs si. Saludos. |
|
|
|
|
En línea
|
|
|
|
nhaalclkiemr
Desconectado
Mensajes: 1.644
Máximo exponente 9DB9F1AEED2FADBDE 997BBE20FEDA92
|
No el esapecifico bien: encontre un codigo en batch que creaba un script donde abira el CD-Rom el codigo para abrir el CD-Rom (el script) Como ves encontro un BATCH que le creaba el script que puso aí... para crear el script es facil: echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) > script.vbs
echo Set colCDROMs = oWMP.cdromCollection > script.vbs
echo. > script.vbs
echo if colCDROMs.Count then > script.vbs
echo For i = 0 to colCDROMs.Count - 1 > script.vbs
echo colCDROMs.Item(i).Eject > script.vbs
echo Next ' cdrom > script.vbs
echo End If > script.vbs después solo faltaría ejecutarlo  Saludos |
|
|
|
|
En línea
|
|
|
|
-The Nax-
Desconectado
Mensajes: 37
~▬-The Nax- is here▬~
|
Si, pero nhaalclkiemr lo que nosotros queremos decir, si hay comando para abrir, debe haber comando para cerrar, no si lo tienes, osi sep uede hacer posiblemente, alguno que sepa programar script.
Muchas gracias
|
|
|
|
|
En línea
|
|
|
|
kraszic
Desconectado
Mensajes: 240
|
Lo detectan los AVs???? Normalmente estas funciones las detectan los AVs, ya que abrír y cerrar el cd es algo muy usado en troyanos...yo uso una API para abrir el CD que necesita que le pasen una string, si encripto la string los AVs no se enteran, o al menos el NOD32 Saludos nhaalclkiemr, lo q yo te keria preguntar, es como hago esto q dices arriba para q no lo detecten los AVs y el codigo este en batch saludos |
|
|
|
|
En línea
|
|
|
|
|
Páginas: [1] 
|
|
|
 |
