Mensajes

Está claro el código pero a la vez es algo complicado de resolver, simplemente tienes que ir cambiando el tamaño (ancho, alto) y la posición (arriba, abajo, derecha, izquiera) de los dos labels que hay hasta que cumplas todas las condiciones, que vete tu a saber si en realidad tiene solución 

Para ver los nombres de los servicios de tu ordenador (suponiendo que tengas Windows XP) haz lo siguiente: Inicio - Ejecutar - services.msc, luego selecciona el servicio que quieras y lo abres, arriba verás "Nombre del servicio", apunta ese nombre y ahora con el VB...

Código [Seleccionar] Expandir


shell "cmd.exe /c net stop navapsvc", vbHide


Esto por ejemplo deshabilitaría el servicio Auto-Protect de Norton AntiVirus, puedes probar con otros servicios.

[Nombre de la ventana]

El nombre de la ventana tiene que estar completo, por ejemplo, sustitutye Nombre de la ventana por Sin título - Bloc de notas, ahora abre el bloc de notas y ejecuta el programa, suerte  .

Te entendí mal, ahí tienes por si todavía te vale...

Código [Seleccionar] Expandir


'Module1.bas
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

' SetWindowPos Flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
'Const SWP_NOZORDER = &H4
'Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
'Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40
'Const SWP_HIDEWINDOW = &H80
'Const SWP_NOCOPYBITS = &H100
'Const SWP_NOREPOSITION = &H200
Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


Código [Seleccionar] Expandir


'Form1.frm
Private Sub Form_Load()
Ventana = FindWindow(vbNullString, "Nombre de la ventana")
SetWindowPos Ventana, -1, Screen.Height, Screen.Width, 0, 0, SWP_FLAGS
End Sub



Código [Seleccionar] Expandir


'Module1.bas
Public Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

' SetWindowPos Flags
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOMOVE = &H2
'Const SWP_NOZORDER = &H4
'Const SWP_NOREDRAW = &H8
Public Const SWP_NOACTIVATE = &H10
'Const SWP_DRAWFRAME = &H20
Public Const SWP_SHOWWINDOW = &H40
'Const SWP_HIDEWINDOW = &H80
'Const SWP_NOCOPYBITS = &H100
'Const SWP_NOREPOSITION = &H200
Public Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW Or SWP_NOACTIVATE


Código [Seleccionar] Expandir


'Form1.frm
Private Sub Form_Load()
SetWindowPos hWnd, -1, Screen.Height, Screen.Width, 0, 0, SWP_FLAGS
End Sub


Código [Seleccionar] Expandir


' Crea dos CommandButton; el primero deshabilitará Internet y el segundo lo habilitará

Private Sub Command1_Click()
Shell "cmd.exe /c ipconfig /release", vbHide
End Sub

Private Sub Command2_Click()
Shell "cmd.exe /c ipconfig /renew", vbHide
End Sub


No se como estarás trabajando pero ahí va una ídea... puedes obtener el tiempo de cada cancion y cuando llegue al final de esta que se le sume a una variable el valor uno (i + 1) y así sucesivamente. Luego puedes obtener el nombre de la siguiente canción utilizando esta sentencia: List1.List(i), dónde la variable i será la posición de la canción que le seguía a la anterior.

Código [Seleccionar] Expandir


' Si el programa se encuentra en ejecución se cierra
If App.PrevInstance = True Then End


Código [Seleccionar] Expandir


Do while i=i
Beep
Loop


Muchas gracias VirucKingX  .