السلام عليكم ورحمة الله وبركاته وبعد:
اخواني الأعزاء لي سؤالين أرجو أن لا يكون فيهما صعوبة وهما:
السؤال الأول:
كيف أجعل برنامجي يعمل مع بداية التشغيل؟
السؤال الثاني:
كيف أمنع المستخدم من استخدام مفاتيح الوظائف الموجودة في لوحة المفاتيح، وما يهمني هو مفتاح ويندوز الذي يقوم بفتح قائمة ابدأ التي يوجد بها قائمة البرامج؟
أشكر تجاوبكم معي مقدماً حتى وإن لم أجد الجواب
أخي العزيز وفقك الله
أولاً: أقدر فيك هذا الشعور الطيب والجميل.
ثانياً: أنا لست من الذين لا يسلم المسلمون من أذاهم، ولكنني قمت بتصميم برنامج لحماية جهازي وأردت أن يعمل هذا البرنامج مع بداية التشغيل، حتى لا يتمكن أحد من الدخول على الجهاز إلا بمعرفة الرقم السري فقط وإلا فإن الجهاز سوف يقوم بإغلاق نفسه، وما ينقصني هو أن يعمل هذا البرنامج مع بداية التشغيل فقط.
فهل ستمنحني الكود يا أخي العزبز بارك الله فيك؟
اقسم بالله العظيم اننى لن استخدم هذا الكود فى اى عمل تخريبي يضر المسلمين
والله على ما اقول شهيد
اولا ضع هذا الكود فى حدث التحميل لبرنامجك:
On Error Resume Next
Dim hregkey As Long
Dim secattr As SECURITY_ATTRIBUTES
Dim neworused As Long
Dim stringbuffer As String
Dim slength As Long
Dim retval As Long
subkey = "SoftwareMicrosoftWindowsCurrentversionrun"
secattr.nLength = Len(secattr)
secattr.lpSecurityDescriptor = 0
secattr.bInheritHandle = True
retval = RegCreateKeyEx(HKEY_LOCAL_MACHINE, subkey, 0, "", 0, KEY_WRITE, secattr, hregkey, neworused)
If retval <> 0 Then
Debug.Print "Error opening or creating registry key ---aborting"
End
End If
stringbuffer = App.Path & "" & App.EXEName & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, Trim("Display"), 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
retval = RegCloseKey(hregkey)
ثم افتح موديول جديد وضع فية هذا الكود:
Public Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegCreateKeyEx Lib "advapi32.dll" Alias "RegCreateKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal Reserved As Long, ByVal lpClass As String, ByVal dwOptions As Long, ByVal samDesired As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, phkResult As Long, lpdwDisposition As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long ' Note that if you declare the lpData parameter as String, you must pass it By Value.
Public Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Public Const REG_SZ = 1
Public Const KEY_WRITE = &H20006
Public Const KEY_READ = &H20019
Public Const HKEY_LOCAL_MACHINE = &H80000002
تحياتى,,,
وَقُل رَّبِّ زِدْنِي عِلْماً
أخي العزيز بارك الله فيك
أولاً: أقسم لك بأنني لن أستخدم هذا البرنامج في أي عمل تخريبي يضر بأخواني المسلمين.
ثانياً: أشكر تعاونك السريع جداً معي، وفقك الله وجزاك عني كل خير
اخوي arafa
السلام عليكم
انا بعمل برنامج مثل الأخ azersalem لحامية الجهاز
لكن لما البرنامج يفتح مع الويندوز ويطلب الباسورد ممكن اي واحد يتجاهل البرنامج ويفتح اي حاجة عادي
انا عايز الكود الي يمنع المستخدم من استخدام الكمبيوتر الا بعد ادخال الباسورد وانهاء البرنامج
وجزاء الله خيرا
اعتقد انك تستطيع ان تعمل كلمة سر لجهازك من داخل السيت اب بتاع الجهاز
او لو كان الجهاز مشترك تستطيع الدخول على Log Off من قائمة Start
ولك تحياتى
وَقُل رَّبِّ زِدْنِي عِلْماً
مرحبا يا إخوان..
هناك طريقة أخرى و تعتبر عندي أسهل لجعل البرنامج يعمل عند تشغيل الجهاز،
و هي استخدام برنامج تنصيب مثل: Setup Generator Pro و ذلك بوضع علامة (صح) أمام الخيار الذي يجعل البرنامج يعمل في Start Up للجهاز.
أما بالنسبة للجهاز الذي فيه كلمة مرور و لكن عند عدم إدخال كلمة السر و اختيار إلغاء الأمر لا يتغير من الأمر شيئا.. أقترح على السائل أن يغير إعدادات التخصيص و ذلك بتخصيص قائمة إبدأ و سطح المكتب و المستندات..أو أن يركب برنامج خاص لجعل الجهاز لا يعمل عند عدم إدخال كلمة السر مثل:
Password Protection System Plus
أتمنى أن يكون كلامي مفيد!
هذا الموضوع مغلق.