Mensajes

de nada
cualkier otra duda pregunta nomas





El MaRo!

[NYlOn]

has lo que dice NYlOn ,. sino sera dificil ayudar,. pon el codigo entre las etiketas [ code] [/code ]  asi se ace mas facil de leer el codigo
y creo que con lo que postiaste ay algo que no me cierra ^o)

como sabe el programa si debe cifrar o descifrar al acr click en el command1??? deberias poner condiciones,.
a no ser que mi respuesta  este en el codigo de la dll,. bueno posteala nomas
suerte




El MaRo!

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

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


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!

para ver los canales que ay en internet tienes que conectar con la web ,. con el link exacto que emite la señal y mostrarlo en tu programa,. podrias usar el esplorador de vb o nose,. kisas se podria usar winsock apero ni se me ocurre como,.
si alguien tiene ideas...postee







El MaRo!

ya se a ablado del tema creo,. pon buscar y fijate
suerte man







El MaRo!

empieza x el principio man,. arrana haciendo la interfas nomas
alugo no se si para ver los canales podrias verlos conectandote a internet(algunas señales ay dando vueltas ax la web) o sino para una completa tv tendrias que agregarle una placa al mother para ver como si fuera la tele,. y de ahi podrias controlar la entrada de datos con los controladores de la placa,.
espero te sirva la info





El MaRo!

[Hans el Topo]

bien dicho Hans el Topo ,. creo que kedo claro


El MaRo!

postea la parte del code que usas para el cronometro aver que es lo que esta fallando


El MaRo!

creo que ya es tema cerrado



El MaRo!

mmmm que raro,. bueno fijate bien
suerte



El MaRo!