Click here to Skip to main content
11,629,614 members (54,614 online)

goldpower asked:

Open original thread
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 :

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 :
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
Tags: VB.NET

Preview



When answering a question please:
  1. Read the question carefully.
  2. Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
  3. If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Let's work to help developers, not make them feel stupid.
Please note that all posts will be submitted under the The Code Project Open License (CPOL).



Advertise | Privacy | Mobile
Web02 | 2.8.150723.1 | Last Updated 26 Mar 2009
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100