• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:イベントログの「Security」を取得したい)

VB6で「Security」イベントログを取得する方法

このQ&Aのポイント
  • VB6でイベントログを取得するプログラムを作成していますが、「Security」ログだけが取得できません。
  • 「Security」ログを取得する方法が分からず困っています。
  • ご存知の方がいらっしゃいましたら教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
noname#17649
noname#17649
回答No.1

以下の環境では成功しました。(と思います。) Windows2000(SP4) VB6(SP6) 以下にテストコードをはります。 --------------------------------------------------- Private Declare Function OpenEventLog Lib "advapi32.dll" Alias "OpenEventLogA" (ByVal lpUNCServerName As String, ByVal lpSourceName As String) As Long Private Declare Function CloseEventLog Lib "advapi32.dll" (ByVal hEventLog As Long) As Long Private Sub Command1_Click() Dim hwnd As Long hwnd = OpenEventLog(vbNullString, "Securitey") If hwnd = 0 Then MsgBox "OpenEventLog Error" Exit Sub End If hwnd = CloseEventLog(hwnd) End Sub --------------------------------------------------- どうでしょうか?

専門家に質問してみよう