public class NetworkServer
 
{
    public static void Main()
    {
       //creamos un thread para que el server
       //se ejecute en paralelo con el cliente
       //esto es solo por motivos prácticos del demo
       new Thread(new ThreadStart(
            delegate {
                new NetworkServer().Start(); }
                    )).Start();
 
       //Iniciamos el Cliente
       new Client().Connect();
       Console.WriteLine("Listo");
       Console.Read();
    }
 
    public  void Start()
    {
       // Creamos un TcpListener y le indicamos que
       //puerto va a poner en escucha.
       TcpListener tcpListener = new TcpListener(9898);
 
        //Iniciamos la esucha
       tcpListener.Start();
 
       //Este método queda bloqueado hasta que
       //se conecte un cliente
       Socket socketForClient = tcpListener.AcceptSocket();
       if (socketForClient.Connected)
       {
 
          // Si se conecta
          Console.WriteLine("Cliente conectado.");
          //Creamos el networkSream, el Reader y el writer
 
          NetworkStream networkStream =
                   new NetworkStream(socketForClient);
 
          StreamWriter streamWriter =
                   new StreamWriter(networkStream); 
 
          StreamReader streamReader =
                   new StreamReader(networkStream);
 
          //Esta es la data a enviar.
          string theString = "Esta es la data de envio";
 
          try
          {
              //Escribimos la data en el stream
              streamWriter.WriteLine(theString);
 
              //Ahora le decimos que la mande.
              streamWriter.Flush();
 
              //Esperamos data del cliente
              //Y la escribimos por consola.
               theString = streamReader.ReadLine();
               Console.WriteLine(theString);
            }
            finally
            {
                //Cerramos las conexiones
                streamReader.Close();
                streamWriter.Close();
                networkStream.Close();
                socketForClient.Close();
            }
        }
    }
}

public class Client
{
    public void Connect()
    {
        TcpClient socketForServer;
        string server = "localhost";
 
        try
        {  
            //Creamos un TcpCliente y le pasamos 
            //el server y el puerto.
            socketForServer = new TcpClient(server, 9898);
        }
        catch
        {
            Console.WriteLine(
            "No se pudo conectar a {0}:9898", server);
            return;
        }
 
 
        //aqui es lo mismo que en el server. Usamos StreamWriter y Reader.
        NetworkStream networkStream = socketForServer.GetStream();
 
        StreamReader streamReader =
              new System.IO.StreamReader(networkStream);
 
        StreamWriter streamWriter =
              new System.IO.StreamWriter(networkStream);
 
        try
        {
            string outputString = streamReader.ReadLine();
            Console.WriteLine(outputString);
            streamWriter.WriteLine("Mensaje desde el Cliente");
            streamWriter.Flush();
        }
        catch
        {
            Console.WriteLine("Exception reading from Server");
        }
        finally
        {
            networkStream.Close();
        }
    }
}

Public Shared Function Serialize(ByVal Obj As Object, ByVal AsByte As Boolean) As Byte()
        Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim ms As New IO.MemoryStream
        bf.Serialize(ms, Obj)
        Return ms.ToArray
End Function
 
Public Shared Function Deserialize(ByVal Obj As Byte()) As Object
        Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim ms As New IO.MemoryStream(Obj)
        Return bf.Deserialize(ms)
End Function

 Dim x1, x2, bn As Double
        Dim a, b, c As Integer
 
        a = 1
        b = 6
        c = 1
 
        bn = b * -1
 
        Dim radicando As Double = Math.Pow(b, 2) - 4  * a * c
 
        If radicando = 0 Then
               x1 = (bn) / (2 *a)
               MsgBox(x1 & " y es raiz doble")
        ElseIf radicando > 0 Then
               x1 = (bn + Math.Sqrt(radicando)) / (2 *a)
               x2 = (bn - Math.Sqrt(radicando)) / (2 * a)
               MsgBox(x1)
               MsgBox(x2)
        Else
               Msgbox ("La ecuacion no tiene racies reales")
        End If

ListView1.SelectedItems

Si solo seleccionas 1:
ListView1.SelectedItems(0)

Obtener nombre de ese item:
ListView1.SelectedItems(0).Text

Para hacer eso tenes que saber el handle del botón que quieres 
presionar. Y enviarle con SendMessage "un click"

 <System.Runtime.InteropServices.DllImport("user32.DLL")> _
    Public Function SendMessage( _
            ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
            ByVal wParam As Integer, ByVal lParam As Integer _
            ) As Integer
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32.DLL")> _
Public Function SendMessage( _
        ByVal hWnd As System.IntPtr, ByVal wMsg As Integer, _
        ByVal wParam As Integer, ByVal lParam As String _
        ) As Integer
    End Function


							
						
						
							

Re: Presionar boton de un programa externo. ( VB. Net ) « Respuesta #1 en: 01 Marzo 2010, 16:45 »

<System.Runtime.InteropServices.DllImport("user32.dll", _
    EntryPoint:="FindWindow")> _
    Public Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Public Function EnumChildWindows(ByVal hWndParent As System.IntPtr, ByVal lpEnumFunc As EnumWindowsProc, ByVal lParam As Integer) As Boolean
    End Function
 
    Public Function GetChildWindows(ByVal ParentHandle As IntPtr) As IntPtr()
        Dim ChildrenList As New List(Of IntPtr)
        Dim ListHandle As GCHandle = GCHandle.Alloc(ChildrenList)
        Try
            EnumChildWindows(ParentHandle, AddressOf EnumWindow, GCHandle.ToIntPtr(ListHandle))
        Finally
            If ListHandle.IsAllocated Then ListHandle.Free()
        End Try
        Return ChildrenList.ToArray
    End Function
 
    Private Function EnumWindow(ByVal Handle As IntPtr, ByVal Parameter As IntPtr) As Boolean
        Dim ChildrenList As List(Of IntPtr) = GCHandle.FromIntPtr(Parameter).Target
        If ChildrenList Is Nothing Then Throw New Exception("GCHandle Target could not be cast as List(Of IntPtr)")
        ChildrenList.Add(Handle)
        Return True
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32.dll")> _
    Public Sub GetClassName(ByVal hWnd As System.IntPtr, ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer)
        ' Leave function empty    
    End Sub

