Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.883 RSS
←   Август 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.883 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Русский_Проект:Рассылка Содержание
Справочник по сетевым функциям
Форум
Советы
Ваши письма
Функции API
Юмор

Справочник по сетевым функциям

Потихоньку продолжается работа над справочником
 по сетевым функциям. Уже готово около 10 функций.
 Пока справочник доступен для заинтересованных лиц.
 Более широкое знакомство с справочником состоится
 где-то в конце года


Форум

 Несколько слов по поводу форума.
 Мой сайт о чистом бейсике.
 Поэтому вопросы по VBA не совсем уместны.
 Если не будет ответов на вопросы, относящиеся к VBA
 несколько дней, я буду их "безжалостно" удалять
 Адрес форума
 http://narod.yandex.ru/userforum/?owner=rusproject.
 Ваши вопросы помогут определить направление,
 в котором следует развивать сайт!


Советы

 Если у вас возникла необходимость,
 чтобы пользователь не смог воспользоваться
 комбинацией кнопок Ctrl-Alt-Delete(или Alt-Tab),
 то вы можете воспользоваться
 функцией API SystemParameterInfo с параметром SPI_SCREENSAVERRUNNING

retval = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1&, 0&, 0)


Имейте в виду, что изменения действуют на всю систему.
Поэтому не забудьте восстановить возможность работы
 с клавишами в вашей программе
 Например, в Form_Unload
 retval = SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0&, 0&, 0)

Ваши письма

От Алексея Спирина пришло письмо по поводу совета,
как предотвратить запуск второй копии моей программы?
('не допускаем одновременного
запуска программы
If App.PrevInstance=True Then
Unload Me
Sub End)
Он пишет, что это работает,
 а вот если сделать копию моего файла в другой папке,
 то работать метод не будет


Ответ: Теоритически, это правда.
 Но посмотрите на ваш компьютер.
 Много ли вы найдете программ, которые вы держите
 в разных папках, да еще запускаете их одновременно?
 Думается, что нет. Поэтому, можно особо не беспокоиться
 по этому поводу



Функции API



mouse_event

mouse_event позволяет перемещать мышь и производить щелчки кнопками


Параметры
dwFlags
Комбинация следующих флагов, определяющих различную информацию о событиях,
 связанных с мышью MOUSEEVENTF_ABSOLUTE = &H8000
Значения dx и dy содержат абсолютные координаты.
 В экранной системе координат левый верхний угол
 имеет координаты (0,0), а правый нижний -
 (65535,65535), независимо от реальных размеров экрана. Если флаг не установлен, dx и dy содержат смещения относительно текущего положения
MOUSEEVENTF_LEFTDOWN = &H2
Нажата левая кнопка
MOUSEEVENTF_LEFTUP = &H4
Левая кнопка отпущена
MOUSEEVENTF_MIDDLEDOWN = &H20
Нажата средняя кнопка
MOUSEEVENTF_MIDDLEUP = &H40
Средняя кнопка отпущена
MOUSEEVENTF_MOVE = &H1
Произошло перемещение мыши. Параметры dx и dy определяют смещение мыши
MOUSEEVENTF_RIGHTDOWN = &H8
Нажата правая кнопка
MOUSEEVENTF_RIGHTUP = &H10
Правая кнопка отпущена
MOUSEEVENTF_WHEEL = &H80
Windows NT/2000: Произошло смещение колеса прокрутки.
 Параметры dwData определяют смещение колеса
MOUSEEVENTF_XDOWN = &H100
Windows 2000: Нажата кнопка X. Параметр dwData определяет кнопку X
MOUSEEVENTF_XUP = &H200
Windows 2000: Отпущена кнопка X. Параметр dwData определяет кнопку X
dx
Определяет абсолютную координату x или смещение относительно текущего положения по оси x
dy
Определяет абсолютную координату y или смещение относительно текущего положения по оси y
dwData
Windows NT/2000: Если dwFlags содержит MOUSEEVENTF_WHEEL,
 то опеределяет число вращений колесика.
 Windows 2000: Если dwFlags содержит MOUSEEVENTF_XDOWN
 или MOUSEEVENTF_XUP, то комбинация следующих флагов
 определяет какие кнопки X были нажаты или отпущены:
XBUTTON1
Первая кнопка X была нажата или отпущена
XBUTTON2
Вторая кнопка X была нажата или отпущена
dwExtraInfo
Информация о связанном 32-битном приложении



Пример
' Симуляция перемещения мыши в нижний левый угол
' экрана и нажатия левой кнопки
' Тем самым мы нажимаем кнопку Пуск
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, 400, 65000, 0, 0
' Нажимаем и отпускаем левую кнопку мыши
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


Полный текст с описанием этой функции
вы найдете в новой версии справочника по функциям API,
который скоро появится на сайте!


Юмор

Объявление

Ищу крэк к Deep Blue (Гарри Каспаров)



Не стесняйтесь, высылайте ваши предложения по адресу vbasic@rambler.ru

Посетите сайт Русский_Проект, где вы найдете другую интересную информацию

Давайте делать рассылку вместе!
Удачи!










http://subscribe.ru/

E-mail: ask@subscribe.ru

Отписаться

Рейтингуется SpyLog






        
        

        

        


        

         

                                                                  
    В избранное