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.20 by pjm2, Mon Feb 26 09:12:51 2001 UTC vs.
Revision 1.21 by pjm2, Mon Feb 26 09:23:34 2001 UTC

# Line 159 | Line 159 | Dim TCPUpdateTime As Integer
159   Dim protocolVersion As String
160   Dim connected As Boolean
161  
162 < 'Dim CUpTime As New CUpTime
162 > Dim CUpTime As New CUpTime
163  
164   Dim responseNumber As Integer
165  
# Line 168 | Line 168 | Private Sub Form_Load()
168      protocolVersion = "1.1"
169      
170      Status.Caption = "Loading"
171 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
171 >    Form1.Caption = "i-scream Winhost " & protocolVersion
172      
173 +    Form1.Show
174 +    
175 +    CUpTime.Init
176 +    
177 +    If CUpTime.isWin9x Then
178 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
179 +        End
180 +    End If
181 +    
182      ''''TEMP
183      'filterManagerHostname = "killigrew.ukc.ac.uk"
184      'filterManagerTCPPort = 4567
# Line 370 | Line 379 | Private Sub Timer1_Timer()
379              End
380          End If
381            
382 <        osName = getVersion()
382 >        osName = GetVersion()
383          osVersionMajor = verinfo.dwMajorVersion
384          osVersionMinor = verinfo.dwMinorVersion
385          osBuild = verinfo.dwBuildNumber

Diff Legend

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