Página 1 de 2 1 2 ÚltimoÚltimo
Resultados 1 al 10 de 12

Tema: Como tomar el usuario de windows

  1. #1
      Junior
    J

    Registrado
    octubre de 2015
    Ubicación
    Empalme Villa Constitución
    Mensajes
    39
    Última visita
    01.04.2022

    Agradecimientos
     
    Recibidos
    1
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado Como tomar el usuario de windows

    hola, alguien sabe como tomar el usuario de windows desde powercobol?

    gracias

    0 Not allowed!

  2. #2
      Gran amigo y Guru de COBOL
    Avatar de Rapinto

    Registrado
    febrero de 2015
    Ubicación
    Porto
    Mensajes
    246
    Última visita
    29.01.2018

    Agradecimientos
     
    Recibidos
    226
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    5 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    18
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0 Guru de los Gurus / Point Value: 0

    Predeterminado

    Aqui vai:

    COBOL Código:
    1.  @OPTIONS NOALPHA                                                
    2. *****************************************************************
    3. *  Copyright (c) 2000 R.P.S.                                      
    4. *  Created      :    Jun 2000                                    
    5. *  Last Modified:    Jun 2000                                    
    6. *****************************************************************
    7.  IDENTIFICATION DIVISION.                                        
    8.  PROGRAM-ID.    WINUSER.                                          
    9.  AUTHOR.        Rui Pinto.                                        
    10. *-----------------------------------------------------------------
    11.  ENVIRONMENT DIVISION.                                            
    12.  CONFIGURATION SECTION.                                          
    13.  SPECIAL-NAMES.                                                  
    14.  INPUT-OUTPUT SECTION.                                            
    15.  FILE-CONTROL.                                                    
    16. *-----------------------------------------------------------------
    17.  DATA DIVISION.                                                  
    18.  FILE SECTION.                                                    
    19.  WORKING-STORAGE SECTION.                                        
    20.  01  USERNAME               PIC X(64).                            
    21.  01  USERNAME-LEN           PIC S9(9)    COMP-5.                  
    22.  LINKAGE SECTION.                                                
    23.  01  USER                   PIC X(64).                            
    24.  PROCEDURE DIVISION USING USER.                                  
    25.  MAIN SECTION.                                                    
    26.  MAIN-00.                                                        
    27.        MOVE ALL SPACE TO USERNAME USER.                            
    28.      MOVE 64 TO USERNAME-LEN.                                    
    29.      CALL "GetUserNameA" WITH STDCALL USING                      
    30.               BY REFERENCE USERNAME                              
    31.               BY REFERENCE USERNAME-LEN.                          
    32.      MOVE USERNAME TO USER.                                      
    33.  MAIN-99.                                                        
    34.  END PROGRAM WINUSER.                                            

    Esta rotina é de NetCobol. Pode ser chamada do PowerCobol ou adaptada para PowerCobol.

    Un saludo,
    Rui

    0 Not allowed!

  3. #3
      Junior
    J

    Registrado
    octubre de 2015
    Ubicación
    Empalme Villa Constitución
    Mensajes
    39
    Última visita
    01.04.2022

    Agradecimientos
     
    Recibidos
    1
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Hola, gracias,

    en powercobol no me reconoce "GetUserNameA", me debe estar faltando algo, que puede ser?

    Gracias

    0 Not allowed!

  4. #4
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Hoy a las 11:31

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @JuanJuan77, usa la búsqueda: [Aporte] GetUserName - COBOL Foro

    En cuanto a tu pregunta, qué error te da exactamente?

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  5. #5
      Junior
    J

    Registrado
    octubre de 2015
    Ubicación
    Empalme Villa Constitución
    Mensajes
    39
    Última visita
    01.04.2022

    Agradecimientos
     
    Recibidos
    1
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    me da el error al compilar:
    unresolved external symbol _GETUSERNAMEA@8
    GetUserNameA.dll : fatal error LNK1120: 1 unresolved externals

    Por lo que lei hay q agregar una libreria: ADVAPI32.LIB. Si es asi como se agrega?

    gracias

    saludos

    0 Not allowed!

  6. #6
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Hoy a las 11:31

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @JuanJuan77, debes poner en las propiedades del código:
    CODE Código:
    1. ALPHAL(WORD)

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  7. #7
      Junior
    J

    Registrado
    octubre de 2015
    Ubicación
    Empalme Villa Constitución
    Mensajes
    39
    Última visita
    01.04.2022

    Agradecimientos
     
    Recibidos
    1
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Hola, disculpame, pero en powercobol no se donde poner ese codigo y como hacerlo, probe con
    @OPTIONS ALPHAL(WORD)

    @OPTIONS ALPHAL(WORD)
    identification division.

    pero no compila

    saludos y gracias

    0 Not allowed!

  8. #8
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Hoy a las 11:31

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  9. #9
      Junior
    Avatar de Adrianeloy

    Registrado
    marzo de 2015
    Ubicación
    Santa Fe/rosario
    Edad
    56
    Mensajes
    39
    Última visita
    24.11.2020

    Agradecimientos
     
    Recibidos
    31
    Enviados
    30

    Citaciones y menciones
     
    Mentioned
    3 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    @JuanJuan77, tenes que editar el proyecto y agregar ADVAPI32.LIB como una DLL (te recomiendo que copies ADVAPI32.LIB a la carpeta donde tengas tu proyecto).
    Te adjunto el proyecto entero funcionando por si tenes algun problema.
    Un abrazo

    https://drive.google.com/open?id=0B8...0J0d0NSeDhqT1k

    0 Not allowed!

  10. #10
      Junior
    J

    Registrado
    octubre de 2015
    Ubicación
    Empalme Villa Constitución
    Mensajes
    39
    Última visita
    01.04.2022

    Agradecimientos
     
    Recibidos
    1
    Enviados
    1

    Citaciones y menciones
     
    Mentioned
    4 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    0

    Predeterminado

    Hola, estoy usando powercobol 7, en este me da error todas las opciones que me dijeron, alguno pudo en el 7 o en el 9?

    saludos

    0 Not allowed!

Página 1 de 2 1 2 ÚltimoÚltimo

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Información] Tomar fotos con camara web desde RM/Cobol 7
    Por dyscojh en el foro RM/COBOL
    Respuestas: 1
    Último Mensaje: 18.03.2019, 16:35
  2. [Compilador] Ejecutar programa AcuCobol 8 en usuario final
    Por Gusaiello en el foro AcuCobol
    Respuestas: 3
    Último Mensaje: 26.04.2018, 02:09
  3. [Sintaxis] Cerrar form de Usuario y Contraseña
    Por dmosca en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 1
    Último Mensaje: 31.07.2017, 00:20
  4. [Información] Configuración por usuario (rm-cobol 7, WS2003 TS)
    Por XyVy en el foro RM/COBOL
    Respuestas: 4
    Último Mensaje: 18.11.2016, 00:34
  5. [Información] Tomar imagen de webcam
    Por JuanJuan77 en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 11
    Último Mensaje: 21.12.2015, 03:05

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •