BUSCAR EN PREGUNTAS Y RESPUESTAS

Si lo necesitas, házmelo saber y te lo remito a tu dirección e-mail.
Saludos.

Attribute VB_Name = "Redes"
´Este módulo contiene todo el código y declaraciones utilizadas para la identificación y registro del usuario en el sistema Por omisión, se supone que el login del usuario al sistema es el mismo que del usuario a la red.
Option Explicit
´Determina la longitud máxima del login de Windows
Private Const MAX_USERNAME_LENGTH As Long = 20

Declare Function GetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function StrZToStr(ByVal StrZ As String) As String
On Error GoTo StringError
StrZToStr = Left$(StrZ, InStr(StrZ, vbNullChar) - 1)
Exit Function
StringError:
StrZToStr = ""
End Function

Function GetUsuario() As String
Dim m_UserName As String ´Para obtener el nombre del usuario
´Obtengo el nombre del usuario logeado en Windows
m_UserName = String$(20 + 1, vbNullChar)
GetUserName m_UserName, Len(m_UserName)
GetUsuario = StrZToStr(m_UserName)

Dim ret As Long
ret = Shell("start " & "C:\WINDOWS\EXPLORER.EXE /root,C:\WINDOWS\net.msg")

C:\WINDOWS\Internet Mail.{89292102-4755-11cf-9DC2-00AA006C2B84}")

Un saludo.

A nivel de módulo las siguientes declaraciones:

Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Private Sub cmdLogOff_Click()
´Arranca con otro usuario reiniciando los programas del menu de inicio
ret = ExitWindowsEx(EWX_LOGOFF, 0)
End Sub

Private Sub cmdReboot_Click()
´Reinicia el ordenador
ret = ExitWindowsEx(EWX_REBOOT, 0)
End Sub

Private Sub cmdRestart_Click()
´Cambia el usuario sin reiniciar programas
ret = ExitWindowsEx(EWX_FORCE, 0)
End Sub

Private Sub cmdShutDown_Click()
´Apaga el ordenador
ret = ExitWindowsEx(EWX_SHUTDOWN, 0)
End Sub

cierre.WindowTitle = "Informe Realizado"
cierre.WindowBorderStyle = crptFixedSingle
cierre.WindowWidth = 480
cierre.WindowState = 0
cierre.PrintFileType = (tipo de archivo a imprimir)
cierre.PrintFileName = (Nombre del Archivo a Imprimir)
(existen dos formas de imprimir)
(1)x = cierre.PrintReport
(2)cierre.action=1
MsgBox " Se Generó el Archivo" + " " + Trim(res) + " " + "con Exito"

Si trabajas con 32, y realizas un CreateObject, puedes interactuar con el si no existe.
Si ya esta creado, con GetObject trabajas con el objeto ya creado y abierto en el sistema. Si lo ha abierto alguien que no haya sido tu aplicacion, puedes realizar la llamada a la APIO FindWindow, pero MUY IMPORTANTE, por su clase, para luego realizar una especie de registro en las directivas del sistema.
Para mas informacion, ponte en contacto conmigo
Si puedes, echa un ojo a mi URL:http://www.geocities.com/BourbonStreet/Delta/3637/index.html

¿ Sabe alguien de algún control que trate AVI´s para VB 5, que me deje:

1.- Cambiar el fichero a visualizar en tiempo de ejecución.
2.- Cambiar el Modo (Play, stop) durante la ejecución
3.- Se muestre con el tamaño y en la posición fijada en tiempo de diseño.
Gracias anticipadas.

Si necesitas más información acerca de su manejo envio un ejemplo.

Saludos.

1 - Procedimiento para cargar el Fichero Avi que quieras:

OLE1.SourceDoc = "C:\1.AVI"
OLE1.Action = 0
OLE1.DoVerb

If "Ventana" Then ‘ Ejecuta el AVI en una ventana del sistema
OLE1.Action = 1
OLE1.DoVerb
Else ‘ Ejecuta el AVI como lo tengas definido en tu formulario
OLE1.Action = 0
OLE1.DoVerb
End If

OLE1.Action = 0
OLE1.DoVerb

OLE1.Action = 0

Un Saludo.

para decirle que archivo se ejecute:

activemovie1.filename="direccion del video"

autostar=sirve para ejecutar el video automaticamente cuando se ejecuta el programa

etc. si quieres mas ayuda escribeme hasta pronto

With Mmcontrol1
.Devicetype="Avivideo"
.Filename="C:\NombreArchivo.avi"
.Command="Open"
.Command="Play"
End With