텍스트 기록
돌심보
2025.01.16
Private Declare Function GetWindowText Lib user32 Alias GetWindowTextA (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib user32 () As Long
Private Function GetActiveWindowCaption()
Dim hWn, Pos As Long
Dim Title As String
Title = String$(255, 0)
hWn = GetForegroundWindow
GetWindowText hWn, Title, 255
Pos = InStr(Title, Chr$(0))
If Pos 0 Then
Title = Left$(Title, Pos - 1)
End If
GetActiveWindowCaption = [ & Title & ]
End Function
Private Sub Timer1_Timer()
Text1 = GetActiveWindowCaption
frmMain.Width = Text1.Width + 310
End Sub
어느분 소스로 수정좀해봤는데
이상테에서 기록되게하려면 어떻게해수정해야하나요?..
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2698185 | 제한된계정으로 레지스트리 등록 | 김애교 | 2025-06-14 |
| 2698149 | 질문좀해볼께요 | 다연 | 2025-06-14 |
| 2698121 | 비베 질문해봅니다.ㅋ | 물병자리 | 2025-06-14 |
| 2698092 | 작업관리자를 Kill로해서 못키게할껀데요 ㅋㅋ (2) | 글길 | 2025-06-13 |
| 2698061 | 타이머 시간 늘리기 인터벌 | 나슬 | 2025-06-13 |
| 2698032 | 질문함니다 (폼문제) (1) | 매1혹 | 2025-06-13 |
| 2698013 | 비주얼베이직 디자인부분에서 질문.. 점선. | 큰꽃늘 | 2025-06-13 |
| 2697981 | 폼 크기. | 은별 | 2025-06-12 |
| 2697953 | 리스트 선택 질문.. | 무들 | 2025-06-12 |
| 2697925 | [재질문] Text1 에있는 링크를 어떻게 실행시켜요? | 내꽃 | 2025-06-12 |
| 2697863 | 커서를 넣으면.. | 우시 | 2025-06-11 |
| 2697837 | 다중채팅말인데요.. (1) | 해나 | 2025-06-11 |
| 2697813 | 런타임 13 오류 좀ㅜㅠㅠ | 보나 | 2025-06-11 |
| 2697661 | List , Findwindow (6) | 눈솔 | 2025-06-09 |
| 2697606 | [VB6 Q&A] 멀티쓰레드 생성 후 다시 멈추는 방법은 끄는것 이외에는 없나요? | 봉봉 | 2025-06-09 |
| 2697575 | 비베로 보안 프로그램 비슷한거 만들 수 있나요?? | 튼싹 | 2025-06-09 |
| 2697550 | 비베 포터블이요 | 아름나 | 2025-06-08 |
| 2697433 | 리스트 개초보가 질문합니다.. | 지옥 | 2025-06-07 |
| 2697375 | 윈속 다중채팅방 말치는거 질문이여 | 가론 | 2025-06-07 |
| 2697342 | 프로그램의 텍스트를 파싱(?)하기 | 매화 | 2025-06-07 |