1. Gunakan API untuk mendapatkan judul jendela? Kalender hukuman dayung, khususnya kode manlu:
Opsi Eksplisit
Fungsi Deklarasi Pribadi nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(OlehValhwndAs
Panjang, OlehVallpStringAsString, OlehValchAs
Lon)ALog
'Tambahkan deskripsi fungsi API "GetWindowText" di bagian deklarasi formulir
'Fungsi ini akan memuat tangkapan formulir yang akan diperoleh ke dalam lpstring
PrivateSubCommand1_Klik()
DimreturncodeAsLong
DimcaptextAsString
DimcapplenAsLong
captext=String$(100,0)
caplen=99
returncode=GetWindowText(ByValme.hwnd,
OlehValcaptex, OlehValcaplen)
kode pengembalian cetak
Teks cetak
Cetakcaplen
Sub Akhir
2. Dapatkan koordinat layar mouse di jendela saat ini (area klien). Buat formulir proyek baru form1 dan tambahkan kotak teks kontrol Text1 dan Text2.橹悺淙怄Han
Opsi Eksplisit
Fungsi Deklarasi Pribadi DapatkanCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
Tipe Akhir
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
Teks 1. Teks = ""
Teks2. Teks = ""
MaxButton=Salah
Tombol Min=Salah
Formulir1. Status Jendela=2
Sub Akhir
PrivateSubForm_Mouse Pindahkan(ButtonAsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'Perhatikan bahwa struktur pt diteruskan dengan referensi
kode pengembalian=DapatkanCursorPos(pt)
Teks 1. Teks=pt. X
Teks2. Teks=pt. Y
Sub Akhir
3. Catat waktu penggunaan Windows
Buat jendela proyek baru form1 dan masukkan kode:
PrivateSubForm_Load()
formulir1. terlihat=salah
Buka aplikasi. path+"memo.txt"UntukAppendAs#1
Cetak #1, "Mulai windows:" & CStr(Sekarang)
Tutup#1
Sub Akhir
PrivateSubForm_Unload(CancelAsInteger)
Buka aplikasi. path+"memo.txt"UntukAppendAs#1
Cetak #1, "Tutup jendela:" & CStr(Sekarang)
Tutup#1
Akhir
Sub Akhir
Terakhir, tambahkan program ke grup startup. (->