تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان

محلی عمومی برای انتقال دانش برنامه نویسی

تیم نرم افزاری پایگاه سایبری استان خوزستان کانال رسمی تلگرام پایگاه سایبری استان خوزستان

جهت بیان هرگونه سوال و یا دیدگاه می توانید از کاربری تلگرام زیر استفاده نمایید
Telegram: @saiber89

آپ پیسی نام گروه نرم افزاری ماست که قصد داریم در خدمت جامعه خود با رویکرد انتقال دانش برنامه نویسی و رفع مشکلات شما در ضمینه های برنامه نویسی باشیم ./

آخرین نظرات
نویسندگان

سوال مطرح شده در نرم افزار تلگرام در تاریخ 1397/1/4 ساعت 03:45 توسط آمنه همدانی:

آقای مهندس یا آقایان مهندس ســــــــلام، سال نو و عید رو بهت یا بهتون تبریک میگم :))

از اونجایی که مخاطب همیشگی مطالب شما هستم، زیاد دیدم شمارو احسانی صدا زدند (فضولم خیلی)

آقا مهندس یسوال خیلی اساسی و مهم ذهنم درگیر کرده + البته دو تا سواله

1-چطور میشه توی وی بی دات نت vb.netخودمون لیست همه کاربران رو بدست بیارم؟ مثلا سیستم من دوتا حساب کاربری USER NAME داره میخوام همشون رو بدست بیارم.

2- چطور میشه سطح دستری یا ACCESS PERMISSION یک فایل یا پوشه رو خودم بصورت دستی تنظیم کنم؟ مثلا میخوام یه پوشه فقط توسط کاربری داداشم (امینمون) باز بشه ;))  یا اون نتونه به یسری از فایل های من دسترسی پیدا کنه گرفتی که؟


سوال دوم زمانی به ذهن خطور کرد که نرم افزار امنیتی شمارو روی سیستم برای اولین بار نصب کردم، اولش خیلی ترسیدما، ولی الان شده جز لاینفک فعالیت کامپیوتریم، خیلی باحاله فقط ... راستی سوال سوم :)))

3-کی قراره نرم افزار جدیدتون رو که قرار بود ماه محرم منتشر کنید رو منتشر کنید، فکر کنم آپدیت جدید نرم افزار خلیج فارستون بودا

دستتون درد نکنه / منتظر جوابتون هستما آقای احســـــانی


پاسخ کارشناس: با سلام و عرض تبریک سال نو

این حقیر خداوند منان را سپاسگزارم ازینکه منت نهاد و ارتباط خوبی بین این حقیر و سایر کاربران محترم برقرار نمود.

درخصوص سوال اول:

Dim _RegistryKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList")

 For Each _KeyName As String In _RegistryKey.GetSubKeyNames()

            Using SubKey As RegistryKey = _RegistryKey.OpenSubKey(_KeyName)

                Dim _Users As String = DirectCast(SubKey.GetValue("ProfileImagePath"), String)

                Dim _Username As String = System.IO.Path.GetFileNameWithoutExtension(_Users)

                ListView1.Items.Add(_Username)

            End Using

        Next


پاسخ سوال دوم:

برای فولد - پوشه


        Dim FolderPath As String = "D:\test\"

        Dim UserAccount As String = "programmer"

        Dim FolderInfo As IO.DirectoryInfo = New IO.DirectoryInfo(FolderPath)

        Dim FolderAcl As New DirectorySecurity

        FolderAcl = FolderInfo.GetAccessControl()

        FolderAcl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, PropagationFlags.None, AccessControlType.Deny))

        FolderInfo.SetAccessControl(FolderAcl)

و برای فایل


Dim FolderPath As String = "D:\ipconfig.txt"
        Dim UserAccount As String = "programmer"
        Dim fileinfo As IO.FileInfo = New IO.FileInfo(FolderPath)
        Dim fileacl As New FileSecurity
        fileacl = fileinfo.GetAccessControl
        fileacl.AddAccessRule(New FileSystemAccessRule(UserAccount, FileSystemRights.FullControl, AccessControlType.Deny))
        fileinfo.SetAccessControl(fileacl)




پاسخ سوال سوم:

نرم افزار جدید با نام گل نرگس ان شاالله تا اواخر ماه جاری بحول و قوه اللهی منتشر خواهد شد، در این نسخه بسیاری از ایراد های نسخه قبل (خلیج فارس) برطرف و ایده پردازی بسیار خوبی در خصوص آن شده است، یکی از ویژگی های منحصر به فرد این نرم افزار این است که در راستای بیانات مقام معظم رهبری در خصوص پاسداشت زبان فارسی است که تماما فارسی است.

سعی نموده ایم تا بهتری هارا تقدیم شما نماییم.

التماس دعا


پاسخگویی رایگان به سوالات کاربران

انتشار در واتساپ

*****

انتشار در تلگرام


/h2>

  • افسر سایبری

نظرات  (۰)

هیچ نظری هنوز ثبت نشده است

ارسال نظر

کاربران بیان میتوانند بدون نیاز به تأیید، نظرات خود را ارسال کنند.
اگر قبلا در بیان ثبت نام کرده اید لطفا ابتدا وارد شوید، در غیر این صورت می توانید ثبت نام کنید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی