Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB.NET
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
Posted 5-Oct-12 20:38pm
Edited 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)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 6,775
1 OriginalGriff 6,696
2 CPallini 5,345
3 George Jonsson 3,599
4 Gihan Liyanage 2,751


Advertise | Privacy | Mobile
Web03 | 2.8.140922.1 | Last Updated 6 Oct 2012
Copyright © CodeProject, 1999-2014
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