elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Top 20 herramientas Hacking más populares de 2020


  Mostrar Mensajes
Páginas: [1] 2 3 4 5
1  Programación / Programación Visual Basic / Re: .exe en web en: 23 Mayo 2007, 10:09 am
no importa si el usuario lo sabe, de hecho me gustaria que el que le dá al boton en la web se entere de que vá a ejecutar un exe, o descargarlo y ejecutarlo.

Pero sigo sin saber cómo se hace.

2  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con .exe y web en: 22 Mayo 2007, 14:46 pm
Desde el propio equipo he conseguido hacer

Código:
        Dim ie As IO.File
        Dim direccion As String = "C:\Inetpub\wwwroot\PruebaCesar1\Planta1Garaje\Garaje.exe"


        ie.Open(direccion, IO.FileMode.Open)

pero me salta con :

Código:
System.UnauthorizedAccessException: Acceso denegado a la ruta de acceso.

ASP.NET no está autorizado para obtener acceso al recurso solicitado. Considere la posibilidad de conceder derechos de acceso al recurso para la identidad de solicitud de ASP.NET. Si la aplicación no se va a suplantar, ASP.NET utiliza una identidad de proceso base (normalmente {MACHINE}\ASPNET en IIS 5 o Network Service en IIS 6). Si la aplicación se va a suplantar mediante <identity impersonate="true"/>, la identidad será el usuario anónimo (generalmente IUSR_MACHINENAME) o el usuario solicitado autenticado.

¿Que puedo hacer???
¿Como puedo hacer para que pida el permiso (como cuando te dice si quiere descargar un archivo)?



Tambien he intentado :
Código:
Dim info As ProcessStartInfo = New ProcessStartInfo("C:\Inetpub\wwwroot\PruebaCesar1\Planta1Garaje\Garaje.exe")
        info.RedirectStandardOutput = True
        info.UseShellExecute = False

        System.Diagnostics.Process.Start(info)

pero el resultado es que crea un proceso denominado "Garaje", pero que no hace absolutamente NADA.

Como podeis ver ya no se me ocurre nada.
Espero que alguien sepa sacarme de este pozo.

Gracias

3  Programación / Programación Visual Basic / .exe en web en: 22 Mayo 2007, 12:26 pm
He desarrollado un programa con vb.net y ahora quiero q desde una pagina web se ejecute al pulsar un boton.
¿Como podria hacerlo?

En caso de que no se pueda desde internet, cómo seria para crear una pagina web que ejecute el programa desde un mismo equipo.

