كود startup موقاعد يظبط معاي

يا جماعة قلت ميت مره اللي عنده مشكله يرفق مثال :angry:

أخوي الكود موجود بالمنتدى بس موقاعد يضبط معاي شلون أرفق مثال

أنا لمكا حطيته في تطبيق فاضي ظبط بس لما حطيته في برنامج ماظبط

شلون برفق البرنامج وو اهوا موجاهز ؟

وينكم ساعدوني تكفون

ماذا تريد ان تفعل بالضبط !!!!

اطرح سؤالا محددا لو امكن حتى نتمكن من مساعدتك

السلام عليكم

يا اخوان أنا أرفقت كود الــ startup

راح تلقون بالكود ألي ينحط بالكلاس للمستخدم الحالي راح تلقونRegistry.CurrentUser

يطلع لي تحتها خط متعرج

هذا الكلام لما أحطها في برنامجي أما لما احط الكود في تطبيق جديد ما يطلع لي خط

________________________________________________________________________.doc

بسيطة انظر المثال المرفق وسأرفق نسختين واحدة لـ 2005 و أخرى لـ 2003

وهذا سرد كامل لمحتويات الملف الخاص بالـ 2005 و لن يختلف معك إذا كنت تعمل على الـ 2003

' اولا نضع الاستيراد المناسب في بداية الملف
Imports Microsoft.Win32

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' لوضع برنامج في بدء التشغيل
        RunatStartup(True, "اسم برنامجك هنا")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ' لإزالة برنامجك من بدء التشغيل
        RunatStartup(False, "اسم برنامجك هنا")
    End Sub

    ' الاجراء الذي سيقوم بوضع برنامجك في بدء التشغيل
    Public Sub RunatStartup(ByVal PutAtStartup As Boolean, ByVal ProgramName As String)
        Dim StartupPath As String = "Software\Microsoft\Windows\CurrentVersion\Run"
        ' إذا أردت للمستخدم الحالي استخدم السطر
        Dim MyKey As RegistryKey = Registry.CurrentUser.OpenSubKey(StartupPath, True)
        ' إذا أردت لجميع المستخدمين استخدم السطر
        'Dim MyKey As RegistryKey = Registry.LocalMachine.OpenSubKey(StartupPath, True)


        If PutAtStartup Then
            MyKey.SetValue(ProgramName, Application.ExecutablePath)
        Else
            Try
                MyKey.DeleteValue(ProgramName, False)
            Catch ex As Exception
                ex = Nothing
            End Try
        End If

    End Sub

End Class

TestStartup_Vb2005.zip

TestStartup_vb2003.zip

أخ q8y-digital

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