Форум программистов [Powered by Invision Power Board]

Не думаю, что данные коды имеют хоть какую-то ценность, так как большую их чать я нашел на этом же форуме... Но раз просят:

1) Установка курсора в оперделенное место экрана:

Код


  Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  ' подгружаем функцию SetCursorPos из user32.dll, чтобы использовать ее в дальнейшем

  Private Sub Form_Load()
  Call SetCursorPos(x, y) ' x, y - координаты на экране, куда будет перемещен курсор
  End Sub

2) Эмулирование нажатия кнопок мыши:

Код


  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 MOU_LD = &H2     'нажатие левой кнопки
   Const MOU_LU = &H4     'отпускание левой кнопки
   Const MOU_MD = &H20  'нажатие средней кнопки
   Const MOU_MU = &H40  'отпускание средней кнопки
   Const MOU_RD = &H8     'нажатие правой кноки
   Const MOU_RU = &H10   'отпускание правой кнопки
 
 Private Sub Form_Load()
  mouse_event MOU_RD, x, y, 0&, 0&
  mouse_event MOU_RU, x, y, 0&, 0&
  ' имитация клика правой кнопкой. для того, чтобы сделать клик другой кнопкой, меняем константы на необходимы.  x и y по идее место, где будет произведен клик, но у меня не работает, вместо них приходится использовать SetCursorPos перед функцией
 End Sub

3) Зажатие Shift/ctrl:

Код


  ' Подгружаем необходимую функцию:
  Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
  ' Устанавливаем константы:
  Private Const VK_LCONTROL = &HA2
  Private Const VK_SHIFT As Long = &H10

  Private Sub Form_Load()
  keybd_event VK_SHIFT, 0, 0, 0   ' зажимаем кнопку (шифт в данном случае)
  .....
  keybd_event VK_SHIFT, 0, KEYEVENTF_KEYUP, 0  ' отпускаем
  End Sub

Вот и все. Возможно есть ошибки, писал второпях, тч вносите свои исправления в случае чего.