Will this work for him with the ports different? Shawn M. Yeaton Technical Support Boston Software Systems Direct: 978.921.9037 AIM: BWS Support www.bostonworkstation.com
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Rich McNeil Sent: Friday, February 25, 2005 3:21 PM To: [email protected] Subject: RE: [Talk] Having BWS read and send Winsock messages Bob, This is the basic script: Dim WithEvents S As CWinSock Dim WithEvents R As CWinSock Private Sub S_Data(sData As String, Index As Integer) R.Host = "127.0.0.1" R.Port = 26 R.Send sData End Sub Private Sub Begin Set S = New CWinSock Set R = New CWinSock S.Listen 23 End Sub And it must be placed in either a class module or a UserForm, and BostonWorkStationWinSock must be added to the script's References. You can start it by running the Begin subroutine. Any oncoming messages will be processed by S_Data where they are rerouted to the specified Host and Port. Are there any acknowledgements in this script? If so you'll need to add a R_Data event to receive the acknowledgement and send it back to S with a S.Send. Finally, can more than one message occur at the same time? If so, you'll need to keep track of the Index associated with each incoming message to match them up with acknowledgements. Rich McNeil Boston Software Systems 866 653 5105 www.bostonworkstation.com -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bob Plance Sent: Friday, February 25, 2005 1:29 PM To: BWS (E-mail) Subject: [Talk] Having BWS read and send Winsock messages Hello BWS world, Does anyone have any BWS code that will read info coming over a winsocket and resend it. There is an example in the BWS online Docs about Winsocks but I am having a problem getting it set up. Thanks all, Bob Bob Plance Programmer/Analyst Information Systems 955 Ribaut Road Beaufort, SC 29902 843-522-5770 fax 843-522-5961 [EMAIL PROTECTED]
