1. هل تستخدم واجهة برمجة التطبيقات للحصول على عنوان النافذة؟ تقويم عقوبة المجذاف، وخاصة رمز مانلو:
خيار صريح
وظيفة إعلان خاص nGetWindowTextLibbus —
er32"الاسم المستعار"GetWindowTextA"(ByValhwndAs
طويل، ByVallpStringAsString، ByValchAs
Lon)ALog
' أضف وصفًا لوظيفة API "GetWindowText" في قسم إعلان النموذج
'ستقوم الوظيفة بتحميل نموذج الالتقاط الذي سيتم الحصول عليه في lpstring
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenAsLong
captext=سلسلة$(100,0)
كابلين=99
returncode=GetWindowText(ByValme.hwnd,
بواسطة فالكابتكس، باي فالكابلين)
printreturncode
Printcaptext
برينتكابلين
EndSub
2. كيفية الحصول على إحداثيات شاشة الماوس في النافذة الحالية (منطقة العميل)؟ إنشاء نموذج مشروع جديد form1 وإضافة مربعي نص التحكم Text1 وText2؟橹悺淙怄هان
خيار صريح
وظيفة إعلان خاص GetCursorPosLibuser32"
(lpPointAsPOINTAPI) AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
نوع النهاية
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
النص 1. النص = ""
النص2. النص = ""
ماكس بوتون = خطأ
MinButton=خطأ
النموذج 1. حالة النافذة=2
EndSub
PrivateSubForm_Mouse نقل (زر كعدد صحيح،
ShiftAsInteger، XAsSingle، YAsSingle)
'لاحظ أنه يتم تمرير بنية pt حسب المرجع
كود الإرجاع=GetCursorPos(pt)
النص 1. النص = نقطة. X
النص2. النص = نقطة. ي
EndSub
3. سجل وقت استخدام Windows
أنشئ نافذة مشروع جديدة form1 وأدخل الرمز:
PrivateSubForm_Load()
form1. مرئي = خطأ
تطبيق مفتوح. المسار+"memo.txt"ForAppendAs#1
طباعة#1،"بدء تشغيل النوافذ:"&CStr(الآن)
إغلاق رقم 1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
تطبيق مفتوح. المسار+"memo.txt"ForAppendAs#1
طباعة#1،"إغلاق النوافذ:"&CStr(الآن)
إغلاق رقم 1
نهاية
EndSub
وأخيرًا، قم بإضافة البرنامج إلى مجموعة بدء التشغيل. (->