Mensajes

Gracias por su tiempo, en la representación de navegación de la líneas que contiene el txt hago un conteo en representación con "n" por decir si cae el numero 10, deseo leer la linea 10, determinar

Gracias voy aprendiendo hasta ahora he logrado saber cuantas líneas tiene un txt, sabiendo el numero total ahora abrir línea por línea que es en lo que estoy estancado.

Código [Seleccionar] Expandir

import time

fichero = open('1.txt', 'r')
n = len(fichero.readlines())
print (n)
fichero.close()


with open('1.txt') as f:
data = f.readlines()[n]
print(data)



while n >  0:
    print(n)
    n = n - 1
    time.sleep(0.100)
print('FIN DE LISTA')

Saludos estoy buscando como abrir una lista txt con python, que cada 5 segundos abrar una linea, después de los 5 segundo abra la siguiente linea, cuando llegue a la ultima linea vuelva a la linea 0 y haga la misma opción bucle

Lista
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
FIN

Saludos tengo una duda deseo modificar una ventana abierta de chrome abierta maximizada, deseo con una linea de comando en cmd o un sript pueda dimensionar la ventana de crhome que esta abierta, ponerla en tal coordenadas y darle tal tamaño

he tratado con una linea pero sin victoria

Código (bash) [Seleccionar] Expandir

START http://m.youtube.com "size="398, 656" --window-position="12, 49""

Saludos como poder regresar a modo normal la pantalla de un video en reproducción con alguna tecla que uno dese

Código (vbnet) [Seleccionar] Expandir

If e.KeyCode = Keys.A Then
aqui regresar a pantalla normal
       Else
       End If

También busco cuando se ponga la pantalla fullscreen desaparecer la barra de desplazamiento, no aparezca cuando este fullscreen

Alguien me puede ayudar a meter controles de tecla en este proyecto y responda con teclas ordenes



Deseo meter esta orden cuando este la pantalla completa obedezca la presion de la tecla A

Código (vbnet) [Seleccionar] Expandir

  If e.KeyCode = Keys.A Then ''GENERO
            ButtonNORMAL_Click(sender, e)
        Else
        End If

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Dim POSICION As Point
    Dim ANTERIOR As Point
    Dim BANDERA As Boolean
    Dim ALTURA As Integer

    Private Sub AxWindowsMediaPlayer1_MouseMoveEvent(sender As Object, e As AxWMPLib._WMPOCXEvents_MouseMoveEvent) Handles AxWindowsMediaPlayer1.MouseMoveEvent
        POSICION = Windows.Forms.Cursor.Position
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        AxWindowsMediaPlayer1.uiMode = "NONE"
        AxWindowsMediaPlayer1.Location = New Point(0, 0)
        AxWindowsMediaPlayer1.Width = Me.Width
        ALTURA = AxWindowsMediaPlayer1.Height
        PanelCONTROLES.Location = New Point(0, PanelCONTROLES.Location.Y)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = False
        ButtonNORMAL.Anchor = AnchorStyles.Right
        ButtonCOMPLETA.Location = New Point(Me.Width - ButtonCOMPLETA.Width - 30, ButtonCOMPLETA.Location.Y)
    End Sub

    Private Sub ButtonINICIAR_Click(sender As System.Object, e As System.EventArgs) Handles ButtonINICIAR.Click
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
            AxWindowsMediaPlayer1.stretchToFit = True
        End If
    End Sub
   
    Private Sub ButtonCOMPLETA_Click(sender As System.Object, e As System.EventArgs) Handles ButtonCOMPLETA.Click
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
        Me.WindowState = FormWindowState.Maximized
        AxWindowsMediaPlayer1.Dock = DockStyle.Fill
        PanelCONTROLES.Location = New Point(0, Me.Height - PanelCONTROLES.Height)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = True
        ButtonCOMPLETA.Visible = False
        BANDERA = True
        Timer1.Interval = 1000
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If BANDERA = True Then
            If ANTERIOR <> POSICION Then
                If PanelCONTROLES.Visible = False Then
                    PanelCONTROLES.Visible = True
                ElseIf PanelCONTROLES.Visible = True Then
                    PanelCONTROLES.Visible = False
                End If
                ANTERIOR = POSICION
            End If
        End If
    End Sub

    Private Sub ButtonNORMAL_Click(sender As System.Object, e As System.EventArgs) Handles ButtonNORMAL.Click
        Timer1.Stop()
        BANDERA = False
        Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
        Me.WindowState = FormWindowState.Normal
        AxWindowsMediaPlayer1.Dock = DockStyle.None
        AxWindowsMediaPlayer1.Height = ALTURA
        PanelCONTROLES.Location = New Point(0, Me.Height - PanelCONTROLES.Height - 45)
        PanelCONTROLES.Width = Me.Width
        ButtonNORMAL.Visible = False
        ButtonCOMPLETA.Visible = True
    End Sub
End Class


Buen dia, una pregunta tengo un problema con la pantalla Me.AxWindowsMediaPlayer1.fullScreen = True

tengo un listado  AxWindowsMediaPlayer1.URL = LabelURLREPRODUCCIONAHORA.Text que se van cargando en el LabelURLREPRODUCCIONAHORA.Text


Tengo un boton para activar el Me.AxWindowsMediaPlayer1.fullScreen = True pero no funciona activar el fullScreen en algunos, alguien saber por que en algunos no se puede activar?