1. ¿Utiliza la API para obtener el título de la ventana? El calendario de castigo del remo, especialmente el código manlu:
OpciónExplícito
Función de declaración privada nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(PorValhwndAs
Largo, ByVallpStringAsString, ByValchAs
Ｌｏｎ）ＡＬｏｇ
＇Agregue una descripción de la función API "GetWindowText" en la sección de declaración del formulario
'La función cargará la captura del formulario que se obtendrá en lpstring
PrivadoSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenComo Largo
captext=cadena$(100,0)
caplen=99
código de retorno=GetWindowText(ByValme.hwnd,
PorValcaptex, PorValcaplen)
imprimir código de retorno
Imprimir texto cap
imprimircaplen
FinSub
2. Obtenga las coordenadas de pantalla del mouse en la ventana actual (área de cliente). Cree un nuevo formulario de proyecto form1 y agregue los cuadros de texto de control Texto1 y Texto2.橹悺淙怄Han
OpciónExplícito
Función de declaración privada ObtenerCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
Tipo privadoPOINTAPI
XAsLongYAsLong
Tipo final
DimptAsPOINTAPI
DimreturncodeAsLong
PrivadoSubForm_Load()
Texto 1. Texto=""
Texto2. Texto=""
Botón Max＝Falso
Botón Mín=Falso
Formulario1. Estado de ventana = 2
FinSub
PrivadoSubForm_Mouse Mover(BotónComoEntero,
ShiftAsInteger, XAsSingle, YAsSingle)
'Tenga en cuenta que la estructura pt se pasa por referencia
código de retorno=GetCursorPos(pt)
Texto 1. Texto=pt. Ｘ
Texto2. Texto=pt. Y
FinSub
3. Registre el tiempo de uso de Windows
Cree una nueva ventana de proyecto form1 e ingrese el código:
PrivadoSubForm_Load()
formulario1. visible=falso
Abrir aplicación. ruta+"memo.txt"ForAppendAs#1
Imprimir #1, "Iniciar Windows:" & CStr(Ahora)
Cerrar#1
FinSub
PrivateSubForm_Unload(CancelarAsInteger)
Abrir aplicación. ruta+"memo.txt"ForAppendAs#1
Imprimir #1, "Cerrar ventanas:" & CStr(Ahora)
Cerrar#1
Fin
FinSub
Finalmente, agregue el programa al grupo de inicio. (->