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

Comparing projects/cms/source/host/winhost/nettest.frm (file contents):
Revision 1.6 by pjm2, Fri Feb 23 10:53:30 2001 UTC vs.
Revision 1.7 by pjm2, Fri Feb 23 10:58:00 2001 UTC

# Line 14 | Line 14 | Begin VB.Form Form1
14     ScaleWidth      =   5670
15     ShowInTaskbar   =   0   'False
16     StartUpPosition =   3  'Windows Default
17 +   Begin VB.Timer TCPTimer
18 +      Left            =   3360
19 +      Top             =   120
20 +   End
21 +   Begin VB.Timer UDPTimer
22 +      Left            =   3840
23 +      Top             =   120
24 +   End
25     Begin VB.CommandButton Command3
26        Caption         =   "TCP to Filter"
27        Height          =   375
# Line 63 | Line 71 | Begin VB.Form Form1
71        _Version        =   393216
72        Protocol        =   1
73     End
74 +   Begin VB.Label Label2
75 +      Caption         =   "Label2"
76 +      Height          =   255
77 +      Left            =   120
78 +      TabIndex        =   6
79 +      Top             =   600
80 +      Width           =   3375
81 +   End
82 +   Begin VB.Label Label1
83 +      Caption         =   "Label1"
84 +      Height          =   255
85 +      Left            =   120
86 +      TabIndex        =   5
87 +      Top             =   240
88 +      Width           =   3375
89 +   End
90     Begin VB.Label Status
91        Caption         =   "Status:"
92        Height          =   255
# Line 89 | Line 113 | 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 150 | Line 177 | iniError:
177      
178   End Sub
179  
153 – Private Sub Label1_Click()
154 –
155 – End Sub
156 –
180   Private Sub TCPSock_Connect()
181      
182      responseNumber = 0
# Line 198 | Line 221 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
221                  TCPSock.SendData "UDPUpdateTime" & vbCrLf
222              Case 4:
223                  If response = "ERROR" Then GoTo configError
224 +                UDPUpdateTime = response
225                  TCPSock.SendData "TCPUpdateTime" & vbCrLf
226              Case 5:
227                  If response = "ERROR" Then GoTo configError
228 +                TCPUpdateTime = response
229                  TCPSock.SendData "ENDCONFIG" & vbCrLf
230              Case 6:
231                  If Not response = "OK" Then GoTo configError
# Line 225 | Line 250 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
250                  responseNumber = 0
251                  TCPSock.Close
252                  Text4.Text = Text4.Text & vbCrLf & "  <closed>"
253 +                Label1.Caption = "TCP hearbeat interval: " & UDPUpdateTime
254 +                Label2.Caption = "UDP packet interval: " & TCPUpdateTime
255                  Status.Caption = "i-scream Winhost " & protocolVersion & " - got config okay"
256          End Select
257      Else

Diff Legend

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