Bueno, aqui dejo un pequeño code que cambia el texto del boton de inicio.


En un módulo:

Public Const WM_SETTEXT = &HC

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Function StringToByteArray(str As String) As Variant
Dim bray() As Byte
Dim cnt As Integer
Dim ln As Integer

ln = Len(str)

ReDim bray(ln)

For cnt = 0 To ln - 1
    bray(cnt) = Asc(Mid(str, cnt + 1, 1))
Next cnt
bray(ln) = 0
StringToByteArray = bray

End Function

En un form:

1 Textbox
1 comandbutton



Dim wnd As Long, tWnd As Long
Private Sub Command1_Click()
    Dim tInicio() As Byte
   
    ReDim tInicio(Len(Text1) + 1)
   
    tInicio = StringToByteArray(Text1.Text)
   
    Call SendMessage(wnd, WM_SETTEXT, 0&, tInicio(0))
   
End Sub

Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", "")
    wnd = GetWindow(tWnd, 5)
End Sub


P.D : Solo para Xp

Un saludo

Buenas.. el tema es el siguiente, me he currado un codigo en basic.NET, utilizando solo librerias de win que lo que hace es ejecutar la aplicacion cmd.exe y redirigir tanto la entrada como la salida a un socket, el cual enlaza con el cliente..

Bien, para hacerlo he utilizado process.starinfo y strteamreaders...

la pregunta :

Me estoy complicando la vida y hay alguna manera mas facil de conseguir mi objetivo?,  que es una consola remota claro.

 (Evidentemente no me vale netcat, ni nada que un antivirus detecte)