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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود انشاء نسخة احتياطية محمد بن عطية 1 131 21-02-24, 09:59 PM
آخر رد: atefkhalf2004
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  ما هو اختصار هذه الاكواد justforit 4 450 22-01-24, 03:10 PM
آخر رد: salamandal
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  مشكلة فى انشاء تقرير خالد كامل1 4 220 04-01-24, 10:04 PM
آخر رد: خالد كامل1
  انشاء واجهات برنامج شؤون الموظفين والرواتب شمسـ لا تغيب 5 12,847 27-09-23, 10:05 PM
آخر رد: melad2002
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  سؤال عن طريقة انشاء شجرة عائلة ابو انس 2 447 10-07-23, 09:58 PM
آخر رد: ابو انس
  لماذا يتم انشاء العديد من كائنات الاتصال ابو محمد محمد محمد 12 964 27-04-23, 01:54 PM
آخر رد: ابو محمد محمد محمد

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


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