بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
لوسمحتوا أخواني وأخواتي الأعضاء خدمة بسيطة ،، وهي كيف أضيف برنامجي إلى قائمة startup
عن طريق الكود ،، وإذا ممكن كذلك عن طريق التحزيم !
وأرجوا منكم جواب شافي .
والسلام عليكم ورحمة الله وبركاته ،،
ولكم مني خالص الشكر ،،،
وعليكم السلام ورحمة الله وبركاته
Private Sub Form_Load()
Dim Obj As Object
Set Obj = CreateObject ("WScript.Shell")
Obj.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\ProgramName","ProgramPath","REG_SZ"
End Subإن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
أخي GHOST2010
أنا جربت هذا الكود ولكن ما نفع لما أعيد تشغيل الويندوز ما يشتغل البرنامج
على الرغم من أني كتبت اسم البرنامج ومساره في الكود اللي موضحه لي ،،
لكني طلبي هو كود لنقل برنامجي إلى قائمة startup
ولك مني جزيل الشكر على مساعدتك لي ،،
ان شاء الله الكود ده هيشتغل
dim mydna
mydna =app.path +"\"+app.exename + ".exe" 'نحدد مسار البرنامج
set regedit =createobject("wscript.shell")
regedit.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run",mydnaتم تعديل هذه المشاركة بواسطة matrrixboy في 6 أغسطس 2005 في 18:42
هذا الكود ينقصه اسم القيمة التى ستضاف الى الريجيسترى
اخى ail_fahad777 الكود الذى أدرجته يعمل جيداً فقط غير ProgramName الى اسم القيمة التى ستضاف فى الريجيسترى و ProgramPath الى مسار البرنامج وان شاء الله يعمل كما تريد :rolleyes:
إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…