Ver Mensaje Individual
  #6 (permalink)  
Antiguo 11/07/2002, 12:17
sacry
 
Fecha de Ingreso: enero-2002
Mensajes: 11
Antigüedad: 23 años
Puntos: 0
Re: necesito un sonido para ejecutar en el servidor

esto ya esta respondido en otro mensaje, yo lo he probado y no me acaba de funcinar de tdas formas si lo consigues avisame, te lo copio:
chao

Enviado - 28 May 2002 3:30
--------------------------------------------------------------------------------
Hola...aqui les dejo un objeto COM
que hice para ejecutar aplicaciones en el servidor(hay objetos ya creados como el ASPEXEC... pero siempre es mejor aprender )
bueno para crear este control activeX tienen
que abrir el visual basic(yo use vb6)...luego nuevo proyecto
y seleccionar DLL activeX... se abrira la ventana de la clase por defecto
class1 ... luego pegar esto..

Option Explicit

Private Declare Function GetDesktopWindow Lib "user32" () As Long

Private Declare Function ShellExecute Lib "shell32" _
Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long


Sub Ejecutador(Abrir As String, Archivo As String, Parametro As String)

Dim hWndDesk As Long
Dim success As Long
hWndDesk = GetDesktopWindow()
success = ShellExecute(hWndDesk, Abrir, Archivo, Parametro, 0&, 1)

End Sub

luego guardar el proyecto yo le puse(Ejecutador.vbp) y la clase(le puse Exe.cls)
compilar el proyecto para generar la DLL
...guardarla en el system32(win2000/nt) luego registrarla si es necesario
..ok vamos a la pagina ASP

y colocamos
<%
set Executador=Server.CreateObject("Ejecutador.Ex e")
Executador.Ejecutador "Open","c:\servo",application( "grados")
%>

bueno yo la use para mover unos servomotores ...pero pueden uds encontrarle mas uso
tb puede ser "Play" para ejecutar videos,mp3, etc

bueno espero ayudar o interesar a alguien...este es el principio por que si activamos
algo en el server luego hay que matarlo... pero esa es tarea para la casa...