Uzak masa üstü bağlantısında kullanıcı sınırlaması

* CREATE TABLE cnlog ;

* (NIC c(12), CName c(50), UNAME c(50), uptime t, downTime t null, uID c(38))

 

PUBLIC oApp

oApp = Createobject('myApp')

IF oApp.CountSessions() < 5

   oApp.LogEntry(.T.)

ELSE

   ? "Kullanici kotasi dolu", oApp.CountSessions()

   RETURN 

endif

 

? "Kullanima izin verildi", oApp.CountSessions()

ON SHUTDOWN do appShutdown

*read events

 

PROCEDURE appshutdown

  oApp.LogEntry() && exit

endproc

 

Define Class myApp As Custom

  sessionID = .null.

 

  Procedure LogEntry(tlEntry)

    Local oSys,lcMacAddress,lcUserName,lcComputerName,ltTime,lcGUID

    oSys = Createobject('sysutil')

    lcMacAddress = oSys.getMac()

    lcComputerName = Upper(oSys.ComputerName())

    lcUserName = oSys.UserName()

    ltTime=Datetime()

 

    this.CloseOrphans(m.lcMacAddress, m.lcComputerName)

 

    If m.tlEntry

      lcGUID = oSys.getGUID()

      Insert Into cnlog ;

        (NIC, CName, UNAME, uptime, downtime, uID) ;

        VALUES ;

        (m.lcMacAddress, m.lcComputerName, m.lcUserName, m.ltTime,NULL, m.lcGUID)

      * Create semaphore

      this.IsAppRunning(Trim(m.lcGUID)) && Start semaphore

      this.sessionID = m.lcGUID

    Else

      lcGUID = this.sessionID

      Update cnlog Set downtime = m.ltTime Where uID = m.lcGUID

    Endif

  Endproc

 

  Procedure CloseOrphans(m.tcMacAddress, m.tcComputerName)

    Local Array aOpenSession[1]

    Local ltTime

    ltTime = Datetime()

    Select uID From cnlog ;

      WHERE NIC = m.tcMacAddress And CName = m.tcComputerName And downtime Is Null ;

      INTO Array aOpenSession

    If _Tally > 0

      Local ix

      For ix=1 To Alen(aOpenSession,1)

        If !this.IsAppRunning(Trim(aOpenSession[m.ix,1])) && Check if it's already running

          Update cnlog Set ;

            downtime = m.ltTime, forced = .T. ;

            WHERE uID = aOpenSession[m.ix,1]

        Endif

      Endfor

    Endif

  Endproc

 

  Procedure IsAppRunning

    Lparameters tcSemaphoreName

    Local hsem, lpszSemName

    #Define ERROR_ALREADY_EXISTS 183

    Declare Integer GetLastError In win32API

    Declare Integer CreateSemaphore In WIN32API ;

      string @ lpSemaphoreAttributes, ;

      LONG lInitialCount, ;

      LONG lMaximumCount, ;

      string @ lpName

    hsem = CreateSemaphore(0,0,1,tcSemaphoreName)

    Return (hsem # 0 And GetLastError() == ERROR_ALREADY_EXISTS)

  Endproc

 

  Procedure CountSessions

    Local Array aOpenSessions[1]

    Select Count(*) From cnlog Where downtime Is Null Into Array aOpenSessions

    Return aOpenSessions

  ENDPROC

Enddefine

 

 

Define Class sysutil As Custom

 

  Procedure Init

    This.initDLLs()

  Endproc

 

  Procedure initDLLs

    Declare Integer WNetGetUser In win32api ;

      string @ lpszLocalName, ;

      string @ lpszUserName, ;

      integer @ lpcchBuffer

 

    Declare Integer GetComputerName In Win32API ;

      STRING @ lpComputerName, Integer @ nBufSize

 

    Declare Integer CoCreateGuid In 'OLE32.dll' ;

      string @pguid

    Declare Integer StringFromGUID2 In 'OLE32.dll' ;

      string rguid, String @lpsz, Integer cchMax

    Declare Integer UuidCreateSequential In 'RPCRT4.dll'  String @ Uuid

    Declare Integer UuidCreate In 'RPCRT4.dll' String @pguid

  Endproc

 

  Procedure getGUID

    Local pguid,rguid

    pguid=Replicate(Chr(0),16)

    rguid=Replicate(Chr(0),80)

    UuidCreate(@pguid)

    StringFromGUID2(pguid,@rguid,40)

    Return Strconv(Left(rguid,76),6)

  Endproc

 

  Procedure getMac

    Local pguid,rguid,lcOldError,lnResult

    pguid=Replicate(Chr(0),16)

    rguid=Replicate(Chr(0),80)

    lcOldError = On('error')

    On Error lnResult = CoCreateGuid(@pguid)

    UuidCreateSequential(@pguid)

    On Error &lcOldError

    StringFromGUID2(pguid,@rguid,40)

    Return Substr( Strconv(Left(rguid,76),6), 26,12)

  Endproc

 

  Procedure UserName

    Local lpszUserName,lpcchBuffer

    lpszUserName = Space(100)

    lpcchBuffer=100

    Return Iif( WNetGetUser(0,@lpszUserName,@lpcchBuffer)=0,;

      substr(lpszUserName,1,At(Chr(0),lpszUserName)-1),'' )

  Endproc

 

  Procedure ComputerName

    Local lcComputerName,lnBufSize

    Store Space(254) To lcComputerName

    lnBufSize = 254

    Return ;

      iif ( GetComputerName(@lcComputerName,@lnBufSize) # 0 ,;

      SUBSTR(m.lcComputerName,1,m.lnBufSize),'' )

  Endproc

Enddefine