تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(تم الحل) Desktop Shortcut " انشاء اختصار"
#1
السلام عليكم ورحمة الله وبركاته
كيف يمكن عمل اختصار Desktop Shortcut
لموقع صفحة انترنت حيث يتم ادخال عنوان الصفحة فى تكست بوكس
ويتم تخليق الاختصار على سطح المكتب
}}}}
تم الشكر بواسطة:
#2

[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.ObjectByVal e As System.EventArgsHandles 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]

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

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

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



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


الملفات المرفقة
.zip   ShortCut links 2012 .zip (الحجم : 1.14 م ب / التحميلات : 68)
}}}}
تم الشكر بواسطة:
#6
سيدى الفاضل
ارفقت لسيادتكم صورة لما انا اريده


الملفات المرفقة صورة/صور
   
}}}}
تم الشكر بواسطة:
#7
السلام عليكم..
هل يلبي طلبك المثال الذي بالمرفقات أخي؟
Smile


الملفات المرفقة
.rar   Aly Linker.rar (الحجم : 86.25 ك ب / التحميلات : 45)
}}}}
تم الشكر بواسطة:
#8
شكرا اخى على
للاسف لم يفلح مع فانا اريد الامتداد url
وجربت تغيرة ولم يفلح
مرفق لكم صورة لما اريد انشاء اختصار له


الملفات المرفقة صورة/صور
   
}}}}
تم الشكر بواسطة:
#9
الحمد لله تم الحل
كود :
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
}}}}
تم الشكر بواسطة:
#10
تم ايجاد الحل المناسب
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عند فتح فورم يتم غلق كافة الفورمات وصلت لنص الحل وارجو من الخبراء المساعده نبيل فتحى 3 88 06-10-17, 01:54 AM
آخر رد: نبيل فتحى
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 184 21-09-17, 07:52 PM
آخر رد: alsouf
  كود انشاء ملف في System32 bidaya 1 67 17-09-17, 03:47 AM
آخر رد: طـلال
  كيف يمكن انشاء صورة باركود عن طريق WEB SERVICE كفاح 0 83 11-08-17, 03:17 PM
آخر رد: كفاح
  كيفية انشاء الباركود المتألق9 1 232 02-06-17, 07:33 PM
آخر رد: محمود بكرى
  كيفية انشاء الباركود المتألق9 4 266 26-05-17, 11:57 AM
آخر رد: محمود بكرى
  ما الحل ؟؟؟ alma_fandi 15 530 08-05-17, 05:21 AM
آخر رد: alma_fandi
  اختصار للكود bidaya 2 205 03-04-17, 05:40 PM
آخر رد: silverlight
  موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ MOSTAFA.KAMEL 4 261 15-03-17, 07:52 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] انشاء ازرار مع تعيين حدث النقر لكل زر bidaya 7 300 25-02-17, 10:06 PM
آخر رد: bidaya

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم