1. API를 사용하여 창 제목을 얻으시겠습니까? 노 처벌 캘린더, 특히 만루 코드:
OptionExplicit
PrivateDeclare함수 nGetWindowTextLibbus—
er32"별칭"GetWindowTextA"(ByValhwndAs
긴, ByVallpStringAsString, ByValchAs
Ｌｏｎ）ＡＬｏｇ
``양식 선언 부분에 API 함수 "GetWindowText" 설명 추가
'이 함수는 얻을 수 있는 양식 캡처를 lpstring에 로드합니다.
PrivateSubCommand1_Click()
DimreturncodeAsLong
DimcaptextAsString
DimcapapplenAsLong
captext=문자열$(100,0)
캐플렌=99
반환 코드=GetWindowText(ByValme.hwnd,
ByValcaptex, ByValcaplen)
인쇄 반환 코드
인쇄캡텍스트
프린트캐플렌
EndSub
2. 현재 창(클라이언트 영역)에서 마우스의 화면 좌표를 가져옵니다. 새 프로젝트 양식 form1을 만들고 컨트롤 텍스트 상자 Text1 및 Text2를 추가합니다.橹悺淙怄Han
OptionExplicit
PrivateDeclare함수 GetCursorPosLibuser32"
(lpPointAsPOINTAPI)AsLong
PrivateTypePOINTAPI
XAsLongYAsLong
종료 유형
DimptAsPOINTAPI
DimreturncodeAsLong
PrivateSubForm_Load()
텍스트 1. 텍스트=""
텍스트2. 텍스트=""
MaxButton=거짓
최소버튼=거짓
양식1. 창상태=2
EndSub
PrivateSubForm_Mouse 이동(ButtonAsInteger,
ShiftAsInteger, XAsSingle, YAsSingle)
'pt 구조는 참조로 전달됩니다.
반환 코드=GetCursorPos(pt)
텍스트 1. 텍스트=pt. Ｘ
텍스트2. 텍스트=pt. 와이
EndSub
3. Windows 사용 시간 기록
새 프로젝트 창 form1을 만들고 코드를 입력하십시오.
PrivateSubForm_Load()
form1. 표시=거짓
Openapp. 경로+"memo.txt"ForAppendAs#1
인쇄 #1, "시작 창:" & CStr(현재)
닫기#1
EndSub
PrivateSubForm_Unload(CancelAsInteger)
앱을 엽니다. 경로+"memo.txt"ForAppendAs#1
인쇄 #1, "창 닫기:" & CStr(현재)
닫기#1
끝
EndSub
마지막으로 프로그램을 시작 그룹에 추가합니다. (->