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.24 by pjm2, Mon Feb 26 10:13:10 2001 UTC vs.
Revision 1.31 by pjm2, Wed Feb 28 12:04:17 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    =   1275
7 >   ClientHeight    =   1185
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     =   1275
15 >   ScaleHeight     =   1185
16     ScaleWidth      =   4710
17     ShowInTaskbar   =   0   'False
18     StartUpPosition =   2  'CenterScreen
19     Visible         =   0   'False
20 +   Begin VB.CommandButton Command1
21 +      Caption         =   "more"
22 +      Height          =   255
23 +      Left            =   3960
24 +      TabIndex        =   8
25 +      Top             =   840
26 +      Width           =   615
27 +   End
28 +   Begin VB.TextBox Text1
29 +      Height          =   2055
30 +      Left            =   120
31 +      Locked          =   -1  'True
32 +      MultiLine       =   -1  'True
33 +      ScrollBars      =   2  'Vertical
34 +      TabIndex        =   7
35 +      Top             =   1200
36 +      Width           =   4455
37 +   End
38     Begin VB.CommandButton Hide
39 <      Caption         =   "Hide Window"
40 <      Height          =   375
41 <      Left            =   3120
39 >      Caption         =   "hide"
40 >      Height          =   255
41 >      Left            =   3960
42        TabIndex        =   6
43        Top             =   480
44 <      Width           =   1455
44 >      Width           =   615
45     End
46     Begin SysTray.SystemTray SystemTray
47 <      Left            =   2160
48 <      Top             =   1800
47 >      Left            =   2520
48 >      Top             =   4200
49        _ExtentX        =   847
50        _ExtentY        =   847
51        SysTrayText     =   "i-scream Winhost"
52        IconFile        =   0
53     End
54     Begin VB.Timer Timer1
55 <      Left            =   2760
56 <      Top             =   1800
55 >      Left            =   3120
56 >      Top             =   4200
57     End
58     Begin VB.CommandButton Reconfigure
59        Caption         =   "Reconfigure with FilterManager"
60        Height          =   375
61 <      Left            =   120
61 >      Left            =   840
62        TabIndex        =   0
63 <      Top             =   480
63 >      Top             =   3480
64        Width           =   2895
65     End
66     Begin MSWinsockLib.Winsock TCPSock
67 <      Left            =   3720
68 <      Top             =   1800
67 >      Left            =   4080
68 >      Top             =   4200
69        _ExtentX        =   741
70        _ExtentY        =   741
71        _Version        =   393216
72     End
73     Begin MSWinsockLib.Winsock UDPSock
74 <      Left            =   3240
75 <      Top             =   1800
74 >      Left            =   3600
75 >      Top             =   4200
76        _ExtentX        =   741
77        _ExtentY        =   741
78        _Version        =   393216
# Line 64 | Line 82 | Begin VB.Form Form1
82        Alignment       =   1  'Right Justify
83        Caption         =   "Next heartbeat:"
84        Height          =   255
85 <      Left            =   2400
85 >      Left            =   120
86        TabIndex        =   5
87 <      Top             =   120
87 >      Top             =   480
88        Width           =   1455
89     End
90     Begin VB.Label Label1
# Line 82 | Line 100 | Begin VB.Form Form1
100        BorderStyle     =   1  'Fixed Single
101        Caption         =   "0"
102        Height          =   255
103 <      Left            =   3960
103 >      Left            =   1680
104        TabIndex        =   3
105 <      Top             =   120
105 >      Top             =   480
106        Width           =   615
107     End
108     Begin VB.Label Label3
# Line 102 | Line 120 | Begin VB.Form Form1
120        Height          =   255
121        Left            =   0
122        TabIndex        =   1
123 <      Top             =   960
124 <      Width           =   4695
123 >      Top             =   840
124 >      Width           =   3855
125     End
126   End
127   Attribute VB_Name = "Form1"
# Line 134 | Line 152 | Dim protocolVersion As String
152   Dim connected As Boolean
153  
154   Dim CUpTime As New CUpTime
155 + Dim wksta As New CNetWksta
156  
157 + Dim windowBig As Boolean
158 +
159   Dim responseNumber As Integer
160  
161 + Private Sub Command1_Click()
162 +
163 +    ' Toggle visibility of the debug output.
164 +
165 +    If windowBig Then
166 +        Form1.Height = 1500
167 +        windowBig = False
168 +    Else
169 +        Form1.Height = 4350
170 +        windowBig = True
171 +    End If
172 +
173 + End Sub
174 +
175   Private Sub Form_Load()
176      
177      If App.PrevInstance Then
178          x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
179 +        End
180      End If
181      
182      protocolVersion = "1.1"
# Line 151 | Line 187 | Private Sub Form_Load()
187      CUpTime.Init
188      
189      If CUpTime.isWin9x Then
190 <        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server.")
190 >        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server")
191          End
192      End If
193      
194 +    windowBig = False
195 +    
196      ''''TEMP
197      'filterManagerHostname = "killigrew.ukc.ac.uk"
198      'filterManagerTCPPort = 4567
# Line 168 | Line 206 | Private Sub Form_Load()
206      filterManagerHostname = Left$(buf, length)
207      length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
208      filterManagerTCPPort = length
209 +    If filterManagerHostname = "" Then
210 +        GoTo iniError
211 +    End If
212      On Error GoTo 0
213   skip:
214  
# Line 201 | Line 242 | Private Sub Hide_Click()
242      SystemTray.Icon = Val(Form1.Icon)
243   End Sub
244  
245 + Private Sub Image1_Click()
246 +
247 + End Sub
248 +
249   Private Sub Reconfigure_Click()
250      ' establish a TCP connection to a filtermanager
251      connected = False
# Line 242 | Line 287 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
287      ' Remove linefeeds and returns from the line.
288      response = Replace(response, Chr(13), "")
289      response = Replace(response, Chr(10), "")
245 –    'Text4.Text = Text4.Text & vbCrLf & response
290      
291      If connected = False Then
292          ' Perform TCP configuration (1.1)
# Line 251 | Line 295 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
295              Case 1:
296                  If Not response = "OK" Then GoTo configError
297                  TCPSock.SendData "LASTMODIFIED" & vbCrLf
298 +                Text1.Text = "Requesting configuration from FilterManager:- " & vbCrLf
299 +                Text1.Text = Text1.Text & response & vbCrLf
300              Case 2:
301                  If response = "ERROR" Then GoTo configError
302                  lastModified = response
303 +                Text1.Text = Text1.Text & response & vbCrLf
304                  TCPSock.SendData "FILELIST" & vbCrLf
305 +            ' New addition to the protocol.
306              Case 3:
307                  If response = "ERROR" Then GoTo configError
308                  fileList = response
309 <                TCPSock.SendData "UDPUpdateTime" & vbCrLf
309 >                Text1.Text = Text1.Text & response & vbCrLf
310 >                TCPSock.SendData "FQDN" & vbCrLf
311              Case 4:
312                  If response = "ERROR" Then GoTo configError
313 +                Text1.Text = Text1.Text & response & vbCrLf
314 +                machineName = response
315 +                TCPSock.SendData "UDPUpdateTime" & vbCrLf
316 +            Case 5:
317 +                If response = "ERROR" Then GoTo configError
318                  UDPUpdateTime = response
319 +                Text1.Text = Text1.Text & response & vbCrLf
320                  TCPSock.SendData "TCPUpdateTime" & vbCrLf
321 <            Case 5:
321 >            Case 6:
322                  If response = "ERROR" Then GoTo configError
323                  TCPUpdateTime = response
324 +                Text1.Text = Text1.Text & response & vbCrLf
325                  TCPSock.SendData "ENDCONFIG" & vbCrLf
326 <            Case 6:
326 >            Case 7:
327                  If Not response = "OK" Then GoTo configError
328 +                Text1.Text = Text1.Text & response & vbCrLf
329                  TCPSock.SendData "FILTER" & vbCrLf
330 <            Case 7:
330 >            Case 8:
331 >                Text1.Text = Text1.Text & response & vbCrLf
332                  'we got a filter list here.
333                  readTo = 0
334                  ' get hostname
# Line 284 | Line 342 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
342                  ' get TCP Port number
343                  filterTCPPort = response
344                  TCPSock.SendData "END" & vbCrLf
345 <            Case 8:
345 >            Case 9:
346                  If Not response = "OK" Then GoTo configError
347                  connected = True
348                  responseNumber = 0
349                  TCPSock.Close
350 +                Text1.Text = Text1.Text & response & vbCrLf
351                  'Text4.Text = Text4.Text & vbCrLf & "  <closed>"
352                  Status.Caption = "Configuration successful"
353                  Label3.Caption = UDPUpdateTime
# Line 301 | Line 360 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
360          Select Case responseNumber
361              Case 1:
362                  If Not response = "OK" Then GoTo heartbeatError
363 +                Text1.Text = "Performing heartbeat: -" & vbCrLf
364 +                Text1.Text = Text1.Text & response & vbCrLf
365                  TCPSock.SendData "CONFIG" & vbCrLf
366              Case 2:
367                  If Not response = "OK" Then GoTo heartbeatError
368 +                Text1.Text = Text1.Text & response & vbCrLf
369                  TCPSock.SendData fileList & vbCrLf
370              Case 3:
371                  If Not response = "OK" Then GoTo heartbeatError
372 +                Text1.Text = Text1.Text & response & vbCrLf
373                  TCPSock.SendData lastModified & vbCrLf
374              Case 4:
375                  If Not response = "OK" Then GoTo heartbeatError
376 +                Text1.Text = Text1.Text & response & vbCrLf
377                  TCPSock.SendData "ENDHEARTBEAT" & vbCrLf
378              Case 5:
379                  If Not response = "OK" Then GoTo heartbeatError
380 +                Text1.Text = Text1.Text & response & vbCrLf
381                  TCPSock.Close
382                  Status.Caption = "Heartbeat sent successfully."
383          End Select
# Line 341 | Line 406 | Private Sub Timer1_Timer()
406          
407          ' prepare the contents of the XML packet.
408          seqNo = seqNo + 1
409 <        machineName = TCPSock.LocalHostName
409 >        
410 >        netbiosName = TCPSock.LocalHostName
411 >        
412          LocalIP = TCPSock.LocalIP
413          packetDate = Date2Num()
414          
# Line 380 | Line 447 | Private Sub Timer1_Timer()
447          Dim memory&
448          GlobalMemoryStatus memsts
449          memory& = memsts.dwTotalPhys
450 <        memTotal = memory& \ 1024
450 >        memTotal = memory& \ 1048576
451          memory& = memsts.dwAvailPhys
452 <        memFree = memory& \ 1024
452 >        memFree = memory& \ 1048576
453          memory& = memsts.dwTotalVirtual
454 <        swapTotal = memory& \ 1024
454 >        swapTotal = memory& \ 1048576
455          memory& = memsts.dwAvailVirtual
456 <        swapFree = memory& \ 1024
456 >        swapFree = memory& \ 1048576
457          
458 <        uptime = GetTickCount \ 1000
458 >        uptime = CUpTime.MilliSecs \ 1000
459          
460          CUpTime.Capture
461          cpu_time = CUpTime.CPUTime
462          percent_idle = CUpTime.PercentIdle
463          
464 +        userCount = wksta.LoggedOnUsers
465 +        
466          ' build the contents of the XML packet
467          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
468                "<os>" & _
469 +                "<netbios_name>" & netbiosName & "</netbios_name>" & _
470                  "<name>" & osName & "</name>" & _
471                  "<version>" & osVersionMajor & "</version>" & _
472                  "<release>" & osBuild & "</release>" & _
# Line 405 | Line 475 | Private Sub Timer1_Timer()
475                  "<processor>" & processorType & "</processor>" & _
476                  "<uptime>" & uptime & "</uptime>" & _
477                "</os>" & _
478 +              "<users><count>" & userCount & "</count></users>" & _
479                "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
480                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
481                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
482                "</packet>"
483 <        'Text4.Text = Text4.Text + xml
483 >        Text1.Text = "Last packet contained: -" & vbCrLf & xml
484  
485          ' Use the first winsock control to send a UDP packet.
486          UDPSock.RemoteHost = filterHostname

Diff Legend

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