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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البار كود المنتج لا يقراء من جهاز الباركود [تم الحل] Rabeea Qbaha 0 54 07-12-18, 03:36 AM
آخر رد: Rabeea Qbaha
Heart انشاء تقرير كريستال ريبورت ahmadpal 2 87 03-12-18, 05:54 PM
آخر رد: ahmadpal
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 4 905 03-12-18, 06:27 AM
آخر رد: mhs
  التابع الفرعي لا ينفذ الا مرة واحدة ما الحل؟ samira20 0 37 02-12-18, 08:49 AM
آخر رد: samira20
  [VB.NET] عند استدعاء استعلام اكسيس تعطى قيمة مختلفة على vb.net فما الحل ؟ omarmiga 2 101 25-10-18, 10:03 PM
آخر رد: ahmedmansour
  انشاء قاعدة بيانات العيدروس 14 447 23-09-18, 07:46 PM
آخر رد: العيدروس
  كيفية التعامل عند حفظ سطر بقيمة فارغة وظهور رسالة خطأ؟ [ تم الحل ] Hazem1 2 149 23-09-18, 11:23 AM
آخر رد: elgokr
  مشكلة انشاء ملف بصيغة معينه engmedomech 3 129 22-09-18, 04:12 PM
آخر رد: boudyonline
  استفسار عن حماية او كسر البرامج مجموعه اسئله قد يكون الحل ارجو المساعده thementalist 1 247 15-09-18, 08:21 PM
آخر رد: عبدالله الدوسري
  [سؤال] ما هي طريقة انشاء قاعدة sql بواسطة script برمجيا عن طريق vb.net princelovelorn 12 536 01-09-18, 03:52 PM
آخر رد: elgokr

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


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