Article View: comp.lang.basic.visual.3rdparty
Article #91Re: HELP!!!!
From: nybblex
Date: Fri, 17 Mar 2000 00:00
Date: Fri, 17 Mar 2000 00:00
57 lines
2878 bytes
2878 bytes
You 've got to create a server and a client in one project. 2 or 1 form(s) its up to you...( On the server's side it have to Listen on some port e.g 1977 and allow incoming connections. Using the ms winsock control: Experiment with the folllowing... Lets say that we have a button called cmdListen Private Sub cmdListen_click TCPserver.LocalPort = 1977 TCPserver.Listen End sub Private Sub TCPserver_ConnectionRequest(ByVal requestID As Long) If winsock.State <> sckClosed Then 'avoiding errors TCPserver.Close End If TCPserver.Accept (requestID) End Sub Now you 've got a server listening on port 1977. The client's cmdConnect button should look something like below..: winsock.connect(remoteHost, 1977) ...etc... . . I hope you get the idea.... I could send you some ready code with all that but I beleive that the joy of making it by yourself is great, isn't it?? If you need some code although, just ask it... Hope I 've helped nybblex � rt_payne <rt_payne@email.msn.com> ������ ��� ������ ���������: Or1cpF3j$GA.257@cpmsnbbsa04... > Hello everybody. I am a newbie to the VB Programming biz, and I want to > create an "instant messanging" program for my buddy and I. I want to use > WinSock (or SocketWrench) to talk to him, and recieve text from him over our > network using TCP/IP. Because I am a newbie, I don't know a darn thing about > using WinSock. Could anybody please tell me, step-by-step, how to use the > WinSock control for this, and provide a commented example for this? Your > help would be greatly appriecieated. I am at my work's workstation, so just > email me your reply at this email: stpgrphcs@nfmail.com > Thanks! > >
Technical Details
Message-ID:
<8atfrh$khc$1@newssrv.otenet.gr>Path:
arc1-ca.pugleaf.net!unknown!not-for-mailReferences:
<Or1cpF3j$GA.257@cpmsnbbsa04>Show Full Headers
Complete Article Headers
X-Google-Language: ENGLISH,ASCII X-Google-Thread: 10c1ca,82e77d519f60e444 X-Google-Attributes: gid10c1ca,public X-Google-Thread: f5f6f,82e77d519f60e444 X-Google-Attributes: gidf5f6f,public X-Google-Thread: 110e3b,82e77d519f60e444 X-Google-Attributes: gid110e3b,public X-Google-Thread: f96de,82e77d519f60e444 X-Google-Attributes: gidf96de,public X-Google-Thread: 107824,82e77d519f60e444 X-Google-Attributes: gid107824,public From: "nybblex" <nybblex@yahoo.com> Subject: Re: HELP!!!! Date: 2000/03/17 Message-ID: <8atfrh$khc$1@newssrv.otenet.gr> X-Deja-AN: 598767778 References: <Or1cpF3j$GA.257@cpmsnbbsa04> X-Priority: 3 X-MIMEOLE: Produced By Microsoft MimeOLE V5.00.2314.1300 X-Complaints-To: abuse@otenet.gr X-Trace: newssrv.otenet.gr 953303729 21036 195.167.118.108 (17 Mar 2000 14:35:29 GMT) Organization: An OTEnet S.A. customer X-MSMail-Priority: Normal NNTP-Posting-Date: 17 Mar 2000 14:35:29 GMT Newsgroups: comp.lang.basic.visual.3rdparty,comp.lang.basic.visual.misc,comp.os.ms-windows.apps.winsock.misc,comp.os.ms-windows.programmer.tools.winsock,fj.comp.lang.visualbasic