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.19 by pjm2, Mon Feb 26 08:53:48 2001 UTC vs.
Revision 1.21 by pjm2, Mon Feb 26 09:23:34 2001 UTC

# Line 8 | Line 8 | Begin VB.Form Form1
8     ClientLeft      =   45
9     ClientTop       =   330
10     ClientWidth     =   4710
11 +   Icon            =   "nettest.frx":0000
12     LinkTopic       =   "Form1"
13     MaxButton       =   0   'False
14     MinButton       =   0   'False
# Line 41 | Line 42 | Begin VB.Form Form1
42        MultiLine       =   -1  'True
43        ScrollBars      =   2  'Vertical
44        TabIndex        =   1
45 <      Text            =   "nettest.frx":0000
45 >      Text            =   "nettest.frx":0742
46        Top             =   3000
47        Width           =   3975
48     End
# Line 158 | 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 167 | 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 182 | Line 192 | Private Sub Form_Load()
192      filterManagerHostname = Left$(buf, length)
193      length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
194      filterManagerTCPPort = length
195 +    On Error GoTo 0
196   skip:
197  
198      Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
199      Reconfigure_Click
200      
201 <    Form1.Show
201 >    SystemTray.Icon = Val(Form1.Icon)
202      SystemTray.Action = 0
203      
204      
# Line 368 | 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