تقييم الموضوع :
  • 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 م ب / التحميلات : 71)
تم الشكر بواسطة:
#6
سيدى الفاضل
ارفقت لسيادتكم صورة لما انا اريده


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


الملفات المرفقة
.rar   Aly Linker.rar (الحجم : 86.25 ك ب / التحميلات : 49)
تم الشكر بواسطة:
#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
تم ايجاد الحل المناسب
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد طريقه لمنح المستخدم صلاحيه انشاء مستخدم علي البرنامج بنفسه مرة واحدة فقط dametucorazon 3 48 17-06-18, 04:29 AM
آخر رد: elgokr
  هل يمكن اختصار هذا الكود blida02 6 112 29-05-18, 04:29 PM
آخر رد: blida02
  شرح انشاء تقارير atef_020 7 121 28-05-18, 02:30 PM
آخر رد: atef_020
  ما الحل فى هذه الرسالة اثناء الحفظ محمد ابوخليل 5 81 14-05-18, 12:42 AM
آخر رد: elgokr
  [سؤال] عايز اعرف ايه السبب وايه الحل؟ RaiseEvent الماجيك مسعد 6 116 11-05-18, 09:16 PM
آخر رد: الماجيك مسعد
  [VB.NET] (تم الحل)مساعدة في تغيير اسم حقل في جدول blida02 5 96 11-05-18, 06:05 PM
آخر رد: boudyonline
Exclamation [سؤال] ارجو الحل السريع Abdalrhman 1 75 29-04-18, 09:02 AM
آخر رد: سعود
  [VB.NET] تم الحل لكل المطلوب في قاعدة البيانات اسامه الهرماوي 2 160 02-04-18, 12:33 PM
آخر رد: ahmedfa71
  انشاء ملف نصي المتألق9 1 101 12-03-18, 02:23 AM
آخر رد: Adrees
  [VB.NET] انشاء برنامج مبيعات hadeel 1 173 06-03-18, 12:53 AM
آخر رد: mrnooo2000

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


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