[عبد العزيز البسكري]

بارك الله فيك و لك أخي جورج لتلبية الطلب

أشكرك جزيل الشكر على نبلك و كرمك

كملاحظة عند التجربة لم أتمكن من فتح الملف يظهر لي هذا الخطأ لا أعلم سببه

إحتراماتي

[مساعدة]

حاولت تحويل الكود الى vb6 لعله يعمل، بالنسبة إلى VB.NET فهو يعمل

اتمنى التصحيح والتجربة واخبارنا بالنتيجة


في تحميل الفورم لقراءة السجل والتعليم على الأداة CheckBox إذا البرنامج مفعل في السجل

كود :

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Dim WScript As Object, key As String, value As String
   WScript = CreateObject("wscript.shell")
   key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & Application.ProductName
   On Error Resume Next
   value = WScript.RegRead(key)
   If Err.Number = 0 Then
       CheckBox1.Checked = True
   Else
       CheckBox1.Checked = False
   End If
   On Error GoTo 0
End Sub

هذا حدث التعليم على الأداة CheckBox للتفعيل أو التعطيل في السجل

كود :

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
   Dim wscript As Object, key As String, value As String
   WScript = CreateObject("wscript.shell")
   key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName
   value = App.Path & "\" & App.EXEName & ".exe"
   If CheckBox1.Checked Then
       WScript.RegWrite(key, value)
   Else
       WScript.RegDelete(key)
   End If
End Sub

---

الكود يحتاج صلاحية مسؤول

[الخير طهوري]

  Ajoutsup.rar (الحجم : 13.49 ك ب / التحميلات : 30)
السلام عليكم

الأخ العزيز عبد العزيز تأكد أن Module de classe محمل ضمن


صفحة الفورم (إذا لم يكن محملا فأضفه)
أضيف هنا الملف التنفيذي

أخي الحبيب مساعدة سوف أحاول التعديل على الكود في وقت لاحق إن شاء الله متى سنحت لي الفرصة
نحياتي

[عبد العزيز البسكري]

أخي جورج كيف أحمل الموديل و من أين أضيفه لو سمحت ..لم أجده بالمشروع !!؟؟

[الخير طهوري]

(12-03-17, 04:11 AM)عبد العزيز البسكري كتب :

أخي جورج كيف أحمل الموديل و من أين أضيفه لو سمحت ..لم أجده بالمشروع !!؟؟

اتبع المسار التالي:
  projet----->Ajouter un module de classe----->Existant 
تجده في نفس المجلد حيث يوجد البرنامج
إذا لم تجده ها أنذا أحمله لك في المرفقات
بالتوفيق

[sendbad100]

السلام عليكم ورحمة الله وبركاته


رغم اني اتابع المنتدى باستمرار فاتني متابعتكم في هذا الموضوع


شكراً لكم اخواني الاستاذ/ عبدالعزيز ووالاستاذ / جورج الله يعطيكم الف عافية ما قصرتم

واخص الاستاذ / مساعدة على ما يبذله من جهود كبيره جدا في المنتدى باختلاف اقسامه

الله يعطية العافية ويزيده صحةوعلماً... ويكتب له الاجر على كل ما يقدمه .

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أرجو المعذرة أخي الكريم " جورج  " عن التأخر بالرد لأنّي بالواقع فكّرت أوّلاً بمراجعة الموضوع و المحاولة فيه ثم أخبرك بنتيجة محاولاتي

للأسف يا غالي لم أتمكّن من ترتيب الملف كلّه على بعضه خاصّة مع MODULE DE CLASSE و توابعه التي حيّرتني

لو أمكن عزيزي لمّا يكون لديك متّسع من الوقت و تسمح ظروفك أن تجهّز لي ملف يحتوي على خلاصة المحاولات و لو بعد شهر حسب ما تسمح به ظروفك

بارك الله فيك و لك و جزاك خير الجزاء مقدّمًا

فائق الاحترامات

[الخير طهوري]

  supprimer2.rar (الحجم : 19.74 ك ب / التحميلات : 27)
السلام عليكم

نزل الملف المرفق
شغل الملف السابق startup حتى يتم تسجيل الملف test الصورة في الريجيستر
الأن شغل البرنامج supprimer2 واختر    HKEY_CURRENT_USER
فيظهر في التكست الكبيرة  مسار الملف test اضغط عليه لتحديده
وأخيرا اضغط على الزر " حذف قيمة أو مفتاح من السجل" ثم أعد تشغيل  البرنامج وكرر نفس الخطوات سوف تلاحظ أن الرابط قد اختفى من السجل.
لقد أضفت الموديل إلى المشروع وسوف تشاهده مع الفورم فوق صفحة الخصائص وتجد هذا الموديل في نفس المجلد وبإذن الله سوف يشتغل
لأي استفسار أنا تحت أمركم
تحياتي القلبية
ودعواتكم بظهر الغيب

[الخير طهوري]

أين أنت يا عبد العزيز؟

هل تم استيعاب الموضوع أم مازال فيه إشكال؟

[عبد العزيز البسكري]

(14-03-17, 11:22 PM)جورج190 كتب : أين أنت يا عبد العزيز؟

هل تم استيعاب الموضوع أم مازال فيه إشكال؟

السّلام عليكم و رحمة الله و بركاته
أنا معك على طول الخط أخي الغالي و صديقي الحبيب " جورج 190 " .. و أتابع باهتمام و بإلمام كل المواضيع
أشتغل على وينداوز 8 منذ أكثر من سنتين .. و لا يمكنني تغييره ولو بوينداوز 1000
فقط مشروعي الصغير الخاص يشتغل على وينداوز 8 تمام التّمام و لله الحمد و الشّكر
نقلت المشروع كملف تنفيذي لجهاز آخر به وينداوز 7 .. فيعلق البرنامج بأوّل فورم SPLASH و لا يستمر بالاشتغال أبدًا
قمت منذ البارحة بتحميل وينداوز 7 لتجربة الاشتغال على الملف بجهازي و محاولة إكتشاف الخطأ عن قرب فاكتشفت أنّ هذا الوينداوز 7 ..WINDOWS 7 ULTIMATE SP1 لم أستطع به إضافة مكتبة Common Control 2.6.0 و بذلك أصبح ال Progressbar و Statusbar أمنيتي الوحيدة في رؤيتهما و قلت ربما هما السبب في عدم إشتغال البرنامج
حكيت لك قصة معاناتي هذين اليومين .. و تسطيب هذا الوينداوز و حذف الآخر .. و وصول التحميل ل 80 أو 90 بالمئة و ينقطع النت أو التيّار .. و ما شابه ذلك من المطبّات
عزيزي يا غالي حكيت لك فقط لكي تعلم أنّي خارج التغطية لأنّي تقريبا لم أستقر على تسطيب أي وينداوز أشتغل عليه و ارتّب عليه أموري و لذلك لم أتمكن من الرّد و المشاركة بموضوعك
فائق الإحترامات