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.19 by pjm2, Mon Feb 26 08:53:48 2001 UTC vs.
Revision 1.23 by pjm2, Mon Feb 26 09:54:25 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
# Line 404 | Line 419 | Private Sub Timer1_Timer()
419          
420          uptime = GetTickCount \ 1000
421          
422 +        CUpTime.Capture
423 +        cpu_time = CUpTime.CPUTime
424 +        percent_idle = CUpTime.PercentIdle
425 +        
426          ' build the contents of the XML packet
427          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
428                "<os>" & _
# Line 415 | Line 434 | Private Sub Timer1_Timer()
434                  "<processor>" & processorType & "</processor>" & _
435                  "<uptime>" & uptime & "</uptime>" & _
436                "</os>" & _
437 +              "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
438                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
439                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
440                "</packet>"

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines