タスクバーのタスクボタンの情報を取得したい

    Const LENG As Integer = 256 '取得する文字列の長さ(バイト)



    Dim iTabCount As Integer = 0                  'ボタンの数

    Dim tItem As tagTCITEM

    Dim dwSize As Integer = Marshal.SizeOf(tItem) 'tItemのサイズ(バイト)

    Dim bytGetItem(dwSize + LENG) As Byte         '取得した情報を入れる

    Dim bytGetText(LENG) As Byte                  '取得した文字列情報を入れる

    Dim pLocalShared As IntPtr = IntPtr.Zero      '自プロセスの開始アドレスへのポインタ

    Dim pSysShared As IntPtr = IntPtr.Zero        '他プロセスの開始アドレスへのポインタ

    Dim hProcess As IntPtr = IntPtr.Zero          'プロセスハンドル

    Dim processId As Integer = 0                  'プロセスID

    Dim dwNumberOfBytes As Integer = 0            '読み書きされたバイト数



    'ボタンの数取得

    iTabCount = SendMessage(hWnd, TCM_GETITEMCOUNT, 0, 0)

    'ボタンが無いとき終了

    If iTabCount = 0 Then Return



    '自プロセスのメモリ領域確保

    pLocalShared = VirtualAlloc(IntPtr.Zero, dwSize + bytGetText.Length, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)



    If IntPtr.op_Equality(pLocalShared, IntPtr.Zero) = False Then

      'プロセスID取得

      GetWindowThreadProcessId(hWnd, processId)

      'プロセスハンドル取得

      hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, processId)



      If IntPtr.op_Equality(hProcess, IntPtr.Zero) = False Then

        '他プロセスのメモリ領域確保

        pSysShared = VirtualAllocEx(hProcess, IntPtr.Zero, dwSize + LENG,  MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)



        If IntPtr.op_Equality(pSysShared, IntPtr.Zero) = False Then

          '構造体初期化

          With tItem

            .mask = TCIF_TEXT

            .pszText = New IntPtr(pSysShared.ToInt32 + dwSize)  

            .cchTextMax = LENG

          End With



          Dim ret As Boolean

          'プロセスを書き込む

          ret = WriteProcessMemory(hProcess, pSysShared, tItem, bytGetItem.Length, dwNumberOfBytes)

          'タブの情報取得

          ret = SendMessage(hWnd, TCM_GETITEM, 0, pSysShared)

          'プロセスを読み込む

          ret = ReadProcessMemory(hProcess, pSysShared, pLocalShared, bytGetItem.Length, dwNumberOfBytes)



          '文字列を取得

          'PtrToAnsi,PtrToAuto,PtrToUniともに文字化け。PtrToBSTRはNullReferenceExceptionになる。	

          Dim strItem As String = Marshal.PtrToStringAnsi(New IntPtr(pSysShared.ToInt32 + dwSize))



          'メモリ解放

          VirtualFreeEx(hProcess, pSysShared, 0, MEM_RELEASE)

        End If

        'メモリ解放

        CloseHandle(hProcess)

      End If

      'メモリ解放

      VirtualFree(pLocalShared, 0, MEM_RELEASE)

    End If

Dim strGetText As String = Marshal.PtrToStringAnsi(New IntPtr(pLocalShared.ToInt32 + dwSize))

ReadProcessMemory(hProcess, New IntPtr(pSysShared.ToInt32 + dwSize), pLocalShared, LENG, dwNumberOfBytes)
Dim strGetText As String = Marshal.PtrToStringAnsi(pLocalShared)

    'プロセスID取得
    GetWindowThreadProcessId(hWnd, processId)
    'プロセスハンドル取得
    hProcess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, _
    False, processId)
    '相手プロセスのメモリ領域確保
    pSysShared = VirtualAllocEx(hProcess, IntPtr.Zero, dwSize + TEXT_MAX, _
    MEM_COMMIT Or MEM_RESERVE, PAGE_READWRITE)
    '構造体初期化
    With tItem
      .mask = TCIF_TEXT
      .pszText = New IntPtr(pSysShared.ToInt64 + dwSize)
      .cchTextMax = TEXT_MAX
    End With
    'プロセスを書き込む
    WriteProcessMemory(hProcess, pSysShared, tItem, dwSize, dwNumberOfBytes)
    'タブの情報を取得(とりあえず0番目のタブ)
    SendMessage(hWnd, TCM_GETITEM, New IntPtr(0), pSysShared)
    '自プロセスに結果をコピーするバッファを作成
    Dim textBuff As IntPtr = Marshal.AllocCoTaskMem(TEXT_MAX)
    'プロセスを読み込む - (1)ポインタで取得
    ReadProcessMemory(hProcess, tItem.pszText, textBuff, TEXT_MAX, dwNumberOfBytes)
    strText = Marshal.PtrToStringAnsi(textBuff)
    '自プロセスのコピー先バッファ解放
    Marshal.FreeCoTaskMem(textBuff)
    '相手プロセスのメモリ領域解放
    VirtualFreeEx(hProcess, pSysShared, dwSize + TEXT_MAX, MEM_RELEASE)
    'プロセスハンドル閉じる
    CloseHandle(hProcess)