ثبت اطلاعات كاربر (يوزر نيم و آي پي و نام كامپيوتر) [بایگانی]

peymantrojan

شنبه 23 خرداد 1394, 15:45 عصر

با سلام
چطور ميتونم اطلاعات كاربر ثبت كننده از قبيل نام كامپيوتر و آي پي و يوزر نيم رو در هر ركورد ثبت كنم؟
يه فايل داشتم ولي نتونستم كدها رو استخراج كنم ازش چون فقط همين سه تا رو نياز دارم طوري كه در هر ركوردي كه ثبت ميشه اطلاعات كاربر ثبت كننده هم همراهش ثبت شه
ممنون ميشم كمكم كنيد

peymantrojan

شنبه 23 خرداد 1394, 18:44 عصر

اين فايل تو انجمن بود اما كدها يكم تو در تو هستش متوجه نشدم
فقط ميخوام كاربر وقتي فيلدارو پر ميكنه تو هر ركورد نام يوزر و اي پي و نام كامپيوتر هم سيو شه اتوماتيك
132214

peymantrojan

شنبه 23 خرداد 1394, 18:50 عصر

يه چيز به اين سادگي كه سه تا فيلد آخر اتوماتيك نوشته شه
يه خير پيدا شه كمك كنه:متعجب:
132215

peymantrojan

دوشنبه 25 خرداد 1394, 11:56 صبح

آقا هیچکی نیست به ما کمک کنه؟!

شاگرد آرام

دوشنبه 25 خرداد 1394, 13:12 عصر

سلام
توی رویداد befor insert فرمتون مقادیر فیلدهای مورد نظرتون رو با تایع environ ست کنید

Environ("username")
Environ("computername")

saeed1234n

دوشنبه 25 خرداد 1394, 20:46 عصر

با سلام

این یوزر نیم کامپیوتر

peymantrojan

سه شنبه 26 خرداد 1394, 07:12 صبح

سلام
توی رویداد befor insert فرمتون مقادیر فیلدهای مورد نظرتون رو با تایع environ ست کنید

Environ("username")
Environ("computername")

ميشه بيشتر توضيح بديد؟
مثال دوستمون براي يوزر نيم خيلي راحت بود الان لنگ آي پي و كامپيوتر نيم هستم

شاگرد آرام

سه شنبه 26 خرداد 1394, 12:45 عصر

برای کامپیوتر نیم که نوشتم
برای آی پی هم بوسیله wmi راحت میشه
از تابعی که توی لینک زیر اومده استفاده کنید
http://stackoverflow.com/questions/828496/how-to-retrieve-this-computers-ip-address

peymantrojan

سه شنبه 26 خرداد 1394, 13:38 عصر

مشكل آي پي با راهنماييتون حل شد ممنونم
ولي كامپيوتر نيم رو متوجه نشدم
ممنونم ميشم كمكم كنيد
(بسيار سپاسگذارم)

شاگرد آرام

سه شنبه 26 خرداد 1394, 13:41 عصر

Environ("computername")

اگه نام کامپیوتر رو تحت شبکه می خواهید

environ("USERDOMAIN")

peymantrojan

سه شنبه 26 خرداد 1394, 13:45 عصر

متوجه نميشم كجا بايد بزنم:ناراحت:

peymantrojan

سه شنبه 26 خرداد 1394, 13:54 عصر

نمشه يه فايل كوچيك واسم درست كنيد با دو تا فيلد؟
كارم لنگشه اسير كرده مارو اين يه فيلد

شاگرد آرام

سه شنبه 26 خرداد 1394, 13:54 عصر

اگه میخواین تو دیتابیس فرمتون ذخیره بشه
تو رویداد befor insert مقدار فیلدتون رو ست کنید

Private Sub Form_BeforeInsert(Cancel As Integer)
fld1 = Environ("computername")
End Sub

توجه داشته باشید fld1 همون فیلدیه که باید نام کامپیوتر داخلش ذخیره شه

peymantrojan

سه شنبه 26 خرداد 1394, 14:02 عصر

كار نكرد:گریه:
اينم فايلش (text9 مربوط به چيزي كه عرض كرديد)
132319

peymantrojan

سه شنبه 26 خرداد 1394, 14:14 عصر

دوست عزيز دستت درد نكنه مشكلم حل شد تو رويداد on load گذاشتم
بسيار سپاسگذارم

شاگرد آرام