Gracias a todos
4  Programación / .NET (C#, VB.NET, ASP) / Re: Ayuda con .exe en: 22 Mayo 2007, 12:24 pm
¿No es este el foro adecuado? ¿Cual es?
Lo acabo de poner en el foro .Net de programacion general
5  Programación / .NET (C#, VB.NET, ASP) / Ayuda con .exe y web en: 22 Mayo 2007, 10:53 am
He desarrollado un programa con vb.net y ahora quiero q desde una pagina web se ejecute al pulsar un boton.
¿Como podria hacerlo?

En caso de que no se pueda desde internet, cómo seria para crear una pagina web que ejecute el programa desde un mismo equipo.

Gracias a todos
6  Programación / .NET (C#, VB.NET, ASP) / Ayuda con .exe en: 21 Mayo 2007, 11:00 am
He desarrollado un programa con vb.net y ahora quiero q desde una pagina web se ejecute al pulsar un boton.
¿Como podria hacerlo?

En caso de que no se pueda desde internet, como seria para crear una pagina web que ejecute el programa desde un mismo equipo.

Gracias a todos
7  Programación / Programación Visual Basic / Re: mciSendString en: 7 Mayo 2007, 12:47 pm
Así se verá mejor:

No veo donde está el fallo.

Espero que alguien vea donde esta el fallo


Código:
Public Class Form1
    Inherits System.Windows.Forms.Form

    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

    Private Direccion As String
    Private cadena As String

    Sub MandarMensaje(ByVal mensaje As String)
        Dim resultado As Long

        cadena = Space(255)
        resultado = mciSendString(mensaje, cadena, Len(cadena), 0)
        BuscarError(resultado)
    End Sub


    Sub BuscarError(ByVal número As Long)
        Dim errorBE As String

        errorBE = Space(255)
        mciGetErrorString(número, errorBE, 255)
        Label1.Text = errorBE
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.InitialDirectory = CurDir() & "\Sonidos"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            Direccion = openFileDialog1.FileName

            TextBox1.Text = Direccion

            MandarMensaje("close archivowav")
            MandarMensaje("open " & Direccion & " type waveaudio alias archivowav")
            MandarMensaje("set archivowav time format milliseconds")
            MandarMensaje("status archivowav length")
            If Val(Trim(cadena)) <> 0 Then ' Si dicho tiempo es distinto de 0
                ProgressBar1.Minimum = 1
                ProgressBar1.Maximum = Val(cadena)
                ProgressBar1.Value = 1
                Slider1.Minimum = 1
                Slider1.Maximum = Val(cadena)
                Slider1.Value = 1
            End If
            Label2.Text = Format(Val(cadena), "MM:SS")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
        MandarMensaje("play archivowav from 0")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MandarMensaje("status archivowav position")
        ProgressBar1.Value = Val(cadena)
        Slider1.Value = Val(cadena)
        Label2.Text = Format(ProgressBar1.Maximum - Val(cadena), "MM:SS")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MandarMensaje("stop archivowav")
        Timer1.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Pausa" Then
            MandarMensaje("pause archivowav")
            Button4.Text = "Continuar"
        Else
            MandarMensaje("resume archivowav")
            Button4.Text = "Pausa"
        End If
    End Sub
End Class
8  Programación / Programación Visual Basic / Re: mciSendString en: 6 Mayo 2007, 19:29 pm
¿alguien puede decirme que hago mal?

Cuando utilizo el mcisendstring sp devuelve un numero enorme (y no "0" como deberia ser si fuera bien) y no reproduce nada.
La direccion del sonido .wav esta bien.
Si alguien puede probarlo y decirme qué esta mal se lo agradecería, pq tengo q utilizar el mcisendstring (No puedo utilizar ningun ocx)

Mi codigo es el sg:

Public Class Form1
    Inherits System.Windows.Forms.Form

    Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long

    Private Direccion As String
    Private cadena As String

    Sub MandarMensaje(ByVal mensaje As String)
        Dim resultado As Long

        cadena = Space(255)
        resultado = mciSendString(mensaje, cadena, Len(cadena), 0)
        BuscarError(resultado)
    End Sub


    Sub BuscarError(ByVal número As Long)
        Dim errorBE As String

        errorBE = Space(255)
        mciGetErrorString(número, errorBE, 255)
        Label1.Text = errorBE
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim openFileDialog1 As New OpenFileDialog
        openFileDialog1.InitialDirectory = CurDir() & "\Sonidos"
        openFileDialog1.FilterIndex = 1
        openFileDialog1.RestoreDirectory = True

        If openFileDialog1.ShowDialog() = DialogResult.OK Then
            Direccion = openFileDialog1.FileName

            TextBox1.Text = Direccion

            MandarMensaje("close archivowav")
            MandarMensaje("open " & Direccion & " type waveaudio alias archivowav")
            MandarMensaje("set archivowav time format milliseconds")
            MandarMensaje("status archivowav length")
            If Val(Trim(cadena)) <> 0 Then ' Si dicho tiempo es distinto de 0
                ProgressBar1.Minimum = 1
                ProgressBar1.Maximum = Val(cadena)
                ProgressBar1.Value = 1
                Slider1.Minimum = 1
                Slider1.Maximum = Val(cadena)
                Slider1.Value = 1
            End If
            Label2.Text = Format(Val(cadena), "MM:SS")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Enabled = True
        MandarMensaje("play archivowav from 0")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MandarMensaje("status archivowav position")
        ProgressBar1.Value = Val(cadena)
        Slider1.Value = Val(cadena)
        Label2.Text = Format(ProgressBar1.Maximum - Val(cadena), "MM:SS")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MandarMensaje("stop archivowav")
        Timer1.Enabled = False
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Pausa" Then
            MandarMensaje("pause archivowav")
            Button4.Text = "Continuar"
        Else
            MandarMensaje("resume archivowav")
            Button4.Text = "Pausa"
        End If
    End Sub
End Class


Gracias a todos
9  Programación / Programación Visual Basic / Re: mciSendString en: 6 Mayo 2007, 11:52 am
He probado ambas soluciones y ninguna me funciona.
Lo que pretendo es reproducir dos sonidos a la vez, pero estoy viendo que sino hay objetos, con el "mcsendstring" cuando pare uno, pararan los dos.
Es decir, con mcisendstring no podré reproducir dos sonidos wav a la vez, que es lo q quiero.

¿Sabeis qué puedo hacer?

Gracias
10  Programación / Programación Visual Basic / mciSendString en: 5 Mayo 2007, 20:05 pm
¿Alguien sabe como utilizar el "mciSendString"?
Mi intencion es la de reproducir varios .wav con el.
Por el momento no he sido capaz de trabajar con el, agradeceria cualquier ayuda con "mciSendString"


Gracias
Páginas: [1] 2 3 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines