또또질문
트레이
물곰은 궁금한게 참 많아요.
getwindowtext 소스를 폼에다가 해봤어요
일단 모듈부분입니다.
Public Const GWL_EXSTYLE As Long = -20
Public Const WS_EX_APPWINDOW As Long = &H40000
Public Const WS_EX_TOOLWINDOW As Long = &H80&
Public Const GW_OWNER As Long = 4
Public Function ACForm(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim foregroundwindow As Long
Dim textlen As Long
Dim windowtext As String
Dim svar As Long
Dim tStyle&
Dim bNoHavOwner As Boolean
Static lastwindowtext As String
foregroundwindow = hwnd
bNoHavOwner = (GetWindow(hwnd, GW_OWNER) = 0)
tStyle = GetWindowLong(hwnd, GWL_EXSTYLE)
If IsWindowVisible(hwnd) Then
If (((tStyle And WS_EX_TOOLWINDOW) = 0) And bNoHavOwner = True) Or _
((tStyle And WS_EX_APPWINDOW) And bNoHavOwner = False) Then
textlen = GetWindowTextLength(foregroundwindow) + 1
windowtext = Space(textlen)
svar = GetWindowText(foregroundwindow, windowtext, textlen)
windowtext = Left(windowtext, Len(windowtext) - 1)
If windowtext = Then GoTo slask
If IsWindowVisible(foregroundwindow) 0 Then
If windowtext = Form1.Caption Then GoTo slask
Form1.List1.AddItem windowtext
Form1.List1.ItemData(Form1.List1.NewIndex) = foregroundwindow
lastwindowtext = windowtext
End If
End If
End If
slask:
ACForm = 1
End Function
그리고나서 소스부분입니다.
Private Sub Timer1_Timer()
EnumWindows AddressOf ACForm, 0
End Sub
그런데 여기서 제가 수정하고싶은 부분이있어요.
원하는것은 위와같이 소스를 적으면 타이머 인터벌에 따라 지금켜져있는 웹브라우져가 계속 떠요.
저는 페이지가 이동하거나 새 창이뜨면 그 목록과 켜진 시간이 목록에 적히는걸 원해요. 어떻게 하죠?
-
매미꽃
흐응.
창의 핸들값까지 저장했다가, 새로운 핸들값의 출현시 표시 시키면 새 창에 대한 처리를 할 수 있어요.
또한 핸들값에 대해 타이틀 값까지 저장해두면 페이지가 바뀌었을 때를 알아낼 수 있지요. -
해련
앗... 또 하나의 질문이 완성되질 않았어요. 주기적으로 표시하는게 아니라 페이지가 이동하거나 새창이 뜨면 리스트박스에 표시하고싶어요.
-
꽃짱아
Form1.List1.AddItem windowtext
위 부분이 리스트에 값을 추가하는 부분이니 아래와 같이 뒤에 시간만 붙이면 되겠지요.
Form1.List1.AddItem windowtext & format(now, \hh:mm:ss\)
번호 | 제 목 | 글쓴이 | 날짜 |
---|---|---|---|
2655185 | 화면의 x좌표 가장큰값 구하기 질문 (1) | 해길 | 2024-05-17 |
2655158 | 이거 강좌를 받앗는대 어떻개따라해요? | 하람 | 2024-05-17 |
2655130 | 컴퓨터 사운드 녹음 질문 | 갤쓰리 | 2024-05-17 |
2655073 | 폼끄기 질문 다시합니다 | 해찬솔 | 2024-05-16 |
2654987 | 메세지 박스 질문입니다 ~ (3) | 안다미로 | 2024-05-15 |
2654960 | 블로그 글쓰기 질문 (2) | 힘찬 | 2024-05-15 |
2654931 | 질문 하나 하겠습니다 .!! | 소윤 | 2024-05-15 |
2654904 | 비베 질문요 ㅠㅠ | 미련곰탱이 | 2024-05-15 |
2654851 | 미투데이에 글을 다는 소스를 만들어보려고 하는데 | 횃불 | 2024-05-14 |
2654822 | 원하는 이미지만 꼭 찝어서 냅두기 (3) | 다솜 | 2024-05-14 |
2654791 | 닷홈으로 TEXT를 전송하는데요.. (1) | 그리 | 2024-05-14 |
2654769 | 뭐죠 ?? | 가을 | 2024-05-13 |
2654744 | winhttp로 자동으로 글 등록하는 걸 만들었는데 | 민들레 | 2024-05-13 |
2654717 | 웹브 뒤로가기? (2) | 샹1큼해 | 2024-05-13 |
2654660 | int(Rnd *9999) 질문좀 드릴게욤..;; | 사랑은아픔 | 2024-05-12 |
2654604 | 텍스트내용 메일로 보낼때 일정부분 가리기 (1) | 풋내 | 2024-05-12 |
2654575 | 메시지박스 | 터1프한렩 | 2024-05-12 |
2654551 | form의 크키가 커지면 다른 도구들도 커지는법좀. | 앵겨쭈 | 2024-05-11 |
2654492 | 컴퓨터본체로 강제종료 못시키게하는법 (3) | 연블랙 | 2024-05-11 |
2654465 | 폼2에서 폼1 리스트의 Listindex0에강제적으로 추가하기... 그리고저장하기 (1) | 갤3 | 2024-05-11 |