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.22 by pjm2, Mon Feb 26 09:25:41 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  
166   Private Sub Form_Load()
167      
168 +    If App.PrevInstance Then
169 +        x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
170 +    End If
171 +    
172      protocolVersion = "1.1"
173      
174      Status.Caption = "Loading"
175 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
175 >    Form1.Caption = "i-scream Winhost " & protocolVersion
176      
177 +    Form1.Show
178 +    
179 +    CUpTime.Init
180 +    
181 +    If CUpTime.isWin9x Then
182 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
183 +        End
184 +    End If
185 +    
186      ''''TEMP
187      'filterManagerHostname = "killigrew.ukc.ac.uk"
188      'filterManagerTCPPort = 4567
# Line 182 | Line 196 | Private Sub Form_Load()
196      filterManagerHostname = Left$(buf, length)
197      length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
198      filterManagerTCPPort = length
199 +    On Error GoTo 0
200   skip:
201  
202      Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
203      Reconfigure_Click
204      
205 <    Form1.Show
205 >    SystemTray.Icon = Val(Form1.Icon)
206      SystemTray.Action = 0
207      
208      
# Line 368 | Line 383 | Private Sub Timer1_Timer()
383              End
384          End If
385            
386 <        osName = getVersion()
386 >        osName = GetVersion()
387          osVersionMajor = verinfo.dwMajorVersion
388          osVersionMinor = verinfo.dwMinorVersion
389          osBuild = verinfo.dwBuildNumber

Diff Legend

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