Ayuda con Net Send y Shell

[chipbios]

para usar el net send
 si esta mal corrigan porfavor

Código:

mensage1 = Text1.Text
nombreekipo = Text2.Text
Shell "cmd.exe net send" & "nombreekipo mensage1"

[ranefi]

Hola chipbios. Sabes, yo te recomiendo que primero crees un archivo por lotes y después lo ejecutes, te muestro cómo:

Agregar 1 control CommandButton, 2 TextBox e REPLACEar el siguiente código:

Código:

Private Declare Function WinExec Lib "kernel32" _
    (ByVal lpCmdLine As String, _
    ByVal nCmdShow As Long) As Long


Private Sub Command1_Click()
    Dim ArchivoTmp As String, Contenido As String
    Dim NumArchivo As Long
   
    ArchivoTmp = "c:\jelou.bat"
    NumArchivo = FreeFile()
    Contenido = "NET SEND " & Text2.Text & _
            " " & Text1.Text
   
    Open ArchivoTmp For Output As #NumArchivo
        Print #NumArchivo, Contenido
    Close #NumArchivo
   
    WinExec "c:\jelou.bat", 10
End Sub

Espero y te sea de utilidad. Nos vemos.

[chipbios]

pero lo que yo puse esta bien??
 esque quiero que el programa solo tenga el exe  y no contenga archivos bat ni nada porque no es para mi s

[ranefi]

Código:

mensage1 = Text1.Text
nombreekipo = Text2.Text
Shell "cmd.exe net send" & "nombreekipo mensage1"

No está correcto, debes quitar las comillas dobles que encierran a NombreEkipo y Mensaje1 y concatenarlos (usar &), además debes usar espacios, por ejemplo en Shell "cmd.exe NET SEND " <---- Debes agregar ése espacio. Más o menos quedaría así:

Código:

          Dim NombreEkipo As String, Mensaje1 As String

          NombreEkipo = Text2.Text
          Mensaje1 = Text1.Text

          Shell "cmd.exe NET SEND " & NombreEkipo & " " & Mensaje1

Pero sinceramente no te recomiendo esta forma ya que es posible que no funcione. Insisto en que utilices el código que publiqué arriba o en su defecto utilices API's para llevar a cabo dicho programa. Como sea, el programa arriba publicado puede contener un código que elimine el archivo por lotes al terminar de utilizarlo. Nos vemos.

[chipbios]

dudas solucionadas gracias ranefi pero tambien me dijo algo hendrix xD