--- experimental/host/vb_net_test/nettest.frm 2001/02/23 17:51:07 1.18 +++ experimental/host/vb_net_test/nettest.frm 2001/02/26 09:12:51 1.20 @@ -8,6 +8,7 @@ Begin VB.Form Form1 ClientLeft = 45 ClientTop = 330 ClientWidth = 4710 + Icon = "nettest.frx":0000 LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False @@ -41,7 +42,7 @@ Begin VB.Form Form1 MultiLine = -1 'True ScrollBars = 2 'Vertical TabIndex = 1 - Text = "nettest.frx":0000 + Text = "nettest.frx":0742 Top = 3000 Width = 3975 End @@ -182,12 +183,13 @@ Private Sub Form_Load() filterManagerHostname = Left$(buf, length) length = GetPrivateProfileInt("i-scream Winhost", "FilterManagerPort", 0, App.Path & "/winhost.ini") filterManagerTCPPort = length + On Error GoTo 0 skip: Status.Caption = "Connecting to Filter Manager " & filterManagerHostname & ":" & filterManagerTCPPort Reconfigure_Click - Form1.Show + SystemTray.Icon = Val(Form1.Icon) SystemTray.Action = 0 @@ -402,6 +404,8 @@ Private Sub Timer1_Timer() memory& = memsts.dwAvailVirtual swapFree = memory& \ 1024 + uptime = GetTickCount \ 1000 + ' build the contents of the XML packet xml = "" & _ "" & _ @@ -411,6 +415,7 @@ Private Sub Timer1_Timer() "" & osName & "" & _ "" & osVersionMinor & "" & _ "" & processorType & "" & _ + "" & uptime & "" & _ "" & _ "" & memTotal & "" & memFree & "" & _ "" & swapTotal & "" & swapFree & "" & _