WINSOCK VB.NET

Imports System.Diagnostics
Imports MSWinsockLib

Public Class FrmCliente
    Inherits System.Windows.Forms.Form

    Private Sub FrmCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim frmServer As New FrmServer
        Me.Visible = False
        frmServer.Show()
        frmServer.Visible = False

        If AxWinsock1.CtlState = MSWinsockLib.StateConstants.sckConnected Then
            MessageBox.Show([Ô]Server is already connected[Ô])
            Exit Sub
        Else
            [ô]Diagnostics.Process.Start([Ô]GXSoft.exe[Ô])
            Dim conecta As New MSWinsockLib.Winsock
            conecta.RemoteHost = [Ô]127.0.0.1[Ô]
            [ô]AxWinsock1.RemoteHost = [Ô]127.0.0.1[Ô]
            conecta.RemotePort = 10010
            [ô]AxWinsock1.RemotePort = 10010
            conecta.Connect()
            [ô]AxWinsock1.Connect()
        End If
        [ô]  Form1.DefInstance.IsInitializing = False
    End Sub

    Private Sub AxWinsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent)
        Dim strData As Object
        Dim i As Integer
        Dim tstring As String
        strData = 0
        tstring = [Ô][Ô]
        Dim conecta As New MSWinsockLib.Winsock
        AxWinsock1.GetData(strData)

        For i = 0 To UBound(strData)
            tstring = tstring + Chr(strData(i))
        Next
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim conecta As New MSWinsockLib.Winsock
        If AxWinsock1.CtlState <> conecta.State Then
            [ô]MsgBox([Ô]fecha[Ô])

            [ô]Close()
            Form1.Close()

            Timer1.Enabled = False
            Timer1.Interval = 1
        End If


    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

        Timer1.Interval = 1000

        Timer1.Enabled = True
    End Sub

    Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent

    End Sub
End Class

Imports MSWinsockLib

Public Class FrmServer

    Private Sub AxWinsock1_DataArrival(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles AxWinsock1.DataArrival
        [ô]MessageBox.Show([Ô]data arrived[Ô])

        Dim strData As Object
        Dim i As Integer
        Dim tstring As String
        strData = 0
        tstring = [Ô][Ô]

        AxWinsock1.GetData(strData)

        For i = 0 To UBound(strData)
            tstring = tstring + Chr(strData(i))
        Next
    End Sub

    Private Sub AxWinsock1_ConnectionRequest(ByVal sender As System.Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles AxWinsock1.ConnectionRequest
        If AxWinsock1.CtlState <> MSWinsockLib.StateConstants.sckConnected Then
            AxWinsock1.Close()
        End If

        [ô]Á¬½Ó¡£
        AxWinsock1.Accept(e.requestID)
    End Sub

    Private Sub FrmServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxWinsock1.LocalPort = 10010 [ô]˳ÐòºÜÖØÒªportÒªÔÚlistenÇ°Ãæ
        AxWinsock1.Listen()
    End Sub
End Class