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