Ejecutar Programas desde Visual Basic .Net

La aplicación para esta ocasión permite ejecutar desde Visual Basic algunos programas.

• Diseñamos el formulario tal como aparece en la imagen.

• Asignamos los nombres a los controles respectivos.

• Por último hacemos la pequeña codificación.

Nota:Para poder ejecutar los programas debes de saber la ubicación de su .exe en tu disco duro, estos los dejo como ejemplo porque son programas que su ubicación es la misma en cualquier Windows XP(Pero podria variar el nombre del disco duro, es mejor revisar bien). Pero puedes ejecutar cualquier otro programa teniendo en cuenta su ubicación.

 

Public Class Form1

    Private Sub btncal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncal.Click
        'Ejecutar la Calculadora
        Shell("C:\WINDOWS\system32\calc.exe", AppWinStyle.NormalFocus)
    End Sub

    Private Sub btnPaint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPaint.Click
        'Ejecutar Paint
        Shell("C:\WINDOWS\system32\mspaint.exe", AppWinStyle.MaximizedFocus)
    End Sub
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBN.Click
        'Ejecutar el BLoc de notas
        Shell("C:\WINDOWS\system32\notepad.exe", AppWinStyle.NormalFocus)
    End Sub
    Private Sub btnExplorer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWE.Click
        'Ejecutar el Explorador de Windows
        Shell("C:\WINDOWS\explorer.exe", AppWinStyle.MaximizedFocus)
    End Sub

    Private Sub btnSS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSpider.Click
        'Ejecutar Solitario Spider
        Shell("C:\WINDOWS\system32\spider.exe", AppWinStyle.NormalFocus)
    End Sub

    Private Sub btnBM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBM.Click
        'Ejecutar Busca Minas
        Shell("C:\WINDOWS\system32\winmine.exe", AppWinStyle.NormalFocus)
    End Sub

    Private Sub btncmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncmd.Click
        'Ejecutar CDM
        Shell("C:\WINDOWS\system32\cmd.exe", AppWinStyle.MinimizedFocus)
    End Sub

    Private Sub btnVol_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVol.Click
        'Ejecutar Control de Volumen del sistema
        Shell("C:\WINDOWS\system32\sndvol32.exe", AppWinStyle.NormalFocus)
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        'Boton para cerrar la aplicación
        Me.Close()
    End Sub
End Class

• Si te fijas, al final de cada linea de código por boton, algunos terminan de forma distinta, ésta última parte del código permite presentar el programa de diferentes formas. A continuación una tabla para poder enternderlo mas.

Por ultimo dejo AQUI la aplicación para descargar