سه شنبه 26 خرداد 1394, 14:16 عصر

دوست عزیز دکورد سورس فرمتون خالیه . جدولی بهش لینک نشده که شما بتونین از بیفور اینزرت استفاده کنید
کدی که بهتون دادم توی کلیک دکمه بنویسید و امتحان کنید

peymantrojan

جمعه 29 خرداد 1394, 13:41 عصر

راهي هست كه بشه در قسمت default value فيلد اين دو تابع رو جا داد؟ چون تو وي بي اين دو مقدار رو قرار ميدم اگه اطلاعات ديگه وارد نشه بخوايم برنامه رو ببنديم بازم مي خواد سيو كنه اطلاعاتو! در صورتي كه هيچي وارد نشده
راهي هست دوستان ؟

شاگرد آرام

جمعه 29 خرداد 1394, 13:48 عصر

سلام اگر در رویداد BeforeInsert فرم مقدار رو ست کنید . تا کاربر اطلاعاتی رو وارد نکنه فیلدهای مورد نظر مقدار دهی نمی شن

saeed1234n

جمعه 29 خرداد 1394, 14:06 عصر

با سلام

دوست عزیز سوالی نیز بنده داشتم

چطور میشه شماره سریال سخت افزار بخصوص هارد یا قطعات دیگر را بدست آورد ؟

بسیارممنون می شم چون می خوام از اون برای جلوگیری از استفاده برنامه توسط سایرین استفاده کنم

شاگرد آرام

جمعه 29 خرداد 1394, 15:29 عصر

سلام کاش این موضوع رو مستقل بیان می کردین

برای بدست آوردن مشخصات سیستم بهترین را استفاده از wmi هستش که بوسیله زبان ها ی مختلف از جمله ویژوال بیسیک و حتی وی بی اسکریپت قابل دسترسیه

کد زیر رو امتحان کنید

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", , 48)
For Each objItem In colItems
Debug.Print "Model: " & objItem.Model
Debug.Print "SerialNumber: " & objItem.SerialNumber
Next

دقت کنید که ممکنه یک سیستم چند تا هارد داشته باشه

saeed1234n

جمعه 29 خرداد 1394, 18:28 عصر

با سلام

جناب شاگرد آرام می شه لطفا در مورد wmi و کدتون یکم توضیح دهید

در صورت امکان منبعی هم معرفی بفرمایید

شاگرد آرام

جمعه 29 خرداد 1394, 23:15 عصر

wmi یعنی ابزار مدیریت ویندوز Windows Management Instrumentation که با زبانهای اسکریپتی و زبان گزارشی sql میشه ازش در ویندوز استفاده کرد
توی قسمت run ویندوز cmd رو تایپ کنید و سپس wmic رو تایپ کنید و سپس ?/ رو تایپ کنید لیست منابعی که رو می تونید استفاده کنید و ببینید براتون میاره
اینم یه منبع انگلیسی که برای شروع بد نیست
http://it-ebooks.info/book/2481/

محمد مهدي

چهارشنبه 06 آبان 1394, 09:55 صبح

اين فايل تو انجمن بود اما كدها يكم تو در تو هستش متوجه نشدم
فقط ميخوام كاربر وقتي فيلدارو پر ميكنه تو هر ركورد نام يوزر و اي پي و نام كامپيوتر هم سيو شه اتوماتيك
132214
با سلام
اگر اکسس تحت شبکه باشد آیا کاربرانی که در حال حاضر بر روی برنامه کار میکنند را نیز میتوان بدست آورد؟ یا بعبارتی کاربران آنلاین قابل مشاهده باشند

mohsen1393

چهارشنبه 06 آبان 1394, 18:55 عصر

با سلام
اگر اکسس تحت شبکه باشد آیا کاربرانی که در حال حاضر بر روی برنامه کار میکنند را نیز میتوان بدست آورد؟ یا بعبارتی کاربران آنلاین قابل مشاهده باشند

سلام بله باید یه جدول درست کنید که کاربران هنگام ورود با کلیک کردن روی دکمه ورود خودشون رو ثبت کنن.

محمد مهدي

چهارشنبه 06 آبان 1394, 22:25 عصر

سلام بله باید یه جدول درست کنید که کاربران هنگام ورود با کلیک کردن روی دکمه ورود خودشون رو ثبت کنن.
با سلام میشه بیشتر توضیح بدید یا نمونه بذارید