Must AutoIt
Сообщения: 3054 Благодарности: 1009
Профиль | Сайт | Отправить PM | Цитировать
$hWindow = _ProcessGetWindow("Proc.exe", 1) ControlSend($hWindow, "", "Scintilla1", "{ShiftDown}") Func _ProcessGetWindow($iPID, $iRet = -1) Local $aWinList = WinList(), $aRet[2] If IsString($iPID) Then $iPID = ProcessExists($iPID) EndIf For $i = 1 To UBound($aWinList)-1 If BitAND(WinGetState($aWinList[$i][1]), 2) And WinGetProcess($aWinList[$i][1]) = $iPID Then $aRet[0] = $aWinList[$i][0] ;Title $aRet[1] = $aWinList[$i][1] ;WinHandle If $iRet = 0 Then Return $aRet[0] EndIf If $iRet = 1 Then Return $aRet[1] EndIf Return $aRet EndIf Next Return SetError(1, 0, $aRet) EndFunc
------- “Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.” Альберт Эйнштейн P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©» http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community
Отправлено: 23:39, 04-01-2011 | #4