Click here to Skip to main content
15,071,921 members
Please Sign up or sign in to vote.
4.00/5 (1 vote)
See more:
hi
The program runs on Windows 7, no problem. But the program does not run on Windows XP

Problem is the code:
AxWinsockb.Bind(123, "127.0.0.1")



Source program (server &client) + AxWinsoc :
http://www.mediafire.com/?isgbqb15tzrtofb[^]


client code :

VB
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsockb.RemoteHost = "ASUS-PC"

        AxWinsockb.RemotePort = 321

        AxWinsockb.Bind(123, "127.0.0.1")

    End Sub

    Private Sub form1_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsockb.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click

        Se110.Text = Re110.Text

        AxWinsockb.SendData(Se110.Text)

    End Sub

    Private Sub AxWinsockb_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival  Event) Handles AxWinsockb.DataArrival

        AxWinsockb.GetData(Re110.Text)

    End Sub

End Class




server code :
VB
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsocka.RemoteHost = "ASUS-PC"

        AxWinsocka.RemotePort = "123"

        AxWinsocka.Bind(321, "127.0.0.1")

    End Sub

    Private Sub form1_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        AxWinsocka.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        AxWinsocka.SendData(Sepc.Text)

    End Sub

    Private Sub AxWinsocka_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrival  Event) Handles AxWinsocka.DataArrival

        AxWinsocka.GetData(Repc.Text)

    End Sub
End Class
Posted
Updated 5-Oct-12 22:25pm
v2

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)




CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900