Write to Windows event log: Difference between revisions
Added FreeBASIC
m (→{{header|Wren}}: Minor tidy) |
(Added FreeBASIC) |
||
Line 392:
log.Source <- "Sample Application"
log.WriteEntry("Entered something in the Application Eventlog!")</syntaxhighlight>
=={{header|FreeBASIC}}==
FreeBASIC does not have built-in support for writing to the Windows Event Log. However, you can use a shell command to write to the event log
Note that to use this wrapper, the code must be executed from a console/IDE running as Administrator.
<syntaxhighlight lang="vbnet">Dim As String argV(1 To 5)
Dim Shared As String t()
Sub Split (cadena As String, t() As String, sep As String = " ")
Dim As Integer i, j = 0
Dim As String word = ""
For i = 1 To Len(cadena)
If Mid(cadena, i, 1) <> sep Then
word &= Mid(cadena, i, 1)
Else
Redim Preserve t(j)
t(j) = word
word = ""
j += 1
End If
Next i
If word <> "" Then
Redim Preserve t(j)
t(j) = word
End If
End Sub
Split(Command, t())
#ifdef __FB_WIN32__
If Ubound(t) <> 3 Then
Print "Usage: "; Command(0); " <Followed by level, id, source string and description>"
Else
For i As Integer = 1 To 4
argV(i) = t(i-1)
Next i
Shell "EventCreate /t " & argV(1) & " /id " & argV(2) & " /l APPLICATION /so " & argV(3) & " /d """ & argV(4) & """"
End If
#else
Print "Not implemented for *nix, only Windows."
#endif</syntaxhighlight>
=={{header|Go}}==
| |||