.www - English
http://adom.newmail.ru - Russian
Неактивен
filden написал:
Можно мне тоже на мыло VB исходники. Просто интересно, что подразумевается под движущимся курсором. Просто я не знаю что такое ADoM.
Спасибо большое.
;D
Всё очень просто !
Нужен один таймер с интервалом 1
[glb]'Код формы
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Timer1_Timer()
Dim pos As POINTAPI
GetCursorPos pos
SetCursorPos pos.x + 1, pos.y + 1
End Sub
[/glb]
Забавно .
Извиняюсь.
Неактивен