[img=166x166] [/img]

(14-07-16, 09:18 PM)silverlight كتب : هل انت تحاول تشغيل البرنامج الخاص بقواعد البيانات من خلال استخدام برنامج تنفيذي أخر؟
لو كانت تلك الحالة التي لديك إذن سيكون سهل جدا أن تضيف اي شئ لإسم البرنامج الخاص ب الداتا بيز بشرط ان تحذفه قبل تشغيلة ثم تعيد تسمية البرنامج مرة اخري قبل اغلاق البرنامج الرئيسي

(15-07-16, 06:24 AM)الكاتب كتب : كم ذكر الاخ حريف هاته الطريقه الانسب مسار واحد في مجلد بالسي تم متغير واحد عام على كامل المشروع وتبقى المشكله أن جملة الاتصال تكون مكشوفه والحل بتشفير الجمله ثم فكها داخل المشروع قبل اي عملية اتصال وليس فك تشفيرها في الملف ذاته (:

(14-07-16, 04:32 PM)الوادي كتب : بصراحة مستغرب، ما الفائدة وضع بيانات اسم السيرفر واسم قاعدة البيانات في حقل target
فكيف راح تستطيع قراءته إذا ما كان اسم السيرفر واسم قاعدة البيانات معروف في البرنامج من البداية!

(15-07-16, 09:56 AM)الوادي كتب : يعني أنت تقصد من البداية اختصار لملف البرنامج Shortcus مع إضافات في الخاصية Target



هذا الكود لزر يقوم بانشاء اختصار للبرنامج كالذي بالصورة مع توضيح أماكن البيانات

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    Using openFileDialog1 As New OpenFileDialog
        openFileDialog1.Title = "حدد البرنامج الأساسي"
        openFileDialog1.Filter = "Programs (*.exe)|*.exe"

        If openFileDialog1.ShowDialog = MsgBoxResult.Ok Then

            Dim serverName As String
            serverName = InputBox("أدخل اسم السيرفر")
            If serverName.Trim = "" Then
                MsgBox("لم تدخل اسم السيرفر ويجب البدء من جديد")
                Return
            End If

            Dim databaseName As String
            databaseName = InputBox("أدخل اسم قاعدة البيانات")
            If serverName.Trim = "" Then
                MsgBox("لم تدخل اسم قاعدة البيانات ويجب البدء من جديد")
                Return
            End If


            Using saveFileDialog1 As New SaveFileDialog

                saveFileDialog1.Title = "إكتب إسما للإختصار  والذي سيشاهده المستخدم"
                saveFileDialog1.Filter = "Shortcuts (*.lnk)|*.lnk"

                If saveFileDialog1.ShowDialog = MsgBoxResult.Ok Then

                    Dim shl As Object = CreateObject("WScript.Shell")

                    ' اسم لملف الاختصار '
                    Dim lnk As Object = shl.CreateShortcut(saveFileDialog1.FileName)

                    ' Target: اسم ومسار ملف البرنامج مع المعلمات '
                    lnk.TargetPath = openFileDialog1.FileName
                    lnk.Arguments = "server=" & serverName & " " & "db=" & databaseName

                    ' Start In: مسار ملف البرنامج '
                    lnk.WorkingDirectory = IO.Path.GetDirectoryName(openFileDialog1.FileName)

                    '  اسم الملف بدون المسار مع فهرس ايقونة البرنامج والتي عادة تكون صفر '
                    lnk.IconLocation = IO.Path.GetFileName(openFileDialog1.FileName) & ",0"

                    lnk.Save()

                End If

            End Using

        End If

    End Using

End Sub 


طريقة عمل الكود عند تنفيذه:
أولا يطلب منك تحدد ملف البرنامج exe
ثانئا يطلب منك تكتب اسم السيرفر
ثالثا يطلب منك تكتب اسم قاعدة البيانات
أخيرا يطلب منك تكتب اسم لهذا الاختصار والذي سيشاهده المستخدم (وفي العادة ستحدد سطح المكتب مع كتابة الاسم)


يمكن التعديل على الكود بحيث بدلا من سؤالك في كل قيمة يصبح يأخد البيانات من مربعات نص TextBox