Private Declare Function FindWindowX Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, ByVal lpsz1 As Long, ByVal lpsz2 As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Integer) As Long
Private Const WM_PASTE = &H302
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101

Sub Three()

    hWind = FindWindow(vbNullString, "Calculadora")
    cWind = FindWindowX(hWind, 0, 0, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey1, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey2, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey3, 0)

End Sub


Private Sub Command1_Click()
    Three
End Sub


Sub Three2()

    hWind = FindWindow(vbNullString, "Calculadora")
    cWind = FindWindowX(hWind, 0, 0, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey1, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey2, 0)
    Debug.Print PostMessage(cWind, WM_KEYDOWN, vbKey3, 0)
End Sub


Private Sub Command2_Click()
    Three2
End Sub

Private Sub Command3_Click()
    lnghwnd = FindWindow(vbNullString, "Calculadora") 
    Debug.Print lnghwnd
    BringWindowToTop lnghwnd
    ShowWindow lnghwnd, 1
    'strProv = "Esta es una prueba"
    
    'For i = 1 To Len(strProv)
    'keybd_event Asc(Mid(strProv, i, 1)), 0, 0, 0
    'keybd_event Asc(Mid(strProv, i, 1)), 0, KEYEVENTF_KEYUP, 0
    'Next i
    
    'keybd_event 13, 0, 0, 0
    'keybd_event 13, 0, KEYEVENTF_KEYUP, 0
    
    If lnghwnd <> 0 Then
    
        SendKeys ("123")
        SendKeys ("{+}")
        SendKeys ("456")
        SendKeys ("{enter}")
        'Timer2.Enabled = True
        'Me.WindowState = 1
        Exit Sub
    End If
End Sub

Private Function FromClip(hWnd As Long)
    SendMessage hWnd, WM_PASTE, 0, 0
End Function

Private Sub Command4_Click()
    lnghwnd = FindWindow(vbNullString, "Calculadora") 
    Debug.Print lnghwnd
    BringWindowToTop lnghwnd
    ShowWindow lnghwnd, 1
    'strProv = "Esta es una prueba"
    
    'For i = 1 To Len(strProv)
    'keybd_event Asc(Mid(strProv, i, 1)), 0, 0, 0
    'keybd_event Asc(Mid(strProv, i, 1)), 0, KEYEVENTF_KEYUP, 0
    'Next i
    
    'keybd_event 13, 0, 0, 0
    'keybd_event 13, 0, KEYEVENTF_KEYUP, 0
    
    If lnghwnd <> 0 Then
        FromClip (lnghwnd)
        'SendKeys ("123")
        'SendKeys ("{+}")
        'SendKeys ("456")
        'SendKeys ("{enter}")
        'Timer2.Enabled = True
        'Me.WindowState = 1
        Exit Sub
    End If
End Sub

Private Sub Command1_Click()
  Open "hex.txt" For Input As #1
  Open "txt.txt" For Output As #2
  Do While Not EOF(1)
    Print #2, Chr(Val("&H" & Input(2, #1)));
  Loop
  Close #1
  Close #2
End Sub

Print #2, Chr(Val("&H" & Input(2, #1)));

Public Function HexToString(ByVal HexToStr As String) As String
   Dim strTemp   As String
   Dim strReturn As String
   Dim I         As Long
    For I = 1 To Len(HexToStr) Step 2
        strTemp = Chr$(Val("&H" & Mid$(HexToStr, I, 2)))
        strReturn = strReturn & strTemp
    Next I
    HexToString = strReturn
End Function

Public Function ReadFileIntoString(strFilePath As String) As String

    Dim fso As New FileSystemObject
    Dim ts As TextStream

    Set ts = fso.OpenTextFile(strFilePath)
    ReadFileIntoString = ts.ReadAll

End Function

Private Sub Command1_Click()
    Dim Exec As String
    Exec = ("C:\Windows\System32\route.exe" & " " & "ADD " & Text1 & " " & " MASK 255.255.255.255 192.168.1.1")
    txt_resultado.Text = ejecutar_Dos(Trim(Exec))
    

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 = ret ' Replace(ret, Chr(10), vbNewLine)
      
    DoEvents
    Me.SetFocus
End Function

Private Sub cmd_leer_Click()
    dll2x.leer
End Sub

C:\Windows\Microsoft.NET\Framework\v2.0.50727\regasm.exe /tlb:dll2x.tlb dll2x.dll

C:\Windows\Microsoft.NET\Framework\v4.0.30319\regasm.exe /tlb:dll4x.tlb dll4x.dll