1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
| * 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 |