3 Январь 2009

Устанавливаем курсор в любое место экрана

Мышь |  Таги: , ,

Устанавливаем курсор в любое место экрана

Option Explicit
Private Declare Function SetCursorPos Lib _
    "user32" (ByVal r As Long, ByVal r1 As Long) As Long
Dim pos As Single

Private Sub Command1_Click()
Dim x As Single
Dim y As Single
Randomize
x = Int(Rnd(1) * 1000)
y = Int(Rnd(1) * 1000)
pos = SetCursorPos(x, y)
End Sub

Запись опубликована on 03.01.2009 at 9:00 и размещена в рубрике: Мышь. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.



Оставить комментарий

Я не робот.