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

お世話になります。
いろいろ調べたのですが、どうしてもわかりません。どなたがｱﾄﾞﾊﾞｲｽをお願いします。

ｸﾘｯﾌﾟﾎﾞｰﾄﾞに登録したﾃﾞｰﾀを、自ﾌｫｰﾑのﾎﾞﾀﾝをｸﾘｯｸして、直前に使っていたﾌﾟﾛｸﾞﾗﾑ（notepad等）に書き込もうと思っています。
下記のﾊﾟﾀｰﾝ1、ﾊﾟﾀｰﾝ2を試したのですが、ﾌﾟﾛｾｽは取れるのですが、希望した順ではなく、どうしてもうまくいきません。
（ﾊﾟﾀｰﾝ2はｺﾒﾝﾄｱｳﾄしてあるGetNetWindowもﾀﾞﾒでした。notepadのﾌﾟﾛｾｽを直接していして、書き込むとうまくいきました。）

Windows7 64bit VS2010　初心者です。よろしくお願いします。

  Enum GetWindow_Cmd
    GW_HWNDFIRST = 0
    GW_HWNDLAST = 1
    GW_HWNDNEXT = 2
    GW_HWNDPREV = 3
    GW_OWNER = 4
    GW_CHILD = 5
    GW_ENABLEDPOPUP = 6
  End Enum
  Public Const WM_SETTEXT = &HC

  Declare Function GetForegroundWindow Lib "user32" () As IntPtr
  Declare Function GetNextWindow Lib "user32" Alias "GetWindow" (ByVal hWnd As IntPtr, ByVal wFlag As Integer) As IntPtr
  Declare Function GetWindow Lib "user32" (ByVal hWnd As IntPtr, ByVal uCmd As Integer) As IntPtr
  Public Declare Function GetWindowThreadProcessId Lib "user32.dll" _
                            (ByVal hWnd As IntPtr, ByRef lpdwProcessId As Integer) As Integer

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    'ﾊﾟﾀｰﾝ1
    Dim Processes As Process() = Process.GetProcesses
    Dim id As Integer = 0
    Dim ProcessNamePat1(Processes.Length - 1) As String
    For i As Integer = Processes.Length - 1 To 0 Step -1
      If Not Processes(i).MainWindowHandle.Equals(IntPtr.Zero) Then

        ProcessNamePat1(id) = Processes(i).ProcessName
        id += 1

      End If
    Next

    ReDim Preserve ProcessNamePat1(id - 1)

    'ﾊﾟﾀｰﾝ2
    Dim StHwnd As IntPtr = GetForegroundWindow
    Dim ProcessID As Integer
    Dim ProcessNamePat2 As String
    Dim MWProcess As Process
    While StHwnd <> 0
      'StHwnd = GetNextWindow(StHwnd, 2)
      StHwnd = GetWindow(StHwnd, GetWindow_Cmd.GW_HWNDNEXT)
      GetWindowThreadProcessId(StHwnd, ProcessID)
      MWProcess = Process.GetProcessById(ProcessID)
      If Not MWProcess.MainWindowHandle.Equals(IntPtr.Zero) Then

        ProcessNamePat2 = MWProcess.ProcessName

      End If
    End While

  End Sub

■No54817 (魔界の仮面弁士 さん) に返信

> 掲示板の利用規約を再読願います。

注意不足で大変申し訳ありませんでした。気をつけたいと思います。

アドバイスいただいた点を試してみたのですが、どうしてもうまくいきません。
アクティブにならないButton2と通常のButton2で試してみました。
（スクリーンキーボードを作るも試したのですが、配置したButton1がなぜか表示されませんでした。）
結果として、両ボタンともなぜか４回目のクリックでnotepadにデータが貼りつきました。
申し訳ありませんが、アドバイスよろしくお願いします。


Me.Button2 = New ProcessNameGet.Form1.ExButton()

 'ボタンがアクティブにならないようにする
  Class ExButton
    Inherits Button

    Sub New()
      MyBase.New()
      Me.SetStyle(ControlStyles.Selectable, False)
    End Sub

  End Class

  Protected Overrides ReadOnly Property CreateParams() As CreateParams
    Get
      Dim p As CreateParams = MyBase.CreateParams
      If Not MyBase.DesignMode Then
        p.ExStyle = p.ExStyle Or (WS_EX_NOACTIVATE)
      End If
      Return p
    End Get
  End Property

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim lngHwnd As Integer = GetForegroundWindow()
    lngHwnd = GetNextWindow(lngHwnd, 2)
    SetForegroundWindow(lngHwnd)

    Clipboard.SetDataObject("あいうえお", True)
    SendKeys.Send("^v")
  End Sub
  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim lngHwnd As Integer = GetForegroundWindow()
    lngHwnd = GetNextWindow(lngHwnd, 2)
    SetForegroundWindow(lngHwnd)

    Clipboard.SetDataObject("あいうえお", True)
    SendKeys.Send("^v")
  End Sub

すみません、なぜかButton4を配置し、CreateParamsをコメントアウトしたらButton4のクリックでnotepadにデータが貼りつきました。
なぜなのか理由がぜんぜんわからないのですが、目標の動作が実現できました。
ほんとありがとうございました。もし、追加情報がございましたらよろしくお願いします。


  'Protected Overrides ReadOnly Property CreateParams() As CreateParams
  '  Get
  '    Dim p As CreateParams = MyBase.CreateParams
  '    If Not MyBase.DesignMode Then
  '      p.ExStyle = p.ExStyle Or (WS_EX_NOACTIVATE)
  '    End If
  '    Return p
  '  End Get
  'End Property

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    Dim lngHwnd As Integer = GetForegroundWindow()
    lngHwnd = GetNextWindow(lngHwnd, 2)
    Dim ProcessID As Integer
    GetWindowThreadProcessId(lngHwnd, ProcessID)
    Dim wpro As Process = Process.GetProcessById(ProcessID)
    Dim hhwnd As IntPtr = wpro.MainWindowHandle

    SetForegroundWindow(hhwnd)
    Clipboard.SetDataObject("あいうえお", True)
    SendKeys.Send("^v")
  End Sub