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.15 by pjm2, Fri Feb 23 17:08:37 2001 UTC vs.
Revision 1.17 by pjm2, Fri Feb 23 17:37:04 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     LinkTopic       =   "Form1"
12     MaxButton       =   0   'False
13 +   MinButton       =   0   'False
14     ScaleHeight     =   5655
15     ScaleWidth      =   4710
16     ShowInTaskbar   =   0   'False
# Line 67 | Line 68 | Begin VB.Form Form1
68        _Version        =   393216
69        Protocol        =   1
70     End
71 +   Begin VB.Label Label5
72 +      Caption         =   "b e t a"
73 +      BeginProperty Font
74 +         Name            =   "MS Sans Serif"
75 +         Size            =   24
76 +         Charset         =   0
77 +         Weight          =   700
78 +         Underline       =   0   'False
79 +         Italic          =   0   'False
80 +         Strikethrough   =   0   'False
81 +      EndProperty
82 +      Height          =   615
83 +      Left            =   240
84 +      TabIndex        =   8
85 +      Top             =   120
86 +      Width           =   1815
87 +   End
88     Begin VB.Label Label2
89        Alignment       =   1  'Right Justify
90        Caption         =   "Next heartbeat:"
# Line 139 | Line 157 | Dim TCPUpdateTime As Integer
157  
158   Dim protocolVersion As String
159   Dim connected As Boolean
160 +
161 + 'Dim CUpTime As New CUpTime
162 +
163   Dim responseNumber As Integer
164  
165   Private Sub Form_Load()
# Line 335 | Line 356 | Private Sub Timer1_Timer()
356          ' prepare the contents of the XML packet.
357          seqNo = seqNo + 1
358          machineName = TCPSock.LocalHostName
359 <        localIP = TCPSock.localIP
359 >        LocalIP = TCPSock.LocalIP
360          packetDate = Date2Num()
361          
362          
# Line 382 | Line 403 | Private Sub Timer1_Timer()
403          swapFree = memory& \ 1024
404          
405          ' build the contents of the XML packet
406 <        xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _
406 >        xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _
407                "<os>" & _
408                  "<name>" & osName & "</name>" & _
409                  "<version>" & osVersionMajor & "</version>" & _
# Line 393 | Line 414 | Private Sub Timer1_Timer()
414                "</os>" & _
415                "<memory><total>" & memTotal & "</total><free>" & memFree & "</free></memory>" & _
416                "<swap><total>" & swapTotal & "</total><free>" & swapFree & "</free></swap>" & _
417 <              ""
417 >              "</packet>"
418          Text4.Text = Text4.Text + xml
419  
420          ' Use the first winsock control to send a UDP packet.

Diff Legend

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