こんにちは。
OS Win XP SP3
      VB6 SP6
イベントビューアのフィルタへのアクセスについてお伺いしたいのですが。

イベントビューア --> システム --> 表示 --> フィルタ
で
システムのプロパティのダイアログが立ち上がります。
イベントID
開始
終了
をVBで変更して指定範囲を表示させたいのですが
イベントIDは
SendMessage hWnd, WM_SETTEXT, 0, ByVal "6006"
で出来ました
開始、終了のコンボボックスの値の変更も出来ました。
SendMessage hCmb1, CB_SETCURSEL, 1, ByVal 0&
が
開始、終了のあとのDateやTimeの変更が出来ません。
どのようにして変更したら宜しいのでしょうか。
宜しくお願いします。

> 開始、終了のあとのDateやTimeの変更が出来ません。

試していませんが、日時を表す SYSTEMTIME 値を
DTM_SETSYSTEMTIME(=4098) で SendMessage しては如何でしょう。

こんにちは。有難うございます。
> 試していませんが、日時を表す SYSTEMTIME 値を
> DTM_SETSYSTEMTIME(=4098) で SendMessage しては如何でしょう。
こんな感じでコーディングして見ましたが駄目でした。
    Dim SysTime As SYSTEMTIME
    Dim actDt   As Date
    actDt = "2010/8/11"
    With SysTime
        .Year = Year(actDt)
        .Month = Month(actDt)
        .Day = Day(actDt)
        .DayOfWeek = Weekday(actDt) - 1
        .Hour = 0
        .Minute = 0
        .Second = 0
    End With
    lngRtn = SendMessage(hDate1, DTM_SETSYSTEMTIME, 0&, ByVal SysTime)