• Proyecto intriga: Demostr...
  Foro: Videotutoriales
  Último mensaje por: Shordi
  Hace 8 horas
  » Respuestas: 0
  » Vistas: 7
• Proyecto Intriga: CCP Con...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: Shordi
  Hace 8 horas
  » Respuestas: 0
  » Vistas: 17
• Web con gambas, a ver si ...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: Shordi
  Hace 8 horas
  » Respuestas: 9
  » Vistas: 146
• Como cargar SVG por códig...
  Foro: Aplicaciones/Fragmentos de Código
  Último mensaje por: tincho
  Ayer, 13:58
  » Respuestas: 2
  » Vistas: 29
• INXI - ¿Detectar hardware...
  Foro: Mundo Linux
  Último mensaje por: tincho
  Ayer, 00:20
  » Respuestas: 6
  » Vistas: 74

• Mensajes del foro:3,491
• Temas del foro:612
• Miembros:119
• Último miembro:Denilson

No tengo muy claro si esto es un tutorial o una demo... pero bueno, aquí tenéis el vídeo sobre el programa CCP del proyecto intriga. Es el responsable de conectar con la VPN y configurar los menús y unidades compartidas del usuario.

Acabo de subir a gitlab el programa CCP, que es el encargado de conectar tu máquina con el servidor VPN y gestionar los accesos a las unidades compartidas y menús que tengas derecho.

Lo llamé CCP porque yo ya tenía un puñado de aplicaciones corriendo en la empresa y cada una utilizaba sus propias bases de datos de usuarios, permisos, etc. Con este programa (bueno, con uno muy parecido llamado igual) unifiqué y controlé todo de manera centralizada y eso me recordó al programa malvado de la peli de Tron: El Control Central de Procesos... y no me pude resistir.

Si os lo descargáis, en principio y salvo malvado error traidor, sólo tenéis que ejecutarlo y ponerle como usuario "usuario" y como clave "usuario22" y ya está.
Veréis que no va demasiado rápido, pero os recuerdo que el servidor es poco más que una Raspberry Pi, 1gb de ram y 1 de ancho de banda, creo recordar, lo que no ocurriría en un entorno real de trabajo.

Hay mucho que discutir y que plantear: El tema de qué nivel de control se establece en las máquinas, La confección de software que enlace y facilite todo esto que estamos viendo en el foro y los vídeos (sueño con un programa instalador/configurador para servidores y otro para clientes), y muchos detalles que ahora mismo no recuerdo, pero lo que hoy presento puede ser una base para la discusión real con los que estéis interesados.

Lo podéis encontrar en https://gitlab.com/shordi/ccp.

También he hecho un video-demo del asunto. Lo tenéis en

Hola amigos.
Les presento un método que uso bastante seguido en mis programas ya que ademas de la excelente calidad gráfica que se logra, evita el molesto problema de las imágenes "negativas"
Como cargar los archivos

  For Each oCont In [pTools]
    For Each o In oCont.Children
 
      If Object.Type(o) = "ToolButton" Then
        z = (o.h - 8)
        sPic = "./svg" &/ o.Tag & ".svg"
        If Exist(sPic) Then
          svg = dsk.Contrary(sPic, "#0066b3")
          pic = Image.FromString(svg).Stretch(z, z).Picture
          o.Picture = pic
        Endif
      Endif
    Next
  Next

'' Replace a color in an svg file with one that contrasts with the background of the desktop theme
 
Public Function Contrary(sFile As String, sColor As String) As String
 
  Dim svg As String
 
  If Application.DarkTheme Then
    svg = Replace(File.Load(sFile), sColor & ";", "#eeeeee;")
  Else
    svg = Replace(File.Load(sFile), sColor & ";", "#000000;")
  Endif
 
  Return svg
 
End