[الوادي]

يعني أنت تقصد من البداية اختصار لملف البرنامج 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