Opt("WinTextMatchMode", 2)
; Внутреннее название класса окна , работает лучше чем "Блокнот"
$sHandle="[CLASS:Notepad]"
; заголовки окна
$sTitle1 = "1 — Блокнот"
$sTitle2 = "2 — Блокнот"
; новый текст
$snewText1 = ""
$snewText2 = ""
; Элемент управления Edit1, для классич блокнота, в других редакторах может быть и не Edit
$hEdit = "Edit1"
; время ожидания окна в 1 итерации
$itime = 5
; ----------
$i = 1 ;счетчик
Do
$hWnd = WinWait($sHandle, "", $itime)
$sTitle = WinGetTitle($hWnd)
If $sTitle == $sTitle1 Then
_ChangeTxt($snewText1)
ElseIf $sTitle == $sTitle2 Then
_ChangeTxt($snewText2)
EndIf
$i += 1
Until $i = 12 ; время в секундах/$itime
Func _ChangeTxt($snewText = "")
ControlFocus($hWnd, "", $hEdit)
$soldText = ControlGetText($hWnd, "", $hEdit)
ControlSetText($hWnd, $soldText, $hEdit, "") ;типа очищаем текстовое поле
ControlSetText($hWnd, "", $hEdit, $soldText & @CRLF & $snewText) ; @CRLF надо/не надо тебе, сам смотри
WinClose($hWnd) ; здесь я чота не понял, текст же не сохраняется
EndFunc ;==>_ChangeTxt
|
