how to fill out the structure?

[mitsumi]

Hello, I'm new to purebasic, how to fill out the structure?
why do I just get a part of the session?

Code: Select all

Structure WTS_SESSION_INFO Align #PB_Structure_AlignC
   SessionId.l
   pWinStationName.s
   State.l
 EndStructure
Prototype  WTSEnumerateSessions(hServer, Reserved, Version, *ppSessionInfo.WTS_SESSION_INFO, *pCount)
Prototype  WTSFreeMemory(pMemory)
Prototype  WTSOpenServer(pServerName$)
Prototype  WTSCloseServer(hServer)

Global WTSEnumerateSessions.WTSEnumerateSessions
Global WTSFreeMemory.WTSFreeMemory
Global WTSOpenServer.WTSOpenServer
Global WTSCloseServer.WTSCloseServer


Procedure.i wtsapi32_LoadDLL()
  Protected.i hDLL
 
  hDLL = OpenLibrary(#PB_Any, "wtsapi32.dll")
  If hDLL <> 0
   
    WTSCloseServer = GetFunction(hDLL, "WTSCloseServer")
    WTSFreeMemory = GetFunction(hDLL, "WTSFreeMemory")
   
    CompilerIf #PB_Compiler_Unicode
     
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsW")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerW")
     
    CompilerElse
     
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsA")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerA")
     
    CompilerEndIf
   
    ProcedureReturn hDLL
  EndIf
 
  ProcedureReturn #False
EndProcedure


Procedure IsUser()
 
  
  Protected WTSHandle.i
  Protected *SessionInfo
  Protected pCount
  Protected Ret, i
  Protected lpComputername$ = ComputerName()
  Protected Offset = 0
  
  WTSHandle=WTSOpenServer(lpComputername$)
  
  If WTSHandle
   
    Ret=WTSEnumerateSessions(WTSHandle, #Null, 1, @*SessionInfo, @pCount)

    If Ret <> 0
      For i = 0 To pCount-1
        
        
        Debug PeekS(*SessionInfo+Offset*i)

        Offset+SizeOf(WTS_SESSION_INFO)
        
      Next

      WTSFreeMemory(*SessionInfo)
    EndIf
   
    WTSCloseServer(WTSHandle)
  EndIf
 
 
EndProcedure


Define.i hDLL


    
  hDLL=wtsapi32_LoadDLL()
  
  If hDLL=0
  End
  EndIf
  
  
  Delay(150)
  IsUser()
  
  CloseLibrary(hDll)

[Mijikai]

Try this:

Code: Select all

Structure WTS_SESSION_INFO
  SessionId.i
  *pWinStationName
  State.i
EndStructure

Prototype  WTSEnumerateSessions(hServer, Reserved, Version, *ppSessionInfo.WTS_SESSION_INFO, *pCount)
Prototype  WTSFreeMemory(pMemory)
Prototype  WTSOpenServer(pServerName$)
Prototype  WTSCloseServer(hServer)

Global WTSEnumerateSessions.WTSEnumerateSessions
Global WTSFreeMemory.WTSFreeMemory
Global WTSOpenServer.WTSOpenServer
Global WTSCloseServer.WTSCloseServer


Procedure.i wtsapi32_LoadDLL()
  Protected.i hDLL
  
  hDLL = OpenLibrary(#PB_Any, "wtsapi32.dll")
  If hDLL <> 0
    
    WTSCloseServer = GetFunction(hDLL, "WTSCloseServer")
    WTSFreeMemory = GetFunction(hDLL, "WTSFreeMemory")
    
    CompilerIf #PB_Compiler_Unicode
      
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsW")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerW")
      
    CompilerElse
      
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsA")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerA")
      
    CompilerEndIf
    
    ProcedureReturn hDLL
  EndIf
  
  ProcedureReturn #False
EndProcedure


Procedure IsUser()
  
  
  Protected WTSHandle.i
  Protected *SessionInfo.WTS_SESSION_INFO
  Protected pCount
  Protected Ret, i
  Protected lpComputername$ = ComputerName()
  Protected Offset = 0
  
  WTSHandle=WTSOpenServer(lpComputername$)
  
  If WTSHandle
    
    Ret=WTSEnumerateSessions(WTSHandle, #Null, 1, @*SessionInfo, @pCount)
    
    If Ret <> 0
      For i = 0 To pCount-1
        

        Debug PeekS(*SessionInfo\pWinStationName)
        
        *SessionInfo + SizeOf(WTS_SESSION_INFO)
        
      Next
      
      WTSFreeMemory(*SessionInfo)
    EndIf
    
    WTSCloseServer(WTSHandle)
  EndIf
  
  
EndProcedure


Define.i hDLL



hDLL=wtsapi32_LoadDLL()

If hDLL=0
  End
EndIf


Delay(150)
IsUser()

CloseLibrary(hDll)

The structure was off and i changed the enumeration slightly.

[mitsumi]

Thank you!

[fryquez]

You should also ave the address of *SessionInfo that you later pass to WTSFreeMemory()

Code: Select all

Structure WTS_SESSION_INFO
  SessionId.i
  *pWinStationName
  State.i
EndStructure

Prototype  WTSEnumerateSessions(hServer, Reserved, Version, *ppSessionInfo.WTS_SESSION_INFO, *pCount)
Prototype  WTSFreeMemory(pMemory)
Prototype  WTSOpenServer(pServerName$)
Prototype  WTSCloseServer(hServer)

Global WTSEnumerateSessions.WTSEnumerateSessions
Global WTSFreeMemory.WTSFreeMemory
Global WTSOpenServer.WTSOpenServer
Global WTSCloseServer.WTSCloseServer


Procedure.i wtsapi32_LoadDLL()
  Protected.i hDLL
  
  hDLL = OpenLibrary(#PB_Any, "wtsapi32.dll")
  If hDLL <> 0
    
    WTSCloseServer = GetFunction(hDLL, "WTSCloseServer")
    WTSFreeMemory = GetFunction(hDLL, "WTSFreeMemory")
    
    CompilerIf #PB_Compiler_Unicode
      
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsW")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerW")
      
    CompilerElse
      
      WTSEnumerateSessions = GetFunction(hDLL, "WTSEnumerateSessionsA")
      WTSOpenServer = GetFunction(hDLL, "WTSOpenServerA")
      
    CompilerEndIf
    
    ProcedureReturn hDLL
  EndIf
  
  ProcedureReturn #False
EndProcedure


Procedure IsUser()
  
  
  Protected WTSHandle.i
  Protected *SessionInfo.WTS_SESSION_INFO, *SessionInfo_free
  Protected pCount
  Protected Ret, i
  Protected lpComputername$ = ComputerName()
  Protected Offset = 0
  
  WTSHandle=WTSOpenServer(lpComputername$)
  
  If WTSHandle
    
    Ret=WTSEnumerateSessions(WTSHandle, #Null, 1, @*SessionInfo, @pCount)
    
    If Ret <> 0
      
      *SessionInfo_free = *SessionInfo
      
      For i = 0 To pCount-1
        

        Debug PeekS(*SessionInfo\pWinStationName)
        
        *SessionInfo + SizeOf(WTS_SESSION_INFO)
        
      Next
      
      WTSFreeMemory(*SessionInfo_free)
    EndIf
    
    WTSCloseServer(WTSHandle)
  EndIf
  
  
EndProcedure


Define.i hDLL



hDLL=wtsapi32_LoadDLL()

If hDLL=0
  End
EndIf


Delay(150)
IsUser()

CloseLibrary(hDll)

[Kwai chang caine]

Hello at all
I obtain

Services
Console

What is it ?