by [email protected] (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 22nd April 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Sends SYSLOG massages to Collector
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