تشخیص یوزر لاگ این از یوزر های سویچ یوزر شده

[amirjan]

هورااااااا !!! من شديدا مي خوام بدونم قضيه اش چيه !! :roll:

[Iron_Fist]

ايول
يكي بلاخره به اين پست توجه كرد اونم كي امير جان عزيز
من سعي كردم به ساده ترين شكلي كه ممكن بود و كد كمتري مي خواست درستش كنم.
بنابر اين براي سهولت كار تابعش رو نوشتم
هر وقت تابع خروجيش 1 باشه يعني تابع در يوزر فعال فراخواني شده كه كاربر توشه و اگر
خروجي صفر بود يعني تابع در يوزر غير فعال فراخواني شده

تقديم به همه ي دوستان :

کد:

Private Function IsMyUserActive() As Byte

Dim ActiveUserId As Long
Dim MyCurrentUserId As Long

ActiveUserId = WTSGetActiveConsoleSessionId
Call ProcessIdToSessionId(GetCurrentProcessId, MyCurrentUserId)
If ActiveUserId = MyCurrentUserId Then
IsMyUserActive = 1
Else
IsMyUserActive = 0
End If

End Function

اينم دكلريشن

کد:

Private Declare Function WTSGetActiveConsoleSessionId Lib "kernel32.dll" () As Long
Private Declare Function ProcessIdToSessionId Lib "kernel32.dll" (ByVal dwProcessId As Long, ByRef pSessionId As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long

[amirjan]

ايول ! خيلي صفا داد . به نظر من يه برنامه ساده بزن كه ملت استفاده كنن ...
واقعا كه جوينده يابندست ! :wink: آفرين

[Iron_Fist]

ايول ! خيلي صفا داد

نظر لطفت

به نظر من يه برنامه ساده بزن كه ملت استفاده كنن

باشه
من تصميم دارم توابع مفيدي كه درست مي كنم رو تحت يك مجموعه بدم تو سايت

واقعا كه جوينده يابندست ! آفرين

نكرتم دربست

[Iron_Fist]

بيا امير جان
گزاشتم رو سايت
http://www.iranvig.com/3096.html
:wink: