| Меню сайта |
|
|
 |
| Категории каталога |
|
|
| Форма входа |
|
|
| Поиск |
|
|
|
| Статистика |
Онлайн всего: 1 Гостей: 1 Пользователей: 0 |
|
| Наш опрос |
Оцените мой сайт
Всего ответов: 23
|
|
|
 | |  |
|
Устанавливаем курсор в любое место экрана
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
|
| Категория: Visual Basic 6.0 | Добавил: Vadim (11.01.2009)
|
| Просмотров: 835
| Рейтинг: 0.0/0 |
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