Completar la constante a enviar.

1er Ejemplo

Private Reservadas As String() = _
    {"if", "then", "else", "echo", "@"} 'En este arreglo pones todas las palabras que quieras que aparezcan en color


    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        Dim i As Integer = RichTextBox1.SelectionStart
        Dim ActualCursor As Integer = RichTextBox1.SelectionStart 'recordar el punto de donde se estaba escribiendo
        Dim j As Integer = 0
        If i <> 0 Then 'evitar que el indice se salga del rango
            Do
                i = i - 1 'recorre en reversa hasta encontrar un espacio
                j = j + 1 'cuenta los caracteres de la palabra
            Loop While RichTextBox1.Text(i) <> CChar(" ") And i <> 0 'termina cuando encuentra un espacio
        End If
        Dim substring As String = RichTextBox1.Text.Substring(i, j).Trim() 'obtiene la ultima palabra escrita, quitandole los espacios

        If Reservadas.Contains(substring) Then 'comprobar que la palabra este en la lista
            RichTextBox1.Find(substring, RichTextBoxFinds.Reverse)
            RichTextBox1.SelectionColor = Color.Blue 'Colorea el texto
            RichTextBox1.SelectionStart = ActualCursor
        End If

        RichTextBox1.SelectionColor = Color.Black 'Vuelve al color primario
        RichTextBox1.SelectionStart = ActualCursor
    End Sub

2do Ejemplo

Dim lastPos As Integer ' Donde se estaba escribiendo
    Dim nLine As Integer   ' Linea donde se trabaja
    Dim start As Integer   ' Indice del principio de la linea dentro del texto
    Dim final As Integer   ' Fin de la linea (largo de la linea)
 
    Private Sub rtf_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rtf.TextChanged
        ' "@" se colorea                         (NOTA: Funciona a medias, con el tema 
        ' "@asfdasd" : @ se colorea        ( de que si se borra queda el color que estaba)
        colorear("@", Color.Red, False, False)
        ' "echo" se colorea
        ' "malechor" : echo no se colorea
        colorear("echo", Color.Blue, False)
    End Sub
 
    Sub colorear(ByVal clave As String, ByVal color As Color, Optional ByVal spaceAntes As Boolean = True, Optional ByVal spaceDespues As Boolean = True)
        Try
            ' Para recordar en que posicion estaba y no provocar problemas
            lastPos = rtf.SelectionStart
            ' Obtenemos la linea a trabajar
            nLine = rtf.GetLineFromCharIndex(lastPos)
            ' Obtenemos el indice de la linea (indice dentro de todo el texto, no conviene separar la linea en otra variable)
            start = rtf.GetFirstCharIndexOfCurrentLine()
            ' establecemos el limite para buscar la palabra clave
            final = rtf.Lines(nLine).Length
 
            ' Para saber si se tiene que escribir la palabra clave por separado
            If spaceAntes Then clave = " " & clave
            If spaceDespues Then clave = clave & " "
 
            ' Buscamos la palabra clave, si no esta, no hacemos nada
            If Not rtf.Text.IndexOf(clave, start, final) = -1 Then
                rtf.SelectionStart = rtf.Text.IndexOf(clave, start, final)
                rtf.SelectionLength = clave.Length ' Para no colorear demas....
                rtf.SelectionColor = color
            End If
 
            ' Volvemos a donde se estaba escribiendo, y al color normal
            rtf.SelectionStart = lastPos
            rtf.SelectionLength = 0
            rtf.SelectionColor = rtf.ForeColor
        Catch ex As Exception
 
        End Try
    End Sub

Dim fs As New FileStream("c:\op.txt", FileMode.Open)
 
'Bloquear
fs.Lock(0, fs.Length)
 
'Desbloquear
fs.Unlock(0, fs.Length)

Class Persona
   Public Nombre as String
   Public Apellido as String
End Class

Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
 
<Serializable()> _
Class Persona
   Public Nombre as String
   Public Apellido as String
 
   Public Function Clonar() As Persona
   End Function
End Class

en la funcion Clonar pones esto:
 Dim clon As Persona  ' Objeto donde se va a copiar por valor
 
        ' Serializadores, objeto en memoria
        Dim formatter As IFormatter = New BinaryFormatter()
        Dim str As Stream = New MemoryStream()
 
        formatter.Serialize(str, Me)  ' Copiamos a un stream en la memoria
        str.Seek(0, SeekOrigin.Begin) ' Vamos al principio para volver a "leer"
        clon = CType(formatter.Deserialize(str), Persona) ' Lo leemos y lo guardamos en el objeto "clonado"
 
        Return clon

Por lo cual todo junto te quedaria asi:

Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO
 
<Serializable()> _
Class Persona
   Public Nombre as String
   Public Apellido as String
 
   Public Function Clonar() As Persona
        Dim clon As Persona
 
        Dim formatter As IFormatter = New BinaryFormatter()
        Dim str As Stream = New MemoryStream()
 
        formatter.Serialize(str, Me)
        str.Seek(0, SeekOrigin.Begin)
        clon = CType(formatter.Deserialize(str), Persona)
 
        Return clon
   End Function
End Class