bueno man ,.aca tengo tu respuesta,.
espro que te sirva,. a mi me funciona muy bien y me has dado una idea:P,. asi que ponte contento
Codigo:
en el form
Private Sub Timer1_Timer()
On Error Resume Next
Ventana 'Funcion del modulo Nombre_Ventana
End Sub
Private Sub Timer2_Timer()
Label3.Caption = Val(Label3.Caption) + 1 'Aumenta 1 al Label3
If Val(Label3.Caption) < 10 Then
Label3.Caption = "0" & Label3.Caption
End If
If Val(Label3.Caption) > 59 Then 'Si el label3(Seg) es mayor a 59
Label3.Caption = "00" 'Volver a cero
Label2.Caption = Val(Label2.Caption) + 1 'El Label2(Min) suma uno
If Val(Label2.Caption) < 10 Then
Label2.Caption = "0" & Label2.Caption
End If
If Val(Label2.Caption) > 59 Then 'Si el label2(min) es mayor a 59
Label2.Caption = "00" 'Vuelve cero
Label1.Caption = Val(Label1.Caption) + 1 'idem pero con el label1(hs)
If Val(Label1.Caption) < 10 Then
Label1.Caption = "0" & Label1.Caption
End If
End If
End If
End Sub
En el modulo:
Function Ventana()
Dim Handle As Long
Dim TextLen As Long
Dim WindowText As String
Dim sVar
Handle = GetForegroundWindow 'Obtiene la ventana activa
LastHandle = Handle
TextLen = GetWindowTextLength(Handle) + 1 'Longitud del titulo de la ventana
WindowText = Space(TextLen)
sVar = GetWindowText(Handle, WindowText, TextLen) 'Obtiene titulo de la ventana
WindowText = Left(WindowText, Len(WindowText) - 1)
If WindowText <> LastWindow Then
'Form1.Text1.Text = Form1.Text1.Text & "|<<" & Now & ">>|" & "***" & "|<<" & WindowText & ">>|" & vbCrLf 'usa esta linea si keres que te aparezca en un text (acuerdate de darle buen tamaño) y poder leer todo,.(con los dos scroolbars)
'Form1.List1.AddItem "|<<" & Now & ">>|" & "***" & "|<<" & WindowText & ">>|" 'y usa esta si lo kieres en un listbox,. si el titulo de la ventana es muy largo no lo leeras completo a no ser que agas el listbox muy amplo
LastWindow = WindowText
End If
End Function
al timer1 le pones 500 en interval para que te vea todas las ventanas,. o un nomero mas bajo
y al timer2,. le pones 1000 de interva,. para que cuente cada 1 segundo,. aunke no es necesario el timer2 xq la fecha y ahra la toma usando "Now"
bueno man espero te guste el code,. trate de no modificartelo tanto
suerte si te funciono me avisas
El MaRo!
Autor
En línea
