1. Utiliser l'API pour obtenir le titre de la fenêtre ? Le calendrier des punitions à la rame, notamment le code manlu :
OptionExplicite
PrivateDeclareFunction nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(ByValhwndAs
Long, ByVallpStringAsString, ByValchAs
Ｌｏｎ）ＡＬｏｇ
＇Ajouter une description de la fonction API "GetWindowText" dans la section de déclaration du formulaire
'La fonction chargera la capture du formulaire à obtenir dans lpstring
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenAsLong
captext=Chaîne$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
ParValcaptex, ParValcaplen)
imprimer le code de retour
Imprimer le texte de la capture
Imprimercaplen
FinSub
2. Obtenez les coordonnées d'écran de la souris dans la fenêtre actuelle (zone client). Créez un nouveau formulaire de projet form1 et ajoutez les zones de texte de contrôle Text1 et Text2. Comment faire ?橹悺淙怄Han
OptionExplicite
PrivateDeclareFunction GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
Type de fin
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Texte 1. Texte=""
Texte2. Texte=""
MaxButton＝Faux
MinButton=Faux
Formulaire1. État de la fenêtre = 2
FinSub
PrivateSubForm_Mouse Déplacer(BoutonEnEntier,
ShiftAsInteger, XAsSingle, YAsSingle)
'Notez que la structure pt est passée par référence
code retour = GetCursorPos (pt)
Texte 1. Texte=pt. Ｘ
Texte2. Texte=pt. Oui
FinSub
3. Enregistrez le temps d'utilisation de Windows
Créez une nouvelle fenêtre de projet form1 et entrez le code :
PrivateSubForm_Load()
formulaire1. visible = faux
Ouvrez l'application. chemin+"memo.txt"ForAppendAs#1
Imprimer #1, "Démarrer Windows :" & CStr (Maintenant)
Fermer#1
FinSub
PrivateSubForm_Unload (CancelAsInteger)
Ouvrez l'application. chemin+"memo.txt"ForAppendAs#1
Imprimer #1, "Fermer les fenêtres :" & CStr (Maintenant)
Fermer#1
Fin
FinSub
Enfin, ajoutez le programme au groupe de démarrage. (->