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.18 by pjm2, Fri Feb 23 17:51:07 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 402 | Line 417 | Private Sub Timer1_Timer()
417          memory& = memsts.dwAvailVirtual
418          swapFree = memory& \ 1024
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 411 | Line 432 | Private Sub Timer1_Timer()
432                  "<platform>" & osName & "</platform>" & _
433                  "<minor_version>" & osVersionMinor & "</minor_version>" & _
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