수다닷컴

물곰은 궁금한게 참 많아요.

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

그런데 여기서 제가 수정하고싶은 부분이있어요.

원하는것은 위와같이 소스를 적으면 타이머 인터벌에 따라 지금켜져있는 웹브라우져가 계속 떠요.

저는 페이지가 이동하거나 새 창이뜨면 그 목록과 켜진 시간이 목록에 적히는걸 원해요. 어떻게 하죠?

신청하기