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.2 by pjm2, Fri Feb 23 09:42:36 2001 UTC vs.
Revision 1.10 by pjm2, Fri Feb 23 11:42:06 2001 UTC

# Line 1 | Line 1
1   VERSION 5.00
2   Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3   Begin VB.Form Form1
4 <   BorderStyle     =   3  'Fixed Dialog
5 <   Caption         =   "TCP/UDP Test program"
4 >   BorderStyle     =   4  'Fixed ToolWindow
5 >   Caption         =   "i-scream Winhost"
6     ClientHeight    =   5655
7     ClientLeft      =   45
8 <   ClientTop       =   330
8 >   ClientTop       =   285
9     ClientWidth     =   5670
10     LinkTopic       =   "Form1"
11     MaxButton       =   0   'False
# Line 14 | Line 14 | Begin VB.Form Form1
14     ScaleWidth      =   5670
15     ShowInTaskbar   =   0   'False
16     StartUpPosition =   3  'Windows Default
17 <   Begin VB.CommandButton Command3
18 <      Caption         =   "TCP to Filter"
19 <      Height          =   375
20 <      Left            =   3720
21 <      TabIndex        =   9
22 <      Top             =   2520
23 <      Width           =   1575
17 >   Begin VB.Timer Timer1
18 >      Left            =   4200
19 >      Top             =   1200
20     End
21     Begin VB.TextBox Text4
22 <      Height          =   2535
22 >      Height          =   1575
23        Left            =   240
24        MultiLine       =   -1  'True
25        ScrollBars      =   2  'Vertical
26 <      TabIndex        =   8
26 >      TabIndex        =   1
27        Text            =   "nettest.frx":0000
28        Top             =   3000
29        Width           =   5055
30     End
31 <   Begin VB.CommandButton Command2
32 <      Caption         =   "TCP to FilterManager"
33 <      Height          =   375
34 <      Left            =   3360
35 <      TabIndex        =   7
40 <      Top             =   2040
41 <      Width           =   1935
42 <   End
43 <   Begin MSWinsockLib.Winsock Winsock2
44 <      Left            =   4920
31 >   Begin VB.CommandButton Reconfigure
32 >      Caption         =   "Reconfigure with FilterManager"
33 >      Height          =   495
34 >      Left            =   120
35 >      TabIndex        =   0
36        Top             =   120
37 +      Width           =   2895
38 +   End
39 +   Begin MSWinsockLib.Winsock TCPSock
40 +      Left            =   5160
41 +      Top             =   1200
42        _ExtentX        =   741
43        _ExtentY        =   741
44        _Version        =   393216
45     End
46 <   Begin VB.TextBox Text3
47 <      Height          =   285
48 <      Left            =   1680
53 <      TabIndex        =   5
54 <      Text            =   "killigrew.ukc.ac.uk"
55 <      Top             =   1560
56 <      Width           =   2535
57 <   End
58 <   Begin VB.TextBox Text2
59 <      Height          =   285
60 <      Left            =   1680
61 <      TabIndex        =   3
62 <      Text            =   "4567"
63 <      Top             =   1920
64 <      Width           =   855
65 <   End
66 <   Begin VB.CommandButton Command1
67 <      Caption         =   "Send UDP"
68 <      Height          =   375
69 <      Left            =   4320
70 <      TabIndex        =   2
71 <      Top             =   1560
72 <      Width           =   975
73 <   End
74 <   Begin VB.TextBox Text1
75 <      Height          =   855
76 <      Left            =   360
77 <      TabIndex        =   0
78 <      Text            =   "<packet></packet>"
79 <      Top             =   600
80 <      Width           =   4935
81 <   End
82 <   Begin MSWinsockLib.Winsock Winsock1
83 <      Left            =   4320
84 <      Top             =   120
46 >   Begin MSWinsockLib.Winsock UDPSock
47 >      Left            =   4680
48 >      Top             =   1200
49        _ExtentX        =   741
50        _ExtentY        =   741
51        _Version        =   393216
52        Protocol        =   1
53     End
54 <   Begin VB.Label Label3
54 >   Begin VB.Label Label2
55        Alignment       =   1  'Right Justify
56 <      Caption         =   "Destination:"
56 >      Caption         =   "Next heartbeat:"
57        Height          =   255
58 <      Left            =   360
58 >      Left            =   3360
59        TabIndex        =   6
60 <      Top             =   1560
61 <      Width           =   1215
60 >      Top             =   480
61 >      Width           =   1455
62     End
63 <   Begin VB.Label Label2
63 >   Begin VB.Label Label1
64        Alignment       =   1  'Right Justify
65 <      Caption         =   "Port:"
65 >      Caption         =   "Next UDP packet:"
66        Height          =   255
67 <      Left            =   360
67 >      Left            =   3360
68 >      TabIndex        =   5
69 >      Top             =   120
70 >      Width           =   1455
71 >   End
72 >   Begin VB.Label Label4
73 >      BorderStyle     =   1  'Fixed Single
74 >      Caption         =   "0"
75 >      Height          =   255
76 >      Left            =   4920
77        TabIndex        =   4
78 <      Top             =   1920
79 <      Width           =   1215
78 >      Top             =   480
79 >      Width           =   615
80     End
81 <   Begin VB.Label Label1
82 <      Caption         =   "Packet contents"
81 >   Begin VB.Label Label3
82 >      BorderStyle     =   1  'Fixed Single
83 >      Caption         =   "0"
84        Height          =   255
85 <      Left            =   360
86 <      TabIndex        =   1
87 <      Top             =   360
88 <      Width           =   2895
85 >      Left            =   4920
86 >      TabIndex        =   3
87 >      Top             =   120
88 >      Width           =   615
89     End
90 +   Begin VB.Label Status
91 +      Caption         =   "Status:"
92 +      Height          =   255
93 +      Left            =   120
94 +      TabIndex        =   2
95 +      Top             =   840
96 +      Width           =   5415
97 +   End
98   End
99   Attribute VB_Name = "Form1"
100   Attribute VB_GlobalNameSpace = False
101   Attribute VB_Creatable = False
102   Attribute VB_PredeclaredId = True
103   Attribute VB_Exposed = False
104 + Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
105 + Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
106 +
107 + Dim filterManagerHostname As String
108 + Dim filterManagerTCPPort As Integer
109 +
110   Dim filterHostname As String
111 < Dim filterTCPPort As String
112 < Dim filterUDPPort As String
111 > Dim filterTCPPort As Integer
112 > Dim filterUDPPort As Integer
113 > Dim fileList As String
114 > Dim lastModified As String
115  
116 + Dim UDPUpdateTime As Integer
117 + Dim TCPUpdateTime As Integer
118 +
119   Dim protocolVersion As String
120   Dim connected As Boolean
121   Dim responseNumber As Integer
# Line 130 | Line 123 | Dim responseNumber As Integer
123  
124   Private Sub Command1_Click()
125  
126 +    ' build the contents of the XML packet.
127 +    xml = "<packet></packet>"
128 +
129      ' Use the first winsock control to send a UDP packet.
130 <    Winsock1.RemoteHost = Text3.Text
131 <    Winsock1.RemotePort = Text2.Text
132 <    Winsock1.SendData Text1.Text
130 >    UDPSock.RemoteHost = filterHostname
131 >    UDPSock.RemotePort = filterUDPPort
132 >    UDPSock.SendData xml
133 >    Status.Caption = "i-scream Winhost " & protocolVersion & " - UDP packet sent."
134  
135   End Sub
136  
140 Private Sub Command2_Click()
141    
142    ' establish a TCP connection to a machine
143    Winsock2.Close
144    Winsock2.Connect Text3.Text, Text2.Text
137  
146 End Sub
147
138   Private Sub Command3_Click()
139 <    x = MsgBox("not implemented..")
139 >    ' establish a TCP connection to a filter
140 >    TCPSock.Close
141 >    TCPSock.Connect filterHostname, filterTCPPort
142   End Sub
143  
144   Private Sub Form_Load()
145      protocolVersion = "1.1"
146 +      
147 +    Status.Caption = "Loading"
148 +    Form1.Caption = "i-scream Winhost " & protocolVersion
149 +    
150 +    ''''TEMP
151 +    filterManagerHostname = "killigrew.ukc.ac.uk"
152 +    filterManagerTCPPort = 4567
153 +    Reconfigure_Click
154 +    Exit Sub
155 +    ''' ENDTEMP
156 +    
157 +    On Error GoTo iniError
158 +    Dim buf As String * 256
159 +    Dim length As Long
160 +    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
161 +    filterManagerHostname = Left$(buf, length)
162 +    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
163 +    filterManagerTCPPort = Left$(buf, length)
164 +    
165 +    Status.Caption = "Connecting to Filter Manager"
166 +    
167 +    Exit Sub
168 +    
169 + iniError:
170 +    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.", 48, "Configuration not found")
171 +    End
172 +    
173   End Sub
174  
175 < Private Sub Winsock2_Connect()
176 <      
177 <   responseNumber = 0
175 > Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
176 >    x = MsgBox("Are you sure you want to shut down the Winhost?", vbYesNo, "i-scream Winhost")
177 >    If x = 7 Then
178 >        Cancel = True
179 >    End If
180 >
181 > End Sub
182 >
183 > Private Sub Reconfigure_Click()
184 >    ' establish a TCP connection to a filtermanager
185 >    connected = False
186 >    TCPSock.Close
187 >    TCPSock.Connect filterManagerHostname, filterManagerTCPPort
188 > End Sub
189 >
190 > Private Sub TCPSock_Connect()
191 >    
192 >    responseNumber = 0
193    
194 <   ' As soon as we are connected to the server, send this.
195 <   Winsock2.SendData "STARTCONFIG" & vbCrLf
194 >    ' Send something as soon as we connect to the server.
195 >    If connected = False Then
196 >        ' contact the FilterManager
197 >        TCPSock.SendData "STARTCONFIG" & vbCrLf
198 >    Else
199 >       ' Contact the Filter
200 >       TCPSock.SendData "HEARTBEAT" & vbCrLf
201 >    End If
202    
203   End Sub
204  
205 < Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
205 > Private Sub TCPSock_DataArrival(ByVal bytesTotal As Long)
206      
207      responseNumber = responseNumber + 1
208      
209      ' Get the line from the server.
210 <    Winsock2.GetData response, vbString, bytesTotal
210 >    TCPSock.GetData response, vbString, bytesTotal
211      
212      ' Remove linefeeds and returns from the line.
213      response = Replace(response, Chr(13), "")
# Line 180 | Line 220 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
220          Select Case responseNumber
221              Case 1:
222                  If Not response = "OK" Then GoTo configError
223 <                Winsock2.SendData "LASTMODIFIED" & vbCrLf
223 >                TCPSock.SendData "LASTMODIFIED" & vbCrLf
224              Case 2:
225                  If response = "ERROR" Then GoTo configError
226 <                Winsock2.SendData "FILELIST" & vbCrLf
226 >                lastModified = response
227 >                TCPSock.SendData "FILELIST" & vbCrLf
228              Case 3:
229                  If response = "ERROR" Then GoTo configError
230 <                Winsock2.SendData "UDPUpdateTime" & vbCrLf
230 >                fileList = response
231 >                TCPSock.SendData "UDPUpdateTime" & vbCrLf
232              Case 4:
233                  If response = "ERROR" Then GoTo configError
234 <                Winsock2.SendData "TCPUpdateTime" & vbCrLf
234 >                UDPUpdateTime = response
235 >                TCPSock.SendData "TCPUpdateTime" & vbCrLf
236              Case 5:
237                  If response = "ERROR" Then GoTo configError
238 <                Winsock2.SendData "ENDCONFIG" & vbCrLf
238 >                TCPUpdateTime = response
239 >                TCPSock.SendData "ENDCONFIG" & vbCrLf
240              Case 6:
241                  If Not response = "OK" Then GoTo configError
242 <                Winsock2.SendData "FILTER" & vbCrLf
242 >                TCPSock.SendData "FILTER" & vbCrLf
243              Case 7:
244                  'we got a filter list here.
245                  readTo = 0
# Line 209 | Line 253 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
253                  response = Mid(response, readTo + 1, Len(response))
254                  ' get TCP Port number
255                  filterTCPPort = response
256 <                Winsock2.SendData "END" & vbCrLf
256 >                TCPSock.SendData "END" & vbCrLf
257              Case 8:
258                  If Not response = "OK" Then GoTo configError
259                  connected = True
260                  responseNumber = 0
261 <                Winsock2.Close
261 >                TCPSock.Close
262                  Text4.Text = Text4.Text & vbCrLf & "  <closed>"
263 <                x = MsgBox("got config okay")
263 >                Status.Caption = "Configuration successful"
264 >                Label3.Caption = UDPUpdateTime
265 >                Label4.Caption = TCPUpdateTime
266 >                Timer1.Interval = 1000
267          End Select
268      Else
269          ' Perform a heartbeat (1.1)
270          On Error GoTo heartbeatError
271          Select Case responseNumber
272              Case 1:
273 <                
273 >                If Not response = "OK" Then GoTo heartbeatError
274 >                TCPSock.SendData "CONFIG" & vbCrLf
275              Case 2:
276 <                
276 >                If Not response = "OK" Then GoTo heartbeatError
277 >                TCPSock.SendData fileList & vbCrLf
278              Case 3:
279 <                
279 >                If Not response = "OK" Then GoTo heartbeatError
280 >                TCPSock.SendData lastModified & vbCrLf
281              Case 4:
282 <                
282 >                If Not response = "OK" Then GoTo heartbeatError
283 >                TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
284              Case 5:
285 <                
286 <            Case 6:
287 <                
237 <            Case 7:
238 <                
239 <            Case 8:
240 <                
285 >                If Not response = "OK" Then GoTo heartbeatError
286 >                TCPSock.Close
287 >                Status.Caption = "Heartbeat sent successfully."
288          End Select
289      
290      End If
# Line 246 | Line 293 | Private Sub Winsock2_DataArrival(ByVal bytesTotal As L
293      Exit Sub
294      
295   configError:
296 <    x = MsgBox("error doing configuration")
296 >    Status.Caption = "FAILED to get configuration"
297 >    Exit Sub
298   heartbeatError:
299 +    Status.Caption = "Heatbeat FAILED"
300 +    Exit Sub
301 + End Sub
302 +
303 + Private Sub Timer1_Timer()
304 +
305 +    Label3.Caption = Label3.Caption - 1
306 +    Label4.Caption = Label4.Caption - 1
307      
308 +    Status.Caption = ""
309 +    
310 +    If Label3.Caption < 1 Then
311 +        ' build the contents of the XML packet.
312 +        xml = "<packet></packet>"
313 +
314 +        ' Use the first winsock control to send a UDP packet.
315 +        UDPSock.RemoteHost = filterHostname
316 +        UDPSock.RemotePort = filterUDPPort
317 +        UDPSock.SendData xml
318 +        Status.Caption = "UDP packet sent"
319 +        Label3.Caption = UDPUpdateTime
320 +    End If
321 +    
322 +    If Label4.Caption < 1 Then
323 +        ' establish a TCP connection to a filter
324 +        TCPSock.Close
325 +        TCPSock.Connect filterHostname, filterTCPPort
326 +        Label4.Caption = TCPUpdateTime
327 +    End If
328 +
329   End Sub

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines