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.16 by pjm2, Fri Feb 23 17:31:44 2001 UTC vs.
Revision 1.25 by pjm2, Wed Feb 28 08:19:00 2001 UTC

# Line 2 | Line 2 | VERSION 5.00
2   Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
3   Object = "{33155A3D-0CE0-11D1-A6B4-444553540000}#1.0#0"; "SysTray.ocx"
4   Begin VB.Form Form1
5 <   BorderStyle     =   4  'Fixed ToolWindow
5 >   BorderStyle     =   3  'Fixed Dialog
6     Caption         =   "i-scream Winhost"
7 <   ClientHeight    =   5655
7 >   ClientHeight    =   1275
8     ClientLeft      =   45
9 <   ClientTop       =   285
9 >   ClientTop       =   330
10     ClientWidth     =   4710
11 +   Icon            =   "nettest.frx":0000
12     LinkTopic       =   "Form1"
13     MaxButton       =   0   'False
14 <   ScaleHeight     =   5655
14 >   MinButton       =   0   'False
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 34 | Line 37 | Begin VB.Form Form1
37        Left            =   2760
38        Top             =   1800
39     End
37 –   Begin VB.TextBox Text4
38 –      Height          =   1575
39 –      Left            =   240
40 –      MultiLine       =   -1  'True
41 –      ScrollBars      =   2  'Vertical
42 –      TabIndex        =   1
43 –      Text            =   "nettest.frx":0000
44 –      Top             =   3000
45 –      Width           =   3975
46 –   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 72 | Line 65 | Begin VB.Form Form1
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 90 | 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 107 | Line 100 | Begin VB.Form Form1
100        Alignment       =   2  'Center
101        Caption         =   "Status:"
102        Height          =   255
103 <      Left            =   120
104 <      TabIndex        =   2
105 <      Top             =   1320
106 <      Width           =   4455
103 >      Left            =   0
104 >      TabIndex        =   1
105 >      Top             =   960
106 >      Width           =   4695
107     End
108   End
109   Attribute VB_Name = "Form1"
# Line 123 | Line 116 | Private Declare Function GetPrivateProfileString Lib "
116   Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
117  
118   Dim filterManagerHostname As String
119 < Dim filterManagerTCPPort As Integer
119 > Dim filterManagerTCPPort As Long
120  
121   Dim seqNo As Long
122   Dim machineName As String
# Line 140 | 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 > Dim wksta As New CNetWksta
138  
139   Dim responseNumber As Integer
140  
141   Private Sub Form_Load()
142      
143 +    If App.PrevInstance Then
144 +        x = MsgBox("There is already an i-scream Winhost running on this machine.", 48, "i-scream host already running")
145 +        End
146 +    End If
147 +    
148      protocolVersion = "1.1"
149      
150      Status.Caption = "Loading"
151 <    'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
151 >    Form1.Caption = "i-scream Winhost " & protocolVersion
152      
153 +    CUpTime.Init
154 +    
155 +    If CUpTime.isWin9x Then
156 +        x = MsgBox("Sorry, the i-scream host can only be used to monitor servers (i.e. not Win9x)", 48, "Not a server")
157 +        End
158 +    End If
159 +    
160      ''''TEMP
161 <    filterManagerHostname = "killigrew.ukc.ac.uk"
162 <    filterManagerTCPPort = 4567
161 >    'filterManagerHostname = "killigrew.ukc.ac.uk"
162 >    'filterManagerTCPPort = 4567
163      ''''' END TEMP
164      
165 <    GoTo skip
165 >    'GoTo skip
166      On Error GoTo iniError
167      Dim buf As String * 256
168      Dim length As Long
169 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
169 >    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "/winhost.ini")
170      filterManagerHostname = Left$(buf, length)
171 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
172 <    filterManagerTCPPort = Left$(buf, length)
171 >    length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
172 >    filterManagerTCPPort = length
173 >    If filterManagerHostname = "" Then
174 >        GoTo iniError
175 >    End If
176 >    On Error GoTo 0
177   skip:
178  
179 <    Status.Caption = "Connecting to Filter Manager"
179 >    Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
180      Reconfigure_Click
181      
182 <    Form1.Show
182 >    SystemTray.Icon = Val(Form1.Icon)
183      SystemTray.Action = 0
184      
185      
186      Exit Sub
187      
188   iniError:
189 <    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.", 48, "Configuration not found")
189 >    x = MsgBox("The i-scream Winhost could not read the correct settings from the winhost.ini file.  Please correct these and try again.  " & Err.Description, 48, "Configuration not found")
190      End
191      
192   End Sub
# Line 209 | Line 219 | Private Sub SystemTray_MouseDblClk(ByVal Button As Int
219  
220      Form1.Visible = True
221      Form1.SetFocus
212 –    
222  
223   End Sub
224  
# Line 238 | Line 247 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
247      ' Remove linefeeds and returns from the line.
248      response = Replace(response, Chr(13), "")
249      response = Replace(response, Chr(10), "")
250 <    Text4.Text = Text4.Text & vbCrLf & response
250 >    'Text4.Text = Text4.Text & vbCrLf & response
251      
252      If connected = False Then
253          ' Perform TCP configuration (1.1)
# Line 285 | Line 294 | Private Sub TCPSock_DataArrival(ByVal bytesTotal As Lo
294                  connected = True
295                  responseNumber = 0
296                  TCPSock.Close
297 <                Text4.Text = Text4.Text & vbCrLf & "  <closed>"
297 >                'Text4.Text = Text4.Text & vbCrLf & "  <closed>"
298                  Status.Caption = "Configuration successful"
299                  Label3.Caption = UDPUpdateTime
300                  Label4.Caption = TCPUpdateTime
# Line 350 | Line 359 | Private Sub Timer1_Timer()
359              End
360          End If
361            
362 <        osName = getVersion()
362 >        osName = GetVersion()
363          osVersionMajor = verinfo.dwMajorVersion
364          osVersionMinor = verinfo.dwMinorVersion
365          osBuild = verinfo.dwBuildNumber
# Line 384 | Line 393 | Private Sub Timer1_Timer()
393          memory& = memsts.dwAvailVirtual
394          swapFree = memory& \ 1024
395          
396 +        uptime = CUpTime.MilliSecs \ 1000
397 +        
398 +        CUpTime.Capture
399 +        cpu_time = CUpTime.CPUTime
400 +        percent_idle = CUpTime.PercentIdle
401 +        
402          ' build the contents of the XML packet
403          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
404                "<os>" & _
# Line 393 | Line 408 | Private Sub Timer1_Timer()
408                  "<platform>" & osName & "</platform>" & _
409                  "<minor_version>" & osVersionMinor & "</minor_version>" & _
410                  "<processor>" & processorType & "</processor>" & _
411 +                "<uptime>" & uptime & "</uptime>" & _
412                "</os>" & _
413 +              "<cpu><idle>" & percent_idle & "</idle><user>" & cpu_time & "</user></cpu>" & _
414                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
415                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
416 <              ""
417 <        Text4.Text = Text4.Text + xml
416 >              "</packet>"
417 >        'Text4.Text = Text4.Text + xml
418  
419          ' Use the first winsock control to send a UDP packet.
420          UDPSock.RemoteHost = filterHostname

Diff Legend

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