ايران ويج

صفحه‌ها: 1 2 3

هورااااااا !!! [تصویر: 177.gif]

من شديدا مي خوام بدونم قضيه اش چيه !! :roll: [تصویر: 46.gif]

ايول
يكي بلاخره به اين پست توجه كرد اونم كي امير جان عزيز
من سعي كردم به ساده ترين شكلي كه ممكن بود و كد كمتري مي خواست درستش كنم.
بنابر اين براي سهولت كار تابعش رو نوشتم
هر وقت تابع خروجيش 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

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

نقل قول: ايول ! خيلي صفا داد

نظر لطفت

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

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

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

نكرتم دربست

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

صفحه‌ها: 1 2 3

amirjan

Iron_Fist

amirjan

Iron_Fist

Iron_Fist