الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف اجعل برنامجي يعمل مع بدء التشغيل

بدأه ابو مرام في 2 فبراير 2010 · 8 رد · 3,093 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اخواني الاعزاء

شاكر لكم مساعدتكم سلفاً انا لدي برنامج بالفجول بيسك 6

فهل استطيع ان اجعل هذا البرنامج يعمل مع بدء تشغيل وندوز أم لا واذا كان ممكن ارجو ان تتفضلو علينا بالشرح ولكم جزيل الشكر والامتنان

#2

اجل يمكنك هذا من خلال تسجيل مفتاح في الـ Registry لملف الـ EXE للعمل عند بدأ التشغيل كبعض البرامج الاخرى , والكود التالي يقوم بهذا :

' ** Startup code **  (  كود تسجيل البرنامج للعمل عند بدأ النظام  )  :
'   add 2 command : ( command1 , command2 )

'   in form :

'Function for RegWrite
Private Function RegWrite(Key1, SValue As String)
    Set WSHShell = CreateObject("WScript.Shell")
    WSHShell.RegWrite Key1, SValue
End Function


'Button to create the Startup Key
' زر تسجيل البرنامج للعمل عند بدأ التشغيل
Private Sub Command1_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\App.EXEName", App.Path & "\" & App.EXEName
End Sub


'Button to delete the Startup Key
' زر الغاء تسجيل البرنامج للعمل عند بدأ التشغيل
Private Sub Command2_Click()
    RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\App.EXEName", ""

End Sub


'\=============================================================
'    ***  ملاحظة :

'  يمكن تسجيل اي برنامج للعمل عند بدأ التشغيل بالكود التالي  :

'  RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\book.exe", "C:\book.exe"

'    * من السطر السابق : قم بإستبدال :-
'  1)   ( book.exe    ) بأسم البرنامج المراد تشغيله عند بدأ النظام
'  2)   ( C:\book.exe ) بمساره

'\=============================================================

ولكن استعمل الكود عندما تقوم بعمل ملف الـ EXE وبعد تسجيل المفتاح إذا تغير مكان البرنامج فلن يعمل وتحتاج لتسجيل المفتاح ثانياً

بالتوفيق ,,,

1

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

اخي محمد

والله انا خلفتي في هذا الموضوع صفر

اذا كان بالامكان تساعدني بالشرح بالخطوات او الصور اكون لك شاكر

الله لايحرمك الاجر

#4

كما ذكر الأخ محمد يمكنك استخدام كائن من النوع WScript.Shell وهذه أسهل الطرق

هذا هو الكود مختصرا

Dim WSHShell As Object

Private Sub Form_Load()
Set WSHShell = CreateObject("WScript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe", "REG_SZ"
End Sub

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#5

بعد اذن اخواني

اخي الكريم

هذه الطرق برمجية

وهناك طريقة سهلة جدا

اعمل shortcut لبرنامجك وضعه في:

start

programs

startup

ضع ال shortcut هنا وسيعمل البرنامج تلقائي ان شاء الله

بالتوفيق

:)

1

محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!

عليك بالاقتراب من خالقك

عليك بصلاة الاستخارة

وعليك بالصدقة

داوو مرضاكم بالصدقة

ما نقص مال من صدقة

تصدقو ولو بشق تمرة

#6
Magnom كتب:

بعد اذن اخواني

اخي الكريم

هذه الطرق برمجية

طبعا هذه الطرق برمجية لأننا فى منتدى إسمه "الفريق العربى للبرمجة" :mad:

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#7

:lol:

اعصابك اخي الكريم :)

اعلم ذلك

ولكن ممكن سؤاله يكون دون النظر الى الطرق البرمجيه

اعذرني حبيبي

محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!

عليك بالاقتراب من خالقك

عليك بصلاة الاستخارة

وعليك بالصدقة

داوو مرضاكم بالصدقة

ما نقص مال من صدقة

تصدقو ولو بشق تمرة

#8

الاخ الحبيب

محمد مصطفى غريب

الاخ الحبيب

GHOST2010

الاخ الحبيب

Magnom

اسأل الله بمنه وكرمه ان يوفقكم اجمعين وان يجعلكم صالحين مصلحين وان يبارك في جهودكم وصحتكم واموالكم وابنائكم والا يحرمكم اجر التعليم 0كما اسأله جل شأنه ان يرفع قدركم ويعلي مراتبكم وان يوفقكم لعمل الخيرات 0

تم تعديل هذه المشاركة بواسطة ابو مرام في 4 فبراير 2010 في 11:39

#9

بارك الله فيك

وجزاك عنا وعن المؤمنين كل خير

محتار!!! مش عارف شوتعمل؟؟! عندك مشاكل ونفسك تنحل؟؟!

عليك بالاقتراب من خالقك

عليك بصلاة الاستخارة

وعليك بالصدقة

داوو مرضاكم بالصدقة

ما نقص مال من صدقة

تصدقو ولو بشق تمرة

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…