tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Re^4: VBで作った別アプリを制御
投稿日: 2017/08/04(Fri) 11:28
投稿者耳たぶ黒
魔界の仮面弁士様 いつもありがとうございます。

アプリを調べるのをINSPECTに変更しました。SPY++で調べるのが間違ってたんですね。
そうしたら、AutomationIDも分かりました。

教えていただいたプログラムを少し変更して無事自作アプリを動かすことができました。ありがとうございます。

IDはButton2でした。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        '電卓群の「接続ボタン」ボタンを取得

        Dim condition As New PropertyCondition(AutomationElement.AutomationIdProperty, "Button2")
        Dim buttons = procs.SelectMany(
            Function(p) AutomationElement.FromHandle(p.MainWindowHandle).FindAll(
                            TreeScope.Element Or TreeScope.Descendants, condition
                        ).Cast(Of AutomationElement)()
            ).Select(
                Function(p) TryCast(p.GetCurrentPattern(InvokePattern.Pattern), InvokePattern)
            ).ToArray()

        '「接続ボタン」ボタン群を一斉にクリック
        Array.ForEach(buttons, Sub(b) b.Invoke())
    End Sub

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。