Option Explicit & B8 g: K) ^5 }0 i6 a) D, ^5 g. J. ?+ P1 h! O, I8 Z1 g; c3 t! \4 v
Private Sub cmdListen_Click() 9 ~' y* D3 P- y' G# e( o Me.sktServer.Listen l Q' o# X T% z: d P
End Sub 6 g, z) N) D! p3 r; Z% p* [1 X/ o+ K; F2 y. K; U0 I2 x" `
Private Sub cmdSend_Click() 7 Q- R8 _1 d, {- H2 O Me.sktServer.SendData Me.txtSend.Text9 J% K5 u5 ~$ H4 ^
End Sub 7 Y7 Z5 a. i& x7 O/ y 3 E, D& L: L3 L1 y% H; }/ E/ dPrivate Sub cmdDisconnect_Click() # _$ S. N5 @1 O& ] Me.sktServer.Close 4 J& Y9 Y* p' z' u5 `End Sub4 @2 q5 L& F( w8 O0 _6 s6 {
* }: e- p. O2 ZPrivate Sub Form_Load() 4 a" N6 u1 |$ z [3 g* E$ T- ?. T. ]6 S( J- L3 w/ M9 v- i
End Sub1 J( P. @. l& c, h( }
* d0 t7 `# t l6 `
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)! {$ d$ e3 N" a/ q* E
Me.sktServer.Close : f. p" z5 f. b* d Me.sktServer.Accept requestID 1 W; z. s& |% w. c% H- qEnd Sub " T) f E# i: i* \/ r; t' E9 `1 ^# b: Q7 G1 l+ q8 f
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long) , B. x# a+ ?2 O+ m, w. `# S! R Dim Buffer As String $ n' E7 l: v4 R% N1 O( k9 I Me.sktServer.GetData Buffer' A$ y9 c, M* o
Me.txtReceive.Text = Buffer 8 V9 E8 @9 z, R* E$ rEnd Sub 8 Y# S4 y$ z7 e7 F