139 |
|
|
140 |
|
Dim protocolVersion As String |
141 |
|
Dim connected As Boolean |
142 |
+ |
|
143 |
+ |
'Dim CUpTime As New CUpTime |
144 |
+ |
|
145 |
|
Dim responseNumber As Integer |
146 |
|
|
147 |
|
Private Sub Form_Load() |
338 |
|
' prepare the contents of the XML packet. |
339 |
|
seqNo = seqNo + 1 |
340 |
|
machineName = TCPSock.LocalHostName |
341 |
< |
localIP = TCPSock.localIP |
341 |
> |
LocalIP = TCPSock.LocalIP |
342 |
|
packetDate = Date2Num() |
343 |
|
|
344 |
|
|
385 |
|
swapFree = memory& \ 1024 |
386 |
|
|
387 |
|
' build the contents of the XML packet |
388 |
< |
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & localIP & """>" & _ |
388 |
> |
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _ |
389 |
|
"<os>" & _ |
390 |
|
"<name>" & osName & "</name>" & _ |
391 |
|
"<version>" & osVersionMajor & "</version>" & _ |