C# と VB.NET の質問掲示板

■No87869 (WebSurfer さん) に返信
ご確認までして頂きありがとうございます。
現状報告としまして、レスポンスボデイが取得できることは確認できましたが実装で引っ掛かっている状態です。

・ウェブページは正常に表示されるが、ログ上ではobject movedとなってしまい、以降記録されない
・今の方法だとアプリケーションプールが統合モードでしか動かないが、クラシックモードで実現したい（できれば）

■ログ
[Request]2018/07/09 13:26:10:
http://localhost:8888/hoge.aspx
[Response]2018/07/09 13:26:13:
（意図する正常なhtml）
[Request]2018/07/09 13:26:17:
http://localhost:8888/hoge.aspx
[Response]2018/07/09 13:26:17:
<h tml><h ead><t itle>Object moved</t itle></h ead><b ody>
<h 2>Object moved to <a h ref="hoge.aspx">here</ a>.</h 2>
</b ody></html>
[Request]2018/07/09 13:26:17:
http://localhost:8888/hoge.aspx
[Response]2018/07/09 13:26:17:
（以降記録されず……）

■ソース
※OutputFilterStreamはご紹介頂いた下記URLのものをコピペしています。
https://stackoverflow.com/questions/1038466/logging-raw-http-request-response-in-asp-net-mvc-iis7#

public class Logger : IHttpModule
    {
     static readonly string responseLogPath = @"D:\test.txt";
     OutputFilterStream filter;

     public void Init(HttpApplication application)
     {
         application.BeginRequest += (new EventHandler(this.Application_BeginRequest));
         application.EndRequest += (new EventHandler(this.Application_EndRequest));
     }

     public void Dispose()
     {
     }

     private void Application_BeginRequest(Object sender, EventArgs e)
     {
         HttpResponse response = HttpContext.Current.Response;
         WriteLog("[Request]" + DateTime.Now + ":" + Environment.NewLine + HttpContext.Current.Request.Url.ToString());

         filter = new OutputFilterStream(response.Filter);
         response.Filter = filter;
     }

     private void Application_EndRequest(object sender, EventArgs e)
     {
         WriteLog("[Response]" + DateTime.Now + ":" + Environment.NewLine + filter.ReadStream());
     }

     private void WriteLog(string log)
     {
         using (var sw = new StreamWriter(responseLogPath, true))
         {
             sw.WriteLine(log);
         }
     }
}

■No87874 (abc さん) に返信

> もし何かヒントがありましたらコメント頂ければ幸いです。

紹介した記事のように HttpContext.Items を使うという話はどうなったのですか？

IIS のクラシックモードを使うのは諦めて統合パイプラインモードでやることにしたのですか？

そのあたりをクリアにしてもらえないと、この先私がお役に立てるかどうか分からないのですが・・・

とりあえず、検証に使った HTTP モジュールのコードをアップしておきます。環境は Windows 10
Pro 64-bit, ローカル IIS10, Visual Studio 2015 Cimmunity, .NET 4.6.1 です。

HTTP モジュールが動かないとか文字化けするという問題はありません。

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.IO;

public class ResponseContentLogHttpModule : IHttpModule
{
    public ResponseContentLogHttpModule()
    {
    }

    public String ModuleName
    {
        get { return "ResponseContentLogHttpModule"; }
    }

    // In the Init function, register for HttpApplication 
    // events by adding your handlers.
    public void Init(HttpApplication application)
    {
        application.BeginRequest += new EventHandler(this.Application_BeginRequest);
        application.EndRequest += new EventHandler(this.Application_EndRequest);
    }

    private void Application_BeginRequest(Object source, EventArgs e)
    {
        // Create HttpApplication and HttpContext objects to access
        // request and response properties.
        HttpApplication application = (HttpApplication)source;
        HttpContext context = application.Context;
        string filePath = context.Request.FilePath;
        string fileExtension = VirtualPathUtility.GetExtension(filePath);
        if (fileExtension.Equals(".aspx"))
        {
            HttpResponse response = context.Response;
            var filter = new OutputFilterStream(response.Filter);
            response.Filter = filter;
            context.Items["OutputFilterStream"] = filter;
        }
    }

    private void Application_EndRequest(Object source, EventArgs e)
    {
        HttpApplication application = (HttpApplication)source;
        HttpContext context = application.Context;
        string filePath = context.Request.FilePath;
        string fileExtension = VirtualPathUtility.GetExtension(filePath);
        if (fileExtension.Equals(".aspx"))
        {
            var filter = (OutputFilterStream)context.Items["OutputFilterStream"];
            string responseContent = filter.ReadStream();
            WriteLog(responseContent);
        }
    }

    private void WriteLog(string log)
    {
        string responseLogPath = HttpContext.Current.Server.MapPath("~/App_Data/log.txt");
        using (var sw = new StreamWriter(responseLogPath, true))
        {
            sw.WriteLine(log);
        }
    }

    public void Dispose() { }
}

public class OutputFilterStream : Stream
{
    private readonly Stream InnerStream;
    private readonly MemoryStream CopyStream;

    public OutputFilterStream(Stream inner)
    {
        this.InnerStream = inner;
        this.CopyStream = new MemoryStream();
    }

    public string ReadStream()
    {
        lock (this.InnerStream)
        {
            if (this.CopyStream.Length <= 0L ||
                !this.CopyStream.CanRead ||
                !this.CopyStream.CanSeek)
            {
                return String.Empty;
            }

            long pos = this.CopyStream.Position;
            this.CopyStream.Position = 0L;
            try
            {
                return new StreamReader(this.CopyStream).ReadToEnd();
            }
            finally
            {
                try
                {
                    this.CopyStream.Position = pos;
                }
                catch { }
            }
        }
    }


    public override bool CanRead
    {
        get { return this.InnerStream.CanRead; }
    }

    public override bool CanSeek
    {
        get { return this.InnerStream.CanSeek; }
    }

    public override bool CanWrite
    {
        get { return this.InnerStream.CanWrite; }
    }

    public override void Flush()
    {
        this.InnerStream.Flush();
    }

    public override long Length
    {
        get { return this.InnerStream.Length; }
    }

    public override long Position
    {
        get { return this.InnerStream.Position; }
        set { this.CopyStream.Position = this.InnerStream.Position = value; }
    }

    public override int Read(byte[] buffer, int offset, int count)
    {
        return this.InnerStream.Read(buffer, offset, count);
    }

    public override long Seek(long offset, SeekOrigin origin)
    {
        this.CopyStream.Seek(offset, origin);
        return this.InnerStream.Seek(offset, origin);
    }

    public override void SetLength(long value)
    {
        this.CopyStream.SetLength(value);
        this.InnerStream.SetLength(value);
    }

    public override void Write(byte[] buffer, int offset, int count)
    {
        this.CopyStream.Write(buffer, offset, count);
        this.InnerStream.Write(buffer, offset, count);
    }
}

もっとシンプルでフォーカスあてただけでも全部表示されるっぽい
その場合簡単になるのでこちらで

モジュール OpenFileDialogEx.vb
'----- ここから
Imports System.Runtime.InteropServices
Imports System.Text

Module OpenFileDialogEx
    Private Delegate Function WNDENUMPROC(ByVal hWnd As IntPtr, ByVallparam As IntPtr) As Boolean

    <DllImport("user32.dll")>
    Private Function EnumWindows(lpEnumFunc As WNDENUMPROC, lparam As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function
    <DllImport("user32.dll")>
    Private Function EnumChildWindows(ByVal hwndParent As Integer, ByVal lpEnumFunc As WNDENUMPROC, ByVal lParam As Integer) As Integer
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Function GetWindowText(hWnd As IntPtr, lpString As StringBuilder, nMaxCount As Integer) As Integer
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Function GetWindowTextLength(hWnd As IntPtr) As Integer
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, SetLastError:=True)>
    Private Function GetClassName(hWnd As IntPtr, lpClassName As StringBuilder, nMaxCount As Integer) As Integer
    End Function
    <DllImport("user32.dll")>
    Private Function SetForegroundWindow(hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean
    End Function

    Private isCancel As Boolean = False
    Private DialogTitle As String = ""
    Public Function ShowDialogEx(target As OpenFileDialog) As DialogResult

        'ダイアログの非同期取得
        isCancel = False
        If target.Title.Length = 0 Then
            DialogTitle = "開く"
        Else
            DialogTitle = target.Title
        End If

        Dim taskShowDialog = Task.Run(
            Sub()
                Do Until isCancel
                    Application.DoEvents()
                    System.Threading.Thread.Sleep(500)
                    EnumWindows(New WNDENUMPROC(AddressOf EnumWindowsProc), IntPtr.Zero)
                Loop
            End Sub
        )

        'ダイアログの表示
        Dim result As DialogResult = target.ShowDialog()

        'ダイアログの非同期取得を終了させる
        Do Until taskShowDialog.IsCompleted
            isCancel = True
            Application.DoEvents()
            System.Threading.Thread.Sleep(250)
        Loop

        Return result
    End Function

    Private Function EnumWindowsProc(ByVal hWnd As IntPtr, ByVal lparam As IntPtr) As Boolean
        If isCancel = False Then
            'ウィンドウのタイトルの長さを取得する
            Dim textLen As Integer = GetWindowTextLength(hWnd)
            If textLen > 0 Then
                'ウィンドウのクラス名を取得する
                Dim csb As New StringBuilder(256)
                GetClassName(hWnd, csb, csb.Capacity)
                If csb.ToString() = "#32770" Then
                    'ウィンドウのタイトル名を取得する
                    Dim tsb As New StringBuilder(textLen + 1)
                    GetWindowText(hWnd, tsb, tsb.Capacity)
                    If tsb.ToString() = DialogTitle Then
                        EnumChildWindows(hWnd, New WNDENUMPROC(AddressOf EnumChildProc), IntPtr.Zero)
                    End If
                End If
            End If
        End If

        'すべてのウィンドウを列挙する
        Return True
    End Function

    Private Function EnumChildProc(ByVal hWnd As IntPtr, ByVal lparam As IntPtr) As Boolean
        If isCancel = False Then
            'クラス名取得
            Dim csb As New StringBuilder(256)
            GetClassName(hWnd, csb, csb.Capacity)
            If csb.ToString() = "ComboBoxEx32" Then
                SetForegroundWindow(hWnd)
                isCancel = True
            End If
        End If
        Return True
    End Function

End Module

'----- ここまで