جعل البرنامج يعمل مع بدأ تشغل النظام

بسم الله ماشئ الله

إه الحلاوه دي 4 مشهدين ولا رد

معنى ده إن موضوع زي ده تافة ومحدش يبصله طيب

إلي الساده النبغاء إذا سمعتوني أصلا (إذا سمحتما تعطفوا علي المسكين وجوبوا علي السؤال التافة وده إذا عرفتوا ينبغاء)

وشكرا للتجاوب

أخي الكريم ضع في حدث تحميل الفورم الكود التالي:-

FileCopy (App.Path & "\program.exe"), ("C:\Documents and Settings\Administrator\Start Menu\Programs\Startup\program.exe")

حيثAdministrator: أسم الحساب

حيث program: إسم برنامجك

أخي العزيز شكرا إنك سألت فيا شكرا جزيلا ولك مني كل التقدير والأحترام

ولكن هذا الكود يخص دوال من أمثال دوال التعامل مع الملفات مثل kill - filecopy -filelen

هناك طريقة أخري تتعامل مع الريجستر وهذا هو الكود

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

Private Sub Command1_Click()
	RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\notepad.exe", " C:\WINDOWS\NOTEPAD.EXE"
End Sub

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

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

لوعندك معلومة تفدني بيها أكون شاكر لك

وشكرا تاني مره عشان أنت الوحيد العبرتني شكرا

توجد 12 طريقة...

مذكورة في مواضيع سابقة، الطرق الاكثر شهرة مذكورة في اكثر من 12 موضوع

استخدم زر البحث

الأخ الفاضل ...

راجع: تشغيل البرنامج كـ System Service

شكراً

الشكر والتقدير والأحترام لكل من المشرفين شكرا أفعلا مزنوق ولا تأخذوني شده أعصاب لاأكثر أكرر شكري

كويس ان المشرفين هما الى جاوبوا

يا ريت بقى ميحصلش ده تانى

أسف والحق عليا أنا مشعارف إه إلي حصل في دماغي يظهر إني بنسى نفسي سعات

إ

حريف برمجة كتب:

كويس ان المشرفين هما الى جاوبوا

يا ريت بقى ميحصلش ده تانى

و الله احنا مش شغالين عند حضرتك

احترم نفسك حتى لا تجد نفسك مطروداً من المنتدى

أنا فعلا أستاهل الطرد بس أنا أسف أسف

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

هذا الكود هو عباره عن تشغيل برنامجك مع بدء التشغيل فى الnormal وال save mode ايضا حيث لا يمكن حذفه من الريجسترى الا عن طريق الدوس وهذه مستنبعده جدا او صعبه اتمنى ان اكون افدتك

الكود:

Dim R As Object
   Set R = CreateObject("WScript.Shell")

   Const Key = "HKLM\Software\Microsoft" _
		   + "\Windows NT\CurrentVersion\Winlogon"

   R.RegWrite Key, 1, "REG_SZ"
   R.RegWrite Key + "\Shell", "Explorer.exe " & App.Path & "\" & yourappname & "yourappname.exe"

   Set R = Nothing

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

معذره اخى هل تقصد حذفه من على الدوس ام ماذا

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

شكرا لك اخى

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

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

لا قد اعمل برنامج مرفق معه عداد للنسخة التجريبيه احدد فيه عدد الايام ... فلا اريد المستخدم ان يوقف عمل البرنامج

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