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.17 by pjm2, Fri Feb 23 17:37:04 2001 UTC vs.
Revision 1.20 by pjm2, Mon Feb 26 09:12:51 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 125 | 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 141 | Line 142 | Private Declare Function GetPrivateProfileString Lib "
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 170 | Line 171 | Private Sub Form_Load()
171      'Form1.Caption = "i-scream Winhost " & protocolVersion & " for " & GetVersion()
172      
173      ''''TEMP
174 <    filterManagerHostname = "killigrew.ukc.ac.uk"
175 <    filterManagerTCPPort = 4567
174 >    'filterManagerHostname = "killigrew.ukc.ac.uk"
175 >    'filterManagerTCPPort = 4567
176      ''''' END TEMP
177      
178 <    GoTo skip
178 >    'GoTo skip
179      On Error GoTo iniError
180      Dim buf As String * 256
181      Dim length As Long
182 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
182 >    length = GetPrivateProfileString("i-scream Winhost", "FilterManager", "<no value>", buf, Len(buf), App.Path & "/winhost.ini")
183      filterManagerHostname = Left$(buf, length)
184 <    length = GetPrivateProfileString("i-scream Winhost", "FilterManagerPort", "<no value>", buf, Len(buf), App.Path & "winhost.ini")
185 <    filterManagerTCPPort = Left$(buf, length)
184 >    length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini")
185 >    filterManagerTCPPort = length
186 >    On Error GoTo 0
187   skip:
188  
189 <    Status.Caption = "Connecting to Filter Manager"
189 >    Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort
190      Reconfigure_Click
191      
192 <    Form1.Show
192 >    SystemTray.Icon = Val(Form1.Icon)
193      SystemTray.Action = 0
194      
195      
196      Exit Sub
197      
198   iniError:
199 <    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")
199 >    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")
200      End
201      
202   End Sub
# Line 402 | Line 404 | Private Sub Timer1_Timer()
404          memory& = memsts.dwAvailVirtual
405          swapFree = memory& \ 1024
406          
407 +        uptime = GetTickCount \ 1000
408 +        
409          ' build the contents of the XML packet
410          xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
411                "<os>" & _
# Line 411 | Line 415 | Private Sub Timer1_Timer()
415                  "<platform>" & osName & "</platform>" & _
416                  "<minor_version>" & osVersionMinor & "</minor_version>" & _
417                  "<processor>" & processorType & "</processor>" & _
418 +                "<uptime>" & uptime & "</uptime>" & _
419                "</os>" & _
420                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
421                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _

Diff Legend

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