09/03/05 00:33:31
>>162>>164
グーグルで最初に出てくるサイトのサンプルをVB.NETに直して色々試したのですが
取得失敗と出て終わってしまい困っています。
res = AccessibleObjectFromWindow(lngHWND, OBJID_CLIENT, IID_IAccessible, objAcc)
でlngHWNDに数字が入っていて、OBJID_CLIENTに-4が入っていて、
IID_IAccessibleの定義は
Private IID_IAccessible As UUID
Private Structure UUID
Dim Data1 As Integer
Dim Data2 As Short
Dim Data3 As Short
Dim Data4() As Byte
Public Sub Initialize()
ReDim Data4(7)
End Sub
End Structure
でイニシャライズもしていて、
objAccは Dim objAcc As IAccessibleのように定義しています。
APIの宣言は
Private Declare Function AccessibleObjectFromWindow Lib "oleacc" (ByVal hWnd As Integer, ByVal dwObjectID As Integer, ByRef riid As UUID, ByRef ppvObject As IAccessible) As Integer
こうなっています。
どこか悪いところとかありましたら教えて頂きたいです。