1. Использовать API, чтобы получить заголовок окна? Календарь наказаний веслом, особенно кодекс манлу:
OptionExplicit
Приватдекларефункция nGetWindowTextLibbus —
er32"Псевдоним"GetWindowTextA"(ByValhwndAs
Длинный, ByVallpStringAsString, ByValchAs
Lon)ALog
'Добавьте описание функции API «GetWindowText» в раздел объявления формы.
'Функция загрузит полученный захват формы в lpstring
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
ДимкаппленАсЛонг
captext=String$(100,0)
каплен=99
returncode=GetWindowText(ByValme.hwnd,
ByValcaptex, ByValcaplen)
распечатать код возврата
Распечататькаптекст
Принткаплен
EndSub
2. Получить экранные координаты мыши в текущем окне (клиентской области). Создайте новую форму проекта form1 и добавьте в нее текстовые поля Text1 и Text2. Как это сделать?橹悺淙怄Хан
OptionExplicit
Приватдекларефункция GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
ЧастныйтипPOINTAPI
XAsLongYAsLong
Конечный тип
ДимптАсПОИНТАПИ
DimreturncodeAsLong
PrivateSubForm_Load()
Текст 1. Текст=""
Текст2. Текст=""
MaxButton=False
MinButton=False
Форма1. ОкноСотате=2
EndSub
PrivateSubForm_Mouse Переместить (ButtonAsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'Обратите внимание, что структура pt передается по ссылке
returncode=GetCursorPos(pt)
Текст 1. Текст=пт. X
Текст2. Текст=пт. Да
EndSub
3. Записывайте время использования Windows
Создайте новое окно проекта form1 и введите код:
PrivateSubForm_Load()
форма1. видимый = ложь
Открыть приложение. путь+"memo.txt"ForAppendAs#1
Печать № 1: «Запустить окна:» и CStr (сейчас)
Закрыть#1
EndSub
PrivateSubForm_Unload (CancelAsInteger)
Открыть приложение. путь+"memo.txt"ForAppendAs#1
Печать № 1: «Закрыть окна:» и CStr (сейчас)
Закрыть#1
Конец
EndSub
Наконец, добавьте программу в группу автозагрузки. (->