ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/experimental/host/vb_net_test/nettest.frm
(Generate patch)

Comparing experimental/host/vb_net_test/nettest.frm (file contents):
Revision 1.1 by pjm2, Thu Feb 22 17:04:22 2001 UTC vs.
Revision 1.2 by pjm2, Fri Feb 23 09:42:36 2001 UTC

# Line 119 | Line 119 | Attribute VB_GlobalNameSpace = False
119   Attribute VB_Creatable = False
120   Attribute VB_PredeclaredId = True
121   Attribute VB_Exposed = False
122 + Dim filterHostname As String
123 + Dim filterTCPPort As String
124 + Dim filterUDPPort As String
125 +
126 + Dim protocolVersion As String
127 + Dim connected As Boolean
128   Dim responseNumber As Integer
129  
130  
131   Private Sub Command1_Click()
132  
133 <    ' Use the first winsock control to send
128 <    ' a UDP packet.
133 >    ' Use the first winsock control to send a UDP packet.
134      Winsock1.RemoteHost = Text3.Text
135      Winsock1.RemotePort = Text2.Text
136      Winsock1.SendData Text1.Text
# Line 144 | Line 149 | Private Sub Command3_Click()
149      x = MsgBox("not implemented..")
150   End Sub
151  
152 + Private Sub Form_Load()
153 +    protocolVersion = "1.1"
154 + End Sub
155 +
156   Private Sub Winsock2_Connect()
157        
158     responseNumber = 0
# Line 165 | Line 174 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
174      response = Replace(response, Chr(10), "")
175      Text4.Text = Text4.Text & vbCrLf & response
176      
177 <    ' Decide what to send back to the server.
178 <    Select Case responseNumber
179 <        Case 1:
180 <            Winsock2.SendData "LASTMODIFIED" & vbCrLf
181 <        Case 2:
182 <            Winsock2.SendData "FILELIST" & vbCrLf
183 <        Case 3:
184 <            Winsock2.SendData "UDPUpdateTime" & vbCrLf
185 <        Case 4:
186 <            Winsock2.SendData "TCPUpdateTime" & vbCrLf
187 <        Case 5:
188 <            Winsock2.SendData "ENDCONFIG" & vbCrLf
189 <        Case 6:
190 <            Winsock2.SendData "FILTER" & vbCrLf
191 <        Case 7:
192 <            Winsock2.SendData "END" & vbCrLf
193 <        Case 8:
194 <            Winsock2.Close
195 <            Text4.Text = Text4.Text & vbCrLf & "  <closed>"
196 <    End Select
177 >    If connected = False Then
178 >        ' Perform TCP configuration (1.1)
179 >        On Error GoTo configError
180 >        Select Case responseNumber
181 >            Case 1:
182 >                If Not response = "OK" Then GoTo configError
183 >                Winsock2.SendData "LASTMODIFIED" & vbCrLf
184 >            Case 2:
185 >                If response = "ERROR" Then GoTo configError
186 >                Winsock2.SendData "FILELIST" & vbCrLf
187 >            Case 3:
188 >                If response = "ERROR" Then GoTo configError
189 >                Winsock2.SendData "UDPUpdateTime" & vbCrLf
190 >            Case 4:
191 >                If response = "ERROR" Then GoTo configError
192 >                Winsock2.SendData "TCPUpdateTime" & vbCrLf
193 >            Case 5:
194 >                If response = "ERROR" Then GoTo configError
195 >                Winsock2.SendData "ENDCONFIG" & vbCrLf
196 >            Case 6:
197 >                If Not response = "OK" Then GoTo configError
198 >                Winsock2.SendData "FILTER" & vbCrLf
199 >            Case 7:
200 >                'we got a filter list here.
201 >                readTo = 0
202 >                ' get hostname
203 >                readTo = InStr(1, response, ";", vbBinaryCompare)
204 >                filterHostname = Mid(response, 1, readTo - 1)
205 >                response = Mid(response, readTo + 1, Len(response))
206 >                ' get UDP Port number
207 >                readTo = InStr(1, response, ";")
208 >                filterUDPPort = Mid(response, 1, readTo - 1)
209 >                response = Mid(response, readTo + 1, Len(response))
210 >                ' get TCP Port number
211 >                filterTCPPort = response
212 >                Winsock2.SendData "END" & vbCrLf
213 >            Case 8:
214 >                If Not response = "OK" Then GoTo configError
215 >                connected = True
216 >                responseNumber = 0
217 >                Winsock2.Close
218 >                Text4.Text = Text4.Text & vbCrLf & "  <closed>"
219 >                x = MsgBox("got config okay")
220 >        End Select
221 >    Else
222 >        ' Perform a heartbeat (1.1)
223 >        On Error GoTo heartbeatError
224 >        Select Case responseNumber
225 >            Case 1:
226 >                
227 >            Case 2:
228 >                
229 >            Case 3:
230 >                
231 >            Case 4:
232 >                
233 >            Case 5:
234 >                
235 >            Case 6:
236 >                
237 >            Case 7:
238 >                
239 >            Case 8:
240 >                
241 >        End Select
242 >    
243 >    End If
244 >    
245 >    
246 >    Exit Sub
247 >    
248 > configError:
249 >    x = MsgBox("error doing configuration")
250 > heartbeatError:
251      
252   End Sub

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines