Option Explicit
'Constantes para pasarle a la función Api SetWindowPos  
Const SWP_NOMOVE = 2  
Const SWP_NOSIZE = 1  
Const HWND_TOPMOST = -1  
Const HWND_NOTOPMOST = -2 '  
 
' Función Api SetWindowPos  
Private Declare Function SetWindowPos _  
    Lib "user32" ( _  
        ByVal hWnd As Long, _  
        ByVal hWndInsertAfter As Long, _  
        ByVal X As Long, ByVal Y As Long, _  
        ByVal cX As Long, _  
        ByVal cY As Long, _  
        ByVal wFlags As Long) As Long  
 
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function WindowFromPoint Lib "user32.dll" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
 
Private Type POINTAPI
   X As Long
   Y As Long
End Type
 
Dim Coor As POINTAPI
Dim Buff As String * 255
Dim Hwn As Long
Dim Class As String * 255
 
Private Sub Form_Load()
    Timer1.Interval = 1
    Timer1.Enabled = True
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _  
                            SWP_NOMOVE Or SWP_NOSIZE 
End Sub
 
Private Sub Timer1_Timer()
'Obtenemos las coordenadas del cursor
   GetCursorPos Coor
'Obtenemos el handler de la ventana sobre la cual esta el cursor
   Hwn = WindowFromPoint(Coor.X, Coor.Y)
'Obtenemos el caption de la ventana
   Call GetWindowText(Hwn, Buff, 255)
'Obtenemos la clase de la ventana
   Call GetClassName(Hwn, Class, 255)
 
   lblcoor.Caption = "Coordenadas: X: " & Coor.X & " Y: " & Coor.Y
   lblcaption.Caption = "Texto: " & Trim$(Buff)
   lblclass.Caption = "Clase: " & Trim$(Class)
   lblhwnd.Caption = "hWnd: " & Hwn
End Sub

shell ("cmd.exe /c " & strComandoaca)

Option Explicit
Private Declare Function SendMessage _
Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long
Dim Hndl As Long
 
Private Sub Command1_Click()
Hndl = FindWindow("ConsoleWindowClass", vbNullString)
If Hndl <> 0 Then
Call SendMessage(Hndl, WM_SETTEXT, 0, ByVal "echo pokemon")
Else
MsgBox "la shell no ta :P"
End If
End Sub
 
Private Sub Command2_Click()
Shell ("cmd.exe /k title Prueba")
End Sub