ynbIpb
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: AutoItSetOption ( "MouseCoordMode", 2)
$resultat=""
$otvet=""
If WinExists("Заголовок окна") Then
$winn = WinGetText("Заголовок окна")
$resultat = StringRegExp ($winn, "!process", 0)
if $resultat = 1 Then
$Process = ProcessList ()
for $i = 1 to $Process[0][0]
$otvet&= $Process[$i][0]&@CRLF
next
WinActivate("Заголовок окна")
ControlSetText ( "Заголовок окна", "", "[CLASS:Edit; INSTANCE:1]",$otvet)
ControlEnable ("Заголовок окна", "", "[CLASS:Button; INSTANCE:1]")
ControlClick ( "Заголовок окна", "", "[CLASS:Button; INSTANCE:1]")
Sleep (3000)
MouseClick( "right",50 ,50)
Sleep (1000)
MouseClick( "left",55 ,55)
Sleep (1000)
MsgBox (0, "", "всё")
EndIf
EndIf |
Если находит в тексте окна !process, читает процессы в массив, формирует список, вставляет в контрол шлёт, и очищает историю (чтобы опять не выполнить эту же команду). Миранду нужно настроить, чтоб открывала окно чата при приходе сообщения.
Это конечно всё не серьёзно, но пока всё что взбрело в голову... |
Всего записей: 1645 | Зарегистр. 01-05-2006 | Отправлено: 22:23 12-04-2009 | Исправлено: ynbIpb, 09:37 13-04-2009 |
|
