На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> генерация нажатия кнопки мыши
    Как можно сгенерировать нажатие правой кнопки мыши на определенном участке экрана?
      Апишка какаято, щас точно не помнююю... как найду скажу...

      Добавлено
      Вот пример из api-guide:

      ExpandedWrap disabled
        Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As
         Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
        Const MOUSEEVENTF_LEFTDOWN = &H2
        Const MOUSEEVENTF_LEFTUP = &H4
        Const MOUSEEVENTF_MIDDLEDOWN = &H20
        Const MOUSEEVENTF_MIDDLEUP = &H40
        Const MOUSEEVENTF_MOVE = &H1
        Const MOUSEEVENTF_ABSOLUTE = &H8000
        Const MOUSEEVENTF_RIGHTDOWN = &H8
        Const MOUSEEVENTF_RIGHTUP = &H10
        Private Sub Form_Activate()
            'KPD-Team 1998
            'URL: http://www.allapi.net/
            'E-Mail: KPDTeam@Allapi.net
            Do
                'Simulate a mouseclick on the cursor's position
                mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
                DoEvents
            Loop
        End Sub


      Ну а курсор ставиш в нужное место с помощью другой апишки: SetCursorPos
      Сообщение отредактировано: Jenizix -
        Jenizix, сенк!
          В качестве благодарности используется кнопочка '+' под моим аватаром :D ©
            Цитата
            Jenizix

            В результате выполнения вышеуказанного кода возникает ошибка:
            не определены переменные cButt и dwEI.
            И что с этим делать?
              Вот небольшой рабочий пример:
              Вся суть в модуле, на форме только пример использования.
              Прикреплённый файлПрикреплённый файлMouse.zip (2.06 Кбайт, скачиваний: 16)
              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
              0 пользователей:


              Рейтинг@Mail.ru
              [ Script execution time: 0,0279 ]   [ 16 queries used ]   [ Generated: 28.04.24, 13:00 GMT ]