1. Use a API para obter o título da janela? O calendário de punição do remo, especialmente o código manlu:
OpçãoExplícita
PrivateDeclareFunction nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(ByValhwndAs
Longo, ByVallpStringAsString, ByValchAs
Ｌｎ）ＡＬｏｇ
＇Adicionar descrição da função API "GetWindowText" na seção de declaração do formulário
'A função irá carregar a captura do formulário a ser obtido em lpstring
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenAsLong
captext=String$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
PorValcaptex, PorValcaplen)
imprimir código de retorno
Imprimircaptext
Caplen de impressão
Fim Sub
2. Como obter as coordenadas da tela do mouse na janela atual (área do cliente)? Criar um novo formulário de projeto form1 e adicionar caixas de texto de controle Texto1 e Texto2?橹悺淙怄Han
OpçãoExplícita
PrivateDeclareFunction GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
EndType
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Texto 1. Texto=""
Texto2. Texto=""
MaxButton＝Falso
MinButton=Falso
Formulário1. EstadodaJanela=2
Fim Sub
PrivateSubForm_Mouse Mover(ButtonAsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'Observe que a estrutura pt é passada por referência
returncode=GetCursorPos(pt)
Texto 1. Texto=pt. Ｘ
Texto2. Texto=pt. S
Fim Sub
3. Registre o tempo de uso do Windows
Crie uma nova janela de projeto form1 e insira o código:
PrivateSubForm_Load()
formulário1. visível=falso
Abra o aplicativo. caminho+"memo.txt"ForAppendAs#1
Imprimir#1,"Iniciar janelas:"&CStr(agora)
Fechar#1
Fim Sub
PrivateSubForm_Unload(CancelAsInteger)
Abra o aplicativo. caminho+"memo.txt"ForAppendAs#1
Imprimir#1,"Fechar janelas:"&CStr(Agora)
Fechar#1
Fim
Fim Sub
Finalmente, adicione o programa ao grupo de inicialização. (->