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.13 by pjm2, Fri Feb 23 13:23:53 2001 UTC vs.
Revision 1.23 by pjm2, Mon Feb 26 09:54:25 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
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 +   MinButton       =   0   'False
15     ScaleHeight     =   5655
16     ScaleWidth      =   4710
17     ShowInTaskbar   =   0   'False
# Line 40 | 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 67 | Line 69 | Begin VB.Form Form1
69        _Version        =   393216
70        Protocol        =   1
71     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
89     Begin VB.Label Label2
90        Alignment       =   1  'Right Justify
91        Caption         =   "Next heartbeat:"
# Line 107 | Line 126 | Begin VB.Form Form1
126        Alignment       =   2  'Center
127        Caption         =   "Status:"
128        Height          =   255
129 <      Left            =   120
129 >      Left            =   0
130        TabIndex        =   2
131        Top             =   1320
132 <      Width           =   4455
132 >      Width           =   4695
133     End
134   End
135   Attribute VB_Name = "Form1"
# Line 118 | Line 137 | Attribute VB_GlobalNameSpace = False
137   Attribute VB_Creatable = False
138   Attribute VB_PredeclaredId = True
139   Attribute VB_Exposed = False
140 + ' For the system tray bits
141   Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
142   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
143  
144   Dim filterManagerHostname As String
145 < Dim filterManagerTCPPort As Integer
145 > Dim filterManagerTCPPort As Long
146  
147   Dim seqNo As Long
148   Dim machineName As String
# Line 138 | Line 158 | Dim TCPUpdateTime As Integer
158  
159   Dim protocolVersion As String
160   Dim connected As Boolean
161 +
162 + Dim CUpTime As New CUpTime
163 +
164   Dim responseNumber As Integer
165  
166   Private Sub Form_Load()
144    x = MsgBox(Date2Num())
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
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
187 >    'filterManagerHostname = "killigrew.ukc.ac.uk"
188 >    'filterManagerTCPPort = 4567
189      ''''' END TEMP
190      
191 <    GoTo skip
191 >    'GoTo skip
192      On Error GoTo iniError
193      Dim buf As String * 256
194      Dim length As Long
195 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
195 >    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "/winhost.ini")
196      filterManagerHostname = Left$(buf, length)
197 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
198 <    filterManagerTCPPort = 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"
202 >    Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
203      Reconfigure_Click
204      
205 +    SystemTray.Icon = Val(Form1.Icon)
206 +    SystemTray.Action = 0
207 +    
208 +    
209      Exit Sub
210      
211   iniError:
212 <    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")
212 >    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")
213      End
214      
215   End Sub
# Line 178 | Line 218 | Private Sub Form_QueryUnload(Cancel As Integer, Unload
218      x = MsgBox("Are you sure you want to shut down the Winhost?  This will stop your computer sending information to the i-scream Central Monitoring System.", vbYesNo, "i-scream Winhost")
219      If x = 7 Then
220          Cancel = True
221 +    Else
222 +        SystemTray.Action = 2
223      End If
182    SystemTray.Action = 2
224  
225   End Sub
226  
227   Private Sub Hide_Click()
228      Form1.Visible = False
229      SystemTray.Icon = Val(Form1.Icon)
189    SystemTray.Action = 0
230   End Sub
231  
232   Private Sub Reconfigure_Click()
# Line 201 | Line 241 | End Sub
241   Private Sub SystemTray_MouseDblClk(ByVal Button As Integer)
242  
243      Form1.Visible = True
204    SystemTray.Action = 2
244      Form1.SetFocus
245      
246  
# Line 328 | Line 367 | Private Sub Timer1_Timer()
367      Status.Caption = ""
368      
369      If Label3.Caption < 1 Then
370 <        ' build the contents of the XML packet.
371 <        localIP = TCPSock.localIP
333 <        machineName = TCPSock.LocalHostName
370 >        
371 >        ' prepare the contents of the XML packet.
372          seqNo = seqNo + 1
373 <        packetDate = Now()
374 <        xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
375 <              "" & _
376 <              "" & _
377 <              "" & _
378 <              "" & _
379 <              "" & _
380 <              "" & _
381 <              "" & _
382 <              "" & _
383 <              "" & _
384 <              "" & _
385 <              "" & _
386 <              "" & _
387 <              "" & _
388 <              "" & _
389 <              ""
373 >        machineName = TCPSock.LocalHostName
374 >        LocalIP = TCPSock.LocalIP
375 >        packetDate = Date2Num()
376 >        
377 >        
378 >        Dim verinfo As OSVERSIONINFO
379 >        verinfo.dwOSVersionInfoSize = Len(verinfo)
380 >        ret% = GetVersionEx(verinfo)
381 >        If ret% = 0 Then
382 >            MsgBox "Error getting Windows version Information"
383 >            End
384 >        End If
385 >          
386 >        osName = GetVersion()
387 >        osVersionMajor = verinfo.dwMajorVersion
388 >        osVersionMinor = verinfo.dwMinorVersion
389 >        osBuild = verinfo.dwBuildNumber
390 >        
391 >        Dim sysinfo As SYSTEM_INFO
392 >        GetSystemInfo sysinfo
393 >        Select Case sysinfo.dwProcessorType
394 >            Case PROCESSOR_INTEL_386
395 >                processorType = "Intel 386"
396 >            Case PROCESSOR_INTEL_486
397 >                processorType = "Intel 486"
398 >            Case PROCESSOR_INTEL_PENTIUM
399 >                processorType = "Intel Pentium variant"
400 >            Case PROCESSOR_MIPS_R4000
401 >                processorType = "MIPS R4000"
402 >            Case PROCESSOR_ALPHA_21064
403 >                processorType = "DEC Alpha 21064"
404 >            Case Else
405 >                processorType = "(unknown)"
406 >        End Select
407 >        
408 >        Dim memsts As MEMORYSTATUS
409 >        Dim memory&
410 >        GlobalMemoryStatus memsts
411 >        memory& = memsts.dwTotalPhys
412 >        memTotal = memory& \ 1024
413 >        memory& = memsts.dwAvailPhys
414 >        memFree = memory& \ 1024
415 >        memory& = memsts.dwTotalVirtual
416 >        swapTotal = memory& \ 1024
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>" & _
429 >                "<name>" & osName & "</name>" & _
430 >                "<version>" & osVersionMajor & "</version>" & _
431 >                "<release>" & osBuild & "</release>" & _
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>"
441          Text4.Text = Text4.Text + xml
442  
443          ' Use the first winsock control to send a UDP packet.
# Line 369 | Line 458 | Private Sub Timer1_Timer()
458   End Sub
459  
460   Function Date2Num() As Long
461 <    Date2Num = DateDiff("s", "1-1-1970", Now)
461 >    Dim x As Long
462 >    x = DateDiff("s", "1-1-1970", Now)
463 >    Date2Num = x
464   End Function

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines