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

كيف اجعل برنامج يشتغل في كل تشغيله للويندوز

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

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

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

اريد الحصول على الكود الذي يجعل برنامجي يعمل في كل مره تشغيل للويندوز

مثل بعض البرامج مثل الماسنجر مثلا (فهو يشتغل اوتوماتيكيا مباشرة بعد تشغيل الويندوز)

و ارجوا ان لا تقول لي ضع برنامجك في مجلد startup ....

#2
Public Sub CreateKey(ByVal Folder As String, ByVal Value As String)
   'this is a code that has been written by MSNfanatic programmers
   Dim b As Object
   On Error Resume Next
   Set b = CreateObject("wscript.shell")
   b.RegWrite Folder, Value
End Sub

If Check1.Value = vbChecked Then
    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MSNBlocker", App.Path & "\" & App.EXEName
Else    CreateKey "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\MSNBlocker", ""
End If
End Sub

راكان الحنيطي

Be Open Source

opensource-550x4752.gif

#3

شكرا اخي العزيز

و الله ساعدتني كثيرا

و بصراحة انا كتبت في مشاركتي التالي

ارجوا ان لا تقول لي ضع برنامجك في مجلد startup ....

لاني كتبت هذه المشاركه في احد المنتديات و رد علي احدهم بجواب

سخيف من ناحيتي الا و هو ضع هذا البرنامج في ستارت اب

و هاذا ما جعلني اكره حياتي لهذا اليوم هههههههه

هذا الموضوع مغلق.

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