BUSCAR EN PREGUNTAS Y RESPUESTAS

Option Explicit



'Un textbox multilinea : txt_resultado

'Un TextBox : txt_Comando

'Un commandbutton

'La referencia a Windows Script Host Object Model

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''



Private Sub CommandButton1_Click()



    txt_resultado.Text = ""

    txt_resultado.Text = ejecutar_Dos("ipconfig /all")

  

End Sub



Private Sub UserForm_Activate()



    CommandButton1.Caption = " Ejecutar DOS "

    txt_Comando.Text = "dir c:windowssystem32*.*"



End Sub



Function ejecutar_Dos(Comando As String) As String



    Dim oShell As WshShell

    Dim oExec As WshExec

    Dim ret As String

    

    Set oShell = New WshShell

    DoEvents

    

    ' ejecutar el comando

    Set oExec = oShell.Exec("%comspec% /c " & Comando)

    ret = oExec.StdOut.ReadAll()

     

    ' retornar la salida y devolverla a la función

    ejecutar_Dos = Replace(ret, Chr(10), vbNewLine)

    

    DoEvents

    'Me.SetFocus

    

End Function



'Ejemplos

'txt_resultado.Text = ejecutar_Dos("ping www.google.com.ar")

'txt_resultado.Text = ejecutar_Dos(Trim(txt_Comando))

'txt_resultado.Text = ejecutar_Dos("ipconfig help")

Dim intentos As Integer



Private Sub Validar_Click()

If Text1 = "getready123" Then

intentos = 0

MsgBox "Contraseña correcta"

Form2.Show

Hide



Else



For intentos = intentos + 1 To 3

MsgBox "Contraseña errónea"

Text1 = ""

Text1.SetFocus

Exit For

Next

End



End If



End Sub