[sendbad100]

انا بصراحة

لم يسبق لي العمل بهذا الكود او ما يشبهه ولكن اليس من المنطقي تنفيذ الكود مره واحده فقط ولا يستحسن وضعه في لود بحيث يتفذ كل مره يشتغل الفورم

اطرح الموضوع للنقاش :- اين افضل مكان نضغ فيه الكود

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

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

الأخ العزيز عبد العزيز البسكري

هذا الكود أو بالأحرى هذا البرنامج تستعمله مرة واحدة من أجل تسجيل البرنامج المراد تشغيله مع اشتغال الويندوز ،

مثلا ضع البرنامج1 الذي تريد تشغيله مع الويندوز في مجلد من اختيارك  وضع معه هذا البرنامج 2 التنفيذي الذي تسجل به البرنامج الأول وحين تشغيل هذا البرنامج2 يقوم بتسجيل البرنامج 1 في السجل

بعد هذا  أنت لست بحاجة لهذا البرنامج2 يمكنك حذفه نهائيا مادام البرنامج 1 مسجل في السجل فكلما قمت بتشغيل الويندوز يقوم السجل بمناداة البرنامج 1 المسجل في السجل من مكانه فيشتغل

بعبارة أبسط البرنامج الذي قدم كوده الأستاذ عبد الله الصافي وظيفته فقط تسجيل البرنامج المراد تشغيله مع الويندوز وبعد ذلك لن تحتاجه إلا إذا أردت تسجيل برنامج آخر

أي أنك بحاجة إلى هذا البرنامج2 للتسجيل وتحتاج برنامجك1 الرئيسي الذي تريده أن يشتغل مع الويندوز فقط فبمجرد التسجيل يمكنك حذف البرنامج2



إذا كان هناك التباس أو عدم وضوح سوف أرسل لك مثال تطبيقي إذا أردت

تحياتي

[sendbad100]

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


هناك حلول اخرى

مثل   عمل هذه الفكرة اثناء تثبيت البرنامج في السيت اب

او جعل البرنامج نفسه ينفذ الكود  مره واحده ...  او مرة يشتغل فقط  

واعتقد يوجد افكار اخرى كمان

انا لم اطبق اياً  منها   صراحتا فقط   للنقاش للستفادة

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

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

بارك الله فيك أخي الكريم " جورج " على الشّرح و التّوضيح

أسأل الله العلي القدير أن يزيدها بموازين حسناتك و يرزقك من حيث لا تحتسب إن شاء الله

و لو تكرّمت بإرسال مثال تطبيقي حين يكون لديك الوقت الذي يسمح بذلك من باب زيادة الخير الخيريْن و زيادة الفهم فهميْن

أجدّد شكري و تحياتي لك أخي الكريم

---

(28-02-17, 10:21 PM)sendbad100 كتب : وعليكم السلام ورحمة الله وبركاته 


هناك حلول اخرى

مثل   عمل هذه الفكرة اثناء تثبيت البرنامج في السيت اب

او جعل البرنامج نفسه ينفذ الكود  مره واحده ...  او مرة يشتغل فقط  

واعتقد يوجد افكار اخرى كمان

انا لم اطبق اياً  منها   صراحتا فقط   للنقاش للستفادة

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

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

  TEST.rar (الحجم : 26.56 ك ب / التحميلات : 30)

السلام عليكم
نزولا عند رغبة أخي عبد العزيز البسكري
اعيد وضع الكود بعد إضافة text لإدخال اسم البرنامج المراد تشغيله مع تشغيل الويندوز

كما أدرجت مثالا عمليا
البرنامج المراد تسجيله هو  test
وبرنامجنا لتسجيل test هو registre

قم بتشغيل  Registre
أكتب في الأداة Text اسم البرنامج الذي سوف نشغله مع الويندوز وهو عبارة عن واجهة فيها شخصىة كرتونية للتأكد أن البرنامج
يشتغل أي أكتب Test  ثم الضغط على زر التسجيل
بعد ذلك أحذف البرنامج  Registre
أعد تشغيل النظام
انتظر حتى يشتغل البرنامج Test
بعد التجربة يمكنك الآن حذف المثال Test  وحذف اسمه من الريجستري
أتمنى أن يكون في هذا عونا
أما تطبيقات هذا الكود فأعتقد عديدة جدا وكل واحد يمكنه تخيل فيما يمكن أن يستعمله و على سبيل المثال:
يمكن إنجاز برنامج لمراقبة تشغيل الحاسوب كأن يسجل متى تم التشغيل ومدة التشغيل زغيرها
كما يمكنإنجاز برنامج لنسخ البيانات بمجرد إدخال الفلاش ديسك من أماكن محددة دون تدخل خارجي   ......



تحياتي القلبية
السلام عليكم

كود :

Private 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
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private 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

Private Sub Command1_Click()
Dim hregkey As Long
Dim subkey As String
Dim stringbuffer As String
Const HKEY_CURRENT_USER = &H80000001
Const KEY_WRITE = &H20006
Const REG_SZ = 1
subkey = "Software\Microsoft\Windows\CurrentVersion\Run"

retval = RegOpenKeyEx(HKEY_CURRENT_USER, subkey, 0, KEY_WRITE, hregkey)

stringbuffer = App.Path & "\" & Text1 & ".exe" & vbNullChar
retval = RegSetValueEx(hregkey, Text1, 0, REG_SZ, ByVal stringbuffer, Len(stringbuffer))
RegCloseKey hregkey
End Sub

[مساعدة]

السلام عليكم

اسمحوا لي بمشاركتم النقاش المطروح من أستاذنا sendbad100

فكرتي أن يتم تعيين فورم خاص بإعدادات البرنامج (مثل البرامج الكبير) وتسمى "خيارات" أو "Options"،
ومن ضمنها الخيارات ChecBox خاص ب
"تشغيل البرنامج تلقائياً عند بداية تشغيل الويندوز."
"Run program when Windows starts"

وهذه أحد الأمثلة



وأشكر أستاذنا على طرح فكرة النقاش المفيد.

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

أخي الكريم " جورج 190 "

بارك الله فيك و لك و جزاك خير الجزاء لتلبيه الطلب

أدعو الله أن يمنّ عليك بالصحّة و العافية و يرزقك من حيث لا تحتسب

كفيت و وفّيت ..سلمت و سلمت يداك
لكن المشكلة أنّ الملفيْن لم يشتغلا معي ..مع ظهور هذه الرّسالة :

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

ملاحظة :

فكرة أخي الكريم " مساعدة " تبدو حسب طبيعة عمل كل مشروع أنّها الأنسب و الأفضل لأنّها ستكون حسب كل واحد و رغبته لو يتكرّم أحد أساتذتنا الأكارم بتطبيقها على هذا المشروع

بارك الله فيكم و لكم مقدّمًا و مؤخّرا

[sendbad100]

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

شكرا لكم جميعا اتحفتونا

انا مع الاستاذ / مساعده في حالات كثيره كي تسمح للمستخدم ان يختار الانسب له.

انا اكره البرامج التي تعمل مع وندوز ودتئما ادخل اوقف عملها

لاني لا احتاجها كل مره اشغل الجهاز

ولكن في بعض الاحيان تحتاج البرنامج يعمل دائما سوا ظاهرا او مخفي

---

هذا يعني ايضا نحتاج كود يلغي عمل الكود السابق او يوقفه. في حال رغبنا او ىغب الستخدم بذلك

والله الموفق

---

اعتذر منكم كثيرا بسبب الاخطاء في الكتابة والاملاء فعادتي السيئة. بان اكتب بسرعة ولا اراجع او اصحح ماكتبت. تضعني احيانا كثيره في مواقف لا احسد عليها.

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

  qui êtes vous.rar (الحجم : 2.47 م ب / التحميلات : 29)

(01-03-17, 03:19 AM)عبد العزيز البسكري كتب :

أخي الكريم " جورج 190 "

بارك الله فيك و لك و جزاك خير الجزاء لتلبيه الطلب

أدعو الله أن يمنّ عليك بالصحّة و العافية و يرزقك من حيث لا تحتسب

كفيت و وفّيت ..سلمت و سلمت يداك
لكن المشكلة أنّ الملفيْن لم يشتغلا معي ..مع ظهور هذه الرّسالة :

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

ملاحظة :

فكرة أخي الكريم " مساعدة " تبدو حسب طبيعة عمل كل مشروع أنّها الأنسب و الأفضل لأنّها ستكون حسب كل واحد و رغبته لو يتكرّم أحد أساتذتنا الأكارم بتطبيقها على هذا المشروع

بارك الله فيكم و لكم مقدّمًا و مؤخّرا

السلام عليكم
مشكلة ملفات الارتباطالديناميكيdll يمكن حلها إما بإضافة هذه الملفات إلى system  أو system32 أوبتثبيت برنامج VB6 أو بتثبيت أحد البرامج المنجزة بواسطة vb6
لدي لعبة بسيطة قم بتثبيتها وسوف تحل المشكلة

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

السلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك عزيزي " جورج 190 " على صبرك معي  و شروحاتك المستفيضة
عسى الله أن يزيدها بموازين حسناتك ..سأقوم بتجربة لعبة " من أنتم ؟ " حين العودة للبيت ان شاء الله
أخي الكريم أنا مثبت بجهازي برنامج VB6 ..فهو البرنامج الذي أعشقه و من غير المعقول ألا يكون مثبت لدي
احتراماتي