Create animated doughnut in Notepad

This example shows how to read JSON data, loop items and print output to screen (Notepad in this case).

Web.DownloadFromWeb.Download Url: $'''https://power.automate.gallery/api/v1/demo/1''' ConnectionTimeout: 30 FollowRedirection: True ClearCookies: False UserAgent: $'''Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.21) Gecko/20100312 Firefox/3.6''' Encoding: Web.Encoding.AutoDetect AcceptUntrustedCertificates: False WebPageText=> WebPageText
Variables.ConvertJsonToCustomObject Json: WebPageText CustomObject=> JsonAsCustomObject
System.RunApplication.RunApplicationAndWaitToLoad ApplicationPath: $'''notepad.exe''' WindowStyle: System.ProcessWindowStyle.Normal Timeout: 0 ProcessId=> AppProcessId WindowHandle=> WindowHandle
MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{LControlKey}({OemMinus}{OemMinus}{OemMinus})''' DelayBetweenKeystrokes: 0 SendTextAsHardwareKeys: False
UIAutomation.ResizeWindow.ResizeByTitleClass Title: $'''Untitled - Notepad''' Class: $'''''' Width: 550 Height: 420
LOOP LoopIndex FROM 0 TO JsonAsCustomObject.Count - 1 STEP 3
    Clipboard.SetText Text: JsonAsCustomObject[LoopIndex]
    MouseAndKeyboard.SendKeys.FocusAndSendKeys TextToSend: $'''{Control}({V})''' DelayBetweenKeystrokes: 0 SendTextAsHardwareKeys: True
END
# Tested with Power Automate Desktop version 2.15.284.21354

Web.Download Url: $'''https://power.automate.gallery/api/v1/demo/1''' ConnectionTimeout: 30 FollowRedirection: True ClearCookies: False UserAgent: $'''Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.21) Gecko/20100312 Firefox/3.6''' Encoding: Web.Encoding.AutoDetect AcceptUntrustedCertificates: False WebPageText=> WebPageText
Variables.ConvertJsonToCustomObject Json: WebPageText CustomObject=> JsonAsCustomObject
System.RunApplicationAndWaitToLoad ApplicationPath: $'''notepad.exe''' WindowStyle: System.ProcessWindowStyle.Normal Timeout: 0 ProcessId=> AppProcessId WindowHandle=> WindowHandle
MouseAndKeyboard.SendKeys TextToSend: $'''{LControlKey}({OemMinus}{OemMinus}{OemMinus})''' DelayBetweenKeystrokes: 0 SendTextAsHardwareKeys: False
UIAutomation.Windows.Resize Window: appmask['Window \'Untitled - Notepad\''] Width: 550 Height: 420
LOOP LoopIndex FROM 0 TO JsonAsCustomObject.Count - 1 STEP 3
    Clipboard.SetText Text: JsonAsCustomObject[LoopIndex]
    MouseAndKeyboard.SendKeys TextToSend: $'''{Control}({V})''' DelayBetweenKeystrokes: 0 SendTextAsHardwareKeys: True
END

# [ControlRepository][PowerAutomateDesktop]
{
  "ApplicationInfo": {
    "Name": "ClipboardControlRepository",
    "Version": "1.0"
  },
  "Screens": [
    {
      "Controls": [],
      "ScreenShot": null,
      "InstanceId": "9c5bd4c2-d6ca-4c60-bfd5-362798c67c7c",
      "ElementTypeName": "Window",
      "Name": "Window 'Untitled - Notepad'",
      "SelectorCount": 1,
      "Selectors": [
        {
          "CustomSelector": null,
          "Elements": [
            {
              "Attributes": [
                {
                  "Ignore": true,
                  "IsOrdinal": false,
                  "Name": "Class",
                  "Operation": "EqualTo",
                  "Value": "Notepad"
                },
                {
                  "Ignore": true,
                  "IsOrdinal": false,
                  "Name": "Enabled",
                  "Operation": "EqualTo",
                  "Value": true
                },
                {
                  "Ignore": true,
                  "IsOrdinal": false,
                  "Name": "Id",
                  "Operation": "EqualTo",
                  "Value": ""
                },
                {
                  "Ignore": false,
                  "IsOrdinal": false,
                  "Name": "Name",
                  "Operation": "EqualTo",
                  "Value": "Untitled - Notepad"
                },
                {
                  "Ignore": true,
                  "IsOrdinal": true,
                  "Name": "Ordinal",
                  "Operation": "EqualTo",
                  "Value": -1
                },
                {
                  "Ignore": false,
                  "IsOrdinal": false,
                  "Name": "Process",
                  "Operation": "EqualTo",
                  "Value": "notepad"
                },
                {
                  "Ignore": true,
                  "IsOrdinal": false,
                  "Name": "Visible",
                  "Operation": "EqualTo",
                  "Value": true
                }
              ],
              "CustomValue": null,
              "Ignore": false,
              "Name": "Window 'Untitled - Notepad'",
              "Tag": "window"
            }
          ],
          "Ignore": false,
          "IsCustom": false,
          "IsWindowsInstance": false,
          "Order": 0
        }
      ],
      "Tag": "window"
    }
  ],
  "Version": 1
}
# Tested with Power Automate Desktop version 2.11.51.21196

Notes

Power Automate Desktop can be very slow when sending large amount of text with the Send keys action, even when Delay between keystrokes is set to 0. A much faster method is to first use action Set clipboard text and then only send Ctrl+V with Send Keys action (see lines 7-8).
Set Run delay to 1 ms if you would like to speed up the animation.

Changes

2022-01-06: Updated flow actions to work with Power Automate Desktop version 2.15.284.21354

References

[1]https://github.com/hadal1337/ASCII-Doughnut

Author

PAG Admin