優れたUIオートメーション

Question

私はUIオートメーションを初めてお使いです。私の現在の組織では、GUI（Graphics User Interface）画面の読み込みを使って自動化されたツールを作成することになっていましたが、画面の解像度が異なるため、他の同僚のマシンと完全には動作しません。

エクセルでUIオートメーションを試してみるのには、私はthisというリンクを見ましたが、どこでもこのトピックを見つけることはできません。

UIオートメーションのリソースに私を誘導する人はいますか？私はどこでそれを学ぶことができ、それについて読むことができ、それをExcelで実装する方法を知りたいと思います。

おかげさまで、ありがとうございました。

Answer 1

他の解像度に切り替えるときに変更される座標を使用してオートメーションを実行しているようです。この場合、等のID、クラス、XPathの、CSSを使用してアプリケーションを自動化してください。このリンクは、その中にあなたを助ける： http://www.guru99.com/all-about-excel-in-selenium-poi-jxl.html

Answer 2

： http://www.guru99.com/locators-in-selenium-ide.html

自動化のためのExcelを使用して、次のリンクに見てください。

MicrosoftのUIAutomationは非常に強力で、アプリケーション（32ビットと64ビット）のビジュアルベーシックからWindows 7,8,10でもうまく機能し、高価なツールを使わずに素敵なGUIオートメーションを行うのに便利です。

あなたは（あなたがあなたのドキュメントフォルダにこれをコピーする必要があり、一部のコンピュータで、時には、十分な奇妙な）UIAutomationCore.Dll参照を持っているVBAの参照に確認してください

あなたは2台の例を見ることができるの下にはなく、MSオートメーションは、Aであるとして、すべてのルーチンのための巨大なライブラリです。MSDNで詳しく読むことができます。 私は標準ライブラリを持っていない誰かがやったのAutoItについて

• のAutoItにし、VBA
  にVBAのためにそのこっち共有

https://www.autoitscript.com/forum/topic/153520-iuiautomation-ms-framework-automate-chrome-ff-ie/

• をMS UIAルーチンを使用します試してみてください https://github.com/mhumpher/UIAutomation_VBA

オプション明示

Sub test() 
    Dim c As New CUIAutomation 
    Dim oDesktop As IUIAutomationElement 

    Set oDesktop = c.GetRootElement 

    Debug.Print oDesktop.CurrentClassName & vbTab & oDesktop.CurrentName & vbTab & oDesktop.CurrentControlType 

End Sub 

'Test uia just dumps all windows of the desktop to the debug window 
Sub testUIA() 
    Dim allEl As IUIAutomationElementArray     'Returns an element array with all found results 
    Dim oElement As IUIAutomationElement     'Reference to an element 
    Dim ocondition As IUIAutomationCondition 

    Dim i As Long 
    Dim x As New clsUIA 


    'Just reference the three mainly used properties. many more are available when needed 
    Debug.Print x.oDesktop.CurrentName & x.oDesktop.CurrentClassName & x.oDesktop.CurrentControlType 

    Set ocondition = x.oCUIAutomation.CreateTrueCondition    'Filter on true which means get them all 
    Set allEl = x.oDesktop.FindAll(TreeScope_Children, ocondition) 'Find them in the direct children, unfortunately hierarchies are strange sometimes 

    'Just reference the three mainly used properties. many more are available when needed 
    For i = 0 To allEl.Length - 1 
     Set oElement = allEl.GetElement(i) 
     ' If oElement.CurrentClassName = "PuTTY" Then 
      Debug.Print oElement.CurrentClassName & oElement.CurrentName & oElement.CurrentControlType 
      ' Debug.Print oElement.CurrentBoundingRectangle 

      oElement.SetFocus 
      DoEvents 
      Sleep 2000 
     ' End If 

    Next 
End Sub