Win32API質問箱 Build77 - 暇つぶし2ch

Win32API質問箱 Build77 at TECH

190:>>188
09/03/05 01:25:00
よく見てみると、その後こう使ってるのか。動くのかな？
著作権とかはしらね

URLﾘﾝｸ(www.pinvoke.net)

　　Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　 Dim varChild As Accessibility.IAccessible
　　 Dim hWnd As Int32 = GetForegroundWindow()
　　 Dim ID As Int32 = 0
　　 Dim IID_IAcce As Guid = New Guid("618736E0-3C3D-11CF-810C-00AA00389B71")
　　 Dim aaVal As Int32 = AccessibleObjectFromWindow(hWnd, ID, IID_IAcce, varChild)
　　 End Sub

次ページ

続きを表示

1を表示