[Данные, строки] Проверка текстовой строки в поле ввода

ControlSend

Run("notepad.exe")
$hWnd = WinWaitActive("[class:Notepad]")
WinMenuSelectItem($hWnd, "", "&Файл", "&Открыть...")

; -------------------------------

$hOpen = WinWaitActive("Открыть")
$sText = "C:\Windows\win.ini"
For $i = 0 To 200
  ControlSetText($hOpen, "", "Edit1", $sText)
  Sleep(11)
  If ControlGetText($hOpen, "", "Edit1") = $sText Then ExitLoop
Next
If $i = 201 Then Exit MsgBox(0, "Err", "Проблема ввода текста")

; Send("{enter}")

Opt('WinWaitDelay', 0)

$iPID = Run('notepad.exe')
$hWnd_Notepad = _WinWaitByPID($iPID, '', True, 5)
If @error Then Exit MsgBox(48, @ScriptName, 'Error to open notepad')

ControlSend($hWnd_Notepad, '', '', '^o')
$hWnd_Open = _WinWaitByPID($iPID, '[CLASS:#32770]', True, 5)
If @error Then Exit MsgBox(48, @ScriptName, 'Error while waiting for "Open" window')

$hEdit = ControlGetHandle($hWnd_Open, '', 'Edit1')

While Not BitAND(WinGetState($hEdit), 2)
	Sleep(10)
WEnd

$sText = 'C:\Windows\win.ini'

Do
	ControlSetText($hWnd_Open, '', $hEdit, $sText)
Until ControlGetText($hWnd_Open, '', $hEdit) = $sText

ControlClick($hWnd_Open, '', 'Button1')

Func _WinWaitByPID($iPID, $sTitle = '', $bVisible = True, $iTimeout = 0)
	Local $aWins, $iTimer = TimerInit()
	
	While 1
		If $sTitle Then
			$aWins = WinList($sTitle)
		Else
			$aWins = WinList()
		EndIf
		
		For $i = 1 To $aWins[0][0]
			If WinGetProcess($aWins[$i][1]) = $iPID And (Not $bVisible Or ($bVisible And BitAND(WinGetState($aWins[$i][1]), 2))) Then
				Return $aWins[$i][1]
			EndIf
		Next
		
		If $iTimeout And TimerDiff($iTimer) >= ($iTimeout * 1000) Then
			ExitLoop
		EndIf
		
		Sleep(10)
	WEnd
	
	Return 0
EndFunc

Func ControlWait($WndTitle, $WndText, $Ctrl, $WaitTime = 3)
  If Not WinWait($WndTitle, $WndText, $WaitTime) Then _
    Return SetError(1, ConsoleWrite("!> Окно не найдено: '" & $WndTitle & "', '" & $WndText & "'" & @CRLF), 0)
  Local $Timer = TimerInit(), $Err = 0
  While Not ControlCommand($WndTitle, $WndText, $Ctrl, "IsVisible")
    $Err = @error
    If $WaitTime > 0 And TimerDiff($Timer) > $WaitTime * 1000 Then
      If $Err Then
        Return SetError(2, ConsoleWrite("!> Элемент не найден: '" & $WndTitle & "', '" & $WndText & "', '" & $Ctrl & "'" & @CRLF), 0)
      Else
        Return SetError(3, ConsoleWrite("!> Элемент не виден: '" & $WndTitle & "', '" & $WndText & "', '" & $Ctrl & "'" & @CRLF), 0)
      EndIf
    EndIf
    Sleep(11)
  WEnd
  While Not ControlCommand($WndTitle, $WndText, $Ctrl, "IsEnabled")
    If $WaitTime > 0 And TimerDiff($Timer) > $WaitTime * 1000 Then _
      Return SetError(4, ConsoleWrite("!> Элемент заблокирован: '" & $WndTitle & "', '" & $WndText & "', '" & $Ctrl & "'" & @CRLF), 0)
    Sleep(11)
  WEnd
  Return ControlGetHandle($WndTitle, $WndText, $Ctrl)
EndFunc