• Home
 · 
• Miscellaneous
 · 
• Sends SYSLOG massages to Collector

Sends SYSLOG massages to Collector

Sends SYSLOG massages to Collector

Rate Sends SYSLOG massages to Collector

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim syslog
Dim i As Integer 'this is the massage group
i = text2.Text

Winsock1.Protocol = sckUDPProtocol 'UDP
Winsock1.RemoteHost = "127.0.0.1"  'this computer
Winsock1.RemotePort = 514           'Port 514 is Syslog standard

syslog = "<" & i & ">" & " " & Text1.Text ' int in <> is the group
Winsock1.SendData syslog

End Sub