Программирование
Веб программирование

Установка курсора мыши рандомно

 
 
'API для установки координат мыши
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, _
ByVal y As Long) _
As Long Dim sngX As Single 'Координыты по оси X
Dim sngY As Single 'Координыты по оси Y Private Sub Form_Load() Me.Hide 'Скрываем форму
Timer1.Interval = (500) 'Интервал выставляем в пол секунды
End Sub Private Sub Timer1_Timer()

'определяем разрешение экрана и записываем в переменную
sngX = (VB.Screen.Width / VB.Screen.TwipsPerPixelX)
sngY = (VB.Screen.Height / VB.Screen.TwipsPerPixelY) 'Рандомим координаты курсор
Randomize Timer
Call SetCursorPos(CLng(Rnd * sngX), CLng(Rnd * sngY))

End Sub

Есть вопросы? Спроси на нашем форуме!!
Нет комментариев

Оставлять комментарии можно только зарегистрированным




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