Notepad Automation using AutoIt v3 Tutorial
#include "WinAPI.au3" | |
#include "WindowsConstants.au3" | |
; #INDEX# ======================================================================================================================= | |
; Title .........: Windows Desktop Applications Automation using AutoIt | |
; AutoIt Version : 3.3.14.2 | |
; Description ...: Automate Notepad for changing display font, writing some text and save file | |
; Author(s) .....: Ahmed Shaikh Memon (ahmedshaikhm) | |
; =============================================================================================================================== | |
; #VARIABLES# =================================================================================================================== | |
Local $hWnd, $hWndFont, $hWndSaveAs | |
Global $sFontName = "Arial" | |
Global $sFileName = "tutorial_1" | |
; #CONSTANTS# =================================================================================================================== | |
Global Const $__IDM_FONT = 33 | |
Global Const $__IDM_SAVE = 3 | |
Global Const $__IDC_FONT_NAME = 1001 | |
; Open Notepad | |
Run("notepad.exe") | |
Sleep(1000) | |
; Get Notepad's handle | |
$hWnd = WinGetHandle("[Class:Notepad]") | |
; | |
; Display Font Change | |
; | |
; Click Format > Font menu | |
_WinAPI_PostMessage($hWnd, $WM_COMMAND, $__IDM_FONT, 0) | |
Sleep(1000) | |
; Handle Font window | |
$hFontWin = WinGetHandle("Font") | |
Sleep(1000) | |
; Select display font | |
ControlSend($hFontWin,"", $__IDC_FONT_NAME, $sFontName) | |
Sleep(2000) | |
; Save display font | |
ControlClick($hFontWin, "", "Button5") | |
Sleep(1000) | |
; | |
; Write text in Notepad | |
; | |
ControlSend($hWnd, "", "Edit1","This is informed approach towards solving a problem") | |
; | |
; Save file | |
; | |
; Click File > Save menu | |
_WinAPI_PostMessage($hWnd, $WM_COMMAND, $__IDM_SAVE, 0) | |
Sleep(1000) | |
; Enter file name in the file open dialog box | |
$hWndSaveAs = WinGetHandle("Save As") | |
ControlSend($hWndSaveAs, "", "Edit1", $sFileName) | |
Sleep(1000) | |
; Press the Save button on Save As prompt | |
ControlClick($hWndSaveAs, "", "Button1") | |
Sleep(1000) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment