| 242 |
|
SystemTray.Icon = Val(Form1.Icon) |
| 243 |
|
End Sub |
| 244 |
|
|
| 245 |
+ |
Private Sub Image1_Click() |
| 246 |
+ |
|
| 247 |
+ |
End Sub |
| 248 |
+ |
|
| 249 |
|
Private Sub Reconfigure_Click() |
| 250 |
|
' establish a TCP connection to a filtermanager |
| 251 |
|
connected = False |
| 407 |
|
' prepare the contents of the XML packet. |
| 408 |
|
seqNo = seqNo + 1 |
| 409 |
|
|
| 410 |
< |
' Comment this line in the next protocol |
| 407 |
< |
'machineName = TCPSock.LocalHostName |
| 410 |
> |
netbiosName = TCPSock.LocalHostName |
| 411 |
|
|
| 412 |
|
LocalIP = TCPSock.LocalIP |
| 413 |
|
packetDate = Date2Num() |
| 466 |
|
' build the contents of the XML packet |
| 467 |
|
xml = "<packet seq_no=""" & seqNo & """ machine_name=""" & machineName & """ date=""" & packetDate & """ type=""data"" ip=""" & LocalIP & """>" & _ |
| 468 |
|
"<os>" & _ |
| 469 |
+ |
"<netbios_name>" & netbiosName & "</netbios_name>" & _ |
| 470 |
|
"<name>" & osName & "</name>" & _ |
| 471 |
|
"<version>" & osVersionMajor & "</version>" & _ |
| 472 |
|
"<release>" & osBuild & "</release>" & _ |