منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - (تم الحل) Desktop Shortcut " انشاء اختصار"

السلام عليكم ورحمة الله وبركاته
كيف يمكن عمل اختصار Desktop Shortcut
لموقع صفحة انترنت حيث يتم ادخال عنوان الصفحة فى تكست بوكس
ويتم تخليق الاختصار على سطح المكتب

[COLOR="#800080"]افتح مشروع جديد وقم بمسح الكود كاملاً من فورم1 والصق الكود التالي
اضف مكتبة من ال referance>>Com
'اختر منها windows script host object model

[/COLOR]
انظر الى الكود التالي

PHP كود :

Imports IWshRuntimeLibrary
Public Class Form1
    Dim path As String ="ضع هنا مسار ملف البرنامج متبوعاً ب .exe"
    Dim thing As New WshShell
    Dim shortcut As IWshShortcut

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If IO.File.Exists(path) = False And IO.Directory.Exists(path) = False Then
            MsgBox("path is not correct")
            Exit Sub
        End If
        shortcut = CType(thing.CreateShortcut(path & ".lnk"), IWshShortcut)
        shortcut.TargetPath = path
        shortcut.Save()
    End Sub


End Class 

[COLOR="#008000"]
تحياتي لك
ابو سامي[/COLOR]

اخى العزيز ابو سامى
اشكرك على تفاعلك
ولكن الكود السابق يقوم بعمل اختصار الى ملف موجود
زما انا اريده هو عمل اختصار لصفحة انترنت (url ) او صفحة داخلية
مثلا اريد ان انشاء اختصار لهذا المسار http://brn394srv/brn394
وليكن اسمة test
اتمنى ان تساعدنى

بسم الله الرحمن الرحيم

اخي العزيز,,
ما انتبهت منيح على طلبك

لكن هي طلبك بمثال مرفق ...

تحياتي للجميع
ابــــو سامــي

سيدى الفاضل
ارفقت لسيادتكم صورة لما انا اريده

السلام عليكم..
هل يلبي طلبك المثال الذي بالمرفقات أخي؟ Smile

شكرا اخى على
للاسف لم يفلح مع فانا اريد الامتداد url
وجربت تغيرة ولم يفلح
مرفق لكم صورة لما اريد انشاء اختصار له

الحمد لله تم الحل

كود :

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

        Dim DesktopDirectory As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory)

        Using ShortcutWriter As New StreamWriter(DesktopDirectory & "\" & TextBox1.Text & ".url")

            ShortcutWriter.WriteLine("[InternetShortcut]")

            ShortcutWriter.WriteLine("URL=" & TextBox2.Text)

            ShortcutWriter.Flush()

        End Using

    End Sub

تم ايجاد الحل المناسب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

barakascap

m.sami.ak

barakascap

barakascap

m.sami.ak

barakascap

Aly El-Haddad

barakascap

barakascap

m.sami.ak