Здравствуйте Licvidator Спасибо за ответ, но у меня почемуто всеравно не получилось. Ниже код проги в которую нужно вставить кликанье мышкой. Если у вас получиться пришлите пожалуйста. С уважением, Дима. Private Declare Function SetCursorPos& Lib "user32" _ (ByVal x As Long, ByVal Y As Long) Private Sub UserForm_Click() Dim Task1 For Each Task1 In Tasks K = K + 1 If InStr(Task1.Name, "***") > 0 Then 'Место 'звездочек прогу в которой нужно нажать кнопку. С клавы 'нельзя. Task1.Activate SetCursorPos 600, 560 'Перемещение курсора на 'нужную кнопку 'Тут нужно нажать кнопку 'мышки SendKeys "i 25" 'Ввод данных с клавиатуры SendKeys "%{F4}", True 'Закрываю окно
End If Next Task1 End Sub
Приветствую Вас, Dima! Не получилось потому что надо знать значение hwnd того элемента, куда надо щелкнуть. Я пока не знаю, как это сделать... Возможно, надо поискать соответствующую API-функцию. Вроде можно и через SendKeys это делать, но не помню константы. Пока ничем помочь не могу. Ответ отправлен: 15.03.2003, 11:27 Отправитель: Licvidator
Форма отправки вопроса
Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook"
и "Microsoft Outlook Express". В программе The Bat!
подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте,
что в некоторых браузерах могут стоять запреты на открытие других
окон, а также "чрезмерное" кэширование данных,
при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet
Explorer 5.0+ или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.