• Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Тема: Команда SendKeys "{ESC}" и антивирус

Добрый день, Знатоки.
Хочу при двойном щелчке по блоку, чтобы выходила моя форма, а стандартная процедура блокировалась. Все работает, но срабатывает антивирус Касперского. Можно ли написать более элегантную команду блокировки стандартной процедуры.
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
If CommandName = "EATTEDIT" Then
    MsgBox "Моя форма!"
   SendKeys "{ESC}"
   End If
End If
End Sub

  • Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Re: Команда SendKeys "{ESC}" и антивирус

Если отменить, стандартную процедуру нельзя.
То подскажите пожалуйста- системная переменная MBUTTONPAN отвечает за действия возникающие при нажатии на колесико мыши. При равенстве 0 выполняются действия предписанные в файле (.mnu) AutoCAD.
Подскажите пожалуйста, где находиться этот файл и как в него записать открытие моей формы в VB.

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Команда SendKeys "{ESC}" и антивирус

Declare Function SendInput Lib "user32.dll" (ByVal nInputs As Long, _
   pInputs As GENERALINPUT, _
   ByVal cbSize As Long) _
   As Long

Нету каспера может это поможет

  • Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Re: Команда SendKeys "{ESC}" и антивирус

Я не смог разобраться в предложенном варианте.
Если можно, то подробно объясните как эти строчки использовать. И что они делают?
Я заменил SendKeys "{ESC}" на них, но результата не получил.
Мне надо, чтобы при двойном щелчке мыши по блоку не вызывалось стандартное окно со свойствами атрибутов этого блока, а вызывалось мое окно.
Спасибо за внимание!

  • Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Re: Команда SendKeys "{ESC}" и антивирус

Я понял, что это команда эмуляции нажатия клавиши, но все равно выдается ошибка
Only comments may appear after End Sub, End Function< or End Property

  • Андрей
  • Восстановленный участник
  • На форуме с 4 февраля 2006г.
  • Сообщений: 78
  • Спасибо: 0

Re: Команда SendKeys "{ESC}" и антивирус

Сам отвечаю на поставленный мною вопрос.
Команда нажатия клавиши Esc, не вызывающая срабатывания антивируса
ActiveDocument.SendCommand Chr(27)
Большое спасибо организаторам данного форума!!