1. API を使用してウィンドウのタイトルを取得しますか?オール懲罰カレンダー、特にマンルーコード:
オプション明示的
PrivateDeclare関数nGetWindowTextLibbus—
er32"Alias"GetWindowTextA"(ByValhwndAs)
ロング、ByVallpStringAsString、ByValchAs
ロン）アログ
＇フォーム宣言部にAPI関数「GetWindowText」の記述を追加
'この関数は取得するフォーム キャプチャを lpstring に読み込みます
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
ディムカプレンアズロング
captext=文字列$(100,0)
カプレン=99
returncode=GetWindowText(ByValme.hwnd,
ByValcaptex、ByValcaplen)
戻りコードを印刷する
印刷キャプテキスト
プリントカレン
EndSub
2. 現在のウィンドウ (クライアント領域) のマウスの画面座標を取得します。新しいプロジェクト フォーム form1 を作成し、コントロール テキスト ボックス Text1 と Text2 を追加します。橹悺淙怄ハン
オプション明示的
PrivateDeclare関数GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
終了タイプ
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
テキスト 1。テキスト=""
本文２．テキスト=""
MaxButton＝False
MinButton=False
フォーム1.ウィンドウ状態=2
EndSub
プライベートサブフォーム_マウスMove(ButtonAsInteger,
ShiftAsInteger、XAsSingle、YAsSingle)
' pt 構造体は参照によって渡されることに注意してください
returncode=GetCursorPos(pt)
テキスト 1。テキスト=pt. Ｘ
本文２．テキスト=pt. Y
EndSub
3. Windows の使用時間を記録する
新しいプロジェクト ウィンドウ form1 を作成し、コードを入力します。
PrivateSubForm_Load()
フォーム1.可視=偽
アプリを開きます。パス+「memo.txt」ForAppendAs#1
印刷 #1、「Windows の起動:」& CStr(Now)
閉じる#1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
アプリを開きます。パス+「memo.txt」ForAppendAs#1
印刷 #1、「ウィンドウを閉じる:」& CStr(Now)
閉じる#1
終わり
EndSub
最後に、プログラムをスタートアップ グループに追加します。 (->