| 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>" & _ |