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.24 by pjm2, Mon Feb 26 10:13:10 2001 UTC

# Line 4 | Line 4 | Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0
4   Begin VB.Form Form1
5     BorderStyle     =   3  'Fixed Dialog
6     Caption         =   "i-scream Winhost"
7 <   ClientHeight    =   5655
7 >   ClientHeight    =   1275
8     ClientLeft      =   45
9     ClientTop       =   330
10     ClientWidth     =   4710
# Line 12 | Line 12 | Begin VB.Form Form1
12     LinkTopic       =   "Form1"
13     MaxButton       =   0   'False
14     MinButton       =   0   'False
15 <   ScaleHeight     =   5655
15 >   ScaleHeight     =   1275
16     ScaleWidth      =   4710
17     ShowInTaskbar   =   0   'False
18 <   StartUpPosition =   3  'Windows Default
18 >   StartUpPosition =   2  'CenterScreen
19 >   Visible         =   0   'False
20     Begin VB.CommandButton Hide
21        Caption         =   "Hide Window"
22        Height          =   375
23        Left            =   3120
24 <      TabIndex        =   7
25 <      Top             =   840
24 >      TabIndex        =   6
25 >      Top             =   480
26        Width           =   1455
27     End
28     Begin SysTray.SystemTray SystemTray
# Line 36 | Line 37 | Begin VB.Form Form1
37        Left            =   2760
38        Top             =   1800
39     End
39 –   Begin VB.TextBox Text4
40 –      Height          =   1575
41 –      Left            =   240
42 –      MultiLine       =   -1  'True
43 –      ScrollBars      =   2  'Vertical
44 –      TabIndex        =   1
45 –      Text            =   "nettest.frx":0742
46 –      Top             =   3000
47 –      Width           =   3975
48 –   End
40     Begin VB.CommandButton Reconfigure
41        Caption         =   "Reconfigure with FilterManager"
42        Height          =   375
43        Left            =   120
44        TabIndex        =   0
45 <      Top             =   840
45 >      Top             =   480
46        Width           =   2895
47     End
48     Begin MSWinsockLib.Winsock TCPSock
# Line 69 | Line 60 | Begin VB.Form Form1
60        _Version        =   393216
61        Protocol        =   1
62     End
72 –   Begin VB.Label Label5
73 –      Caption         =   "b e t a"
74 –      BeginProperty Font
75 –         Name            =   "MS Sans Serif"
76 –         Size            =   24
77 –         Charset         =   0
78 –         Weight          =   700
79 –         Underline       =   0   'False
80 –         Italic          =   0   'False
81 –         Strikethrough   =   0   'False
82 –      EndProperty
83 –      Height          =   615
84 –      Left            =   240
85 –      TabIndex        =   8
86 –      Top             =   120
87 –      Width           =   1815
88 –   End
63     Begin VB.Label Label2
64        Alignment       =   1  'Right Justify
65        Caption         =   "Next heartbeat:"
66        Height          =   255
67        Left            =   2400
68 <      TabIndex        =   6
69 <      Top             =   480
68 >      TabIndex        =   5
69 >      Top             =   120
70        Width           =   1455
71     End
72     Begin VB.Label Label1
73        Alignment       =   1  'Right Justify
74        Caption         =   "Next UDP packet:"
75        Height          =   255
76 <      Left            =   2400
77 <      TabIndex        =   5
76 >      Left            =   120
77 >      TabIndex        =   4
78        Top             =   120
79        Width           =   1455
80     End
# Line 109 | Line 83 | Begin VB.Form Form1
83        Caption         =   "0"
84        Height          =   255
85        Left            =   3960
86 <      TabIndex        =   4
87 <      Top             =   480
86 >      TabIndex        =   3
87 >      Top             =   120
88        Width           =   615
89     End
90     Begin VB.Label Label3
91        BorderStyle     =   1  'Fixed Single
92        Caption         =   "0"
93        Height          =   255
94 <      Left            =   3960
95 <      TabIndex        =   3
94 >      Left            =   1680
95 >      TabIndex        =   2
96        Top             =   120
97        Width           =   615
98     End
# Line 127 | Line 101 | Begin VB.Form Form1
101        Caption         =   "Status:"
102        Height          =   255
103        Left            =   0
104 <      TabIndex        =   2
105 <      Top             =   1320
104 >      TabIndex        =   1
105 >      Top             =   960
106        Width           =   4695
107     End
108   End
# Line 159 | Line 133 | Dim TCPUpdateTime As Integer
133   Dim protocolVersion As String
134   Dim connected As Boolean
135  
136 < 'Dim CUpTime As New CUpTime
136 > Dim CUpTime As New CUpTime
137  
138   Dim responseNumber As Integer
139  
140   Private Sub Form_Load()
141      
142 +    If App.PrevInstance Then
143 +        x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
144 +    End If
145 +    
146      protocolVersion = "1.1"
147      
148      Status.Caption = "Loading"
149 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
149 >    Form1.Caption = "i-scream Winhost " & protocolVersion
150      
151 +    CUpTime.Init
152 +    
153 +    If CUpTime.isWin9x Then
154 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
155 +        End
156 +    End If
157 +    
158      ''''TEMP
159      'filterManagerHostname = "killigrew.ukc.ac.uk"
160      'filterManagerTCPPort = 4567
# Line 229 | Line 214 | Private Sub SystemTray_MouseDblClk(ByVal Button As Int
214  
215      Form1.Visible = True
216      Form1.SetFocus
232 –    
217  
218   End Sub
219  
# Line 258 | Line 242 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
242      ' Remove linefeeds and returns from the line.
243      response = Replace(response, Chr(13), "")
244      response = Replace(response, Chr(10), "")
245 <    Text4.Text = Text4.Text & vbCrLf & response
245 >    'Text4.Text = Text4.Text & vbCrLf & response
246      
247      If connected = False Then
248          ' Perform TCP configuration (1.1)
# Line 305 | Line 289 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
289                  connected = True
290                  responseNumber = 0
291                  TCPSock.Close
292 <                Text4.Text = Text4.Text & vbCrLf & "  <closed>"
292 >                'Text4.Text = Text4.Text & vbCrLf & "  <closed>"
293                  Status.Caption = "Configuration successful"
294                  Label3.Caption = UDPUpdateTime
295                  Label4.Caption = TCPUpdateTime
# Line 370 | Line 354 | Private Sub Timer1_Timer()
354              End
355          End If
356            
357 <        osName = getVersion()
357 >        osName = GetVersion()
358          osVersionMajor = verinfo.dwMajorVersion
359          osVersionMinor = verinfo.dwMinorVersion
360          osBuild = verinfo.dwBuildNumber
# Line 406 | Line 390 | Private Sub Timer1_Timer()
390          
391          uptime = GetTickCount \ 1000
392          
393 +        CUpTime.Capture
394 +        cpu_time = CUpTime.CPUTime
395 +        percent_idle = CUpTime.PercentIdle
396 +        
397          ' build the contents of the XML packet
398          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
399                "<os>" & _
# Line 417 | Line 405 | Private Sub Timer1_Timer()
405                  "<processor>" & processorType & "</processor>" & _
406                  "<uptime>" & uptime & "</uptime>" & _
407                "</os>" & _
408 +              "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
409                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
410                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
411                "</packet>"
412 <        Text4.Text = Text4.Text + xml
412 >        'Text4.Text = Text4.Text + xml
413  
414          ' Use the first winsock control to send a UDP packet.
415          UDPSock.RemoteHost = filterHostname

Diff Legend

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