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


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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 135 05-12-16, 03:09 PM
آخر رد: thevirus
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 305 25-11-16, 11:57 AM
آخر رد: العزابي
  هل يمكن انشاء صفحة متصفح Mohamed20 2 133 20-11-16, 12:38 AM
آخر رد: myalsailamy
  [سؤال] طلب لمثال عن انشاء حماية للبرنامج في vb.net 2012 مع فكرة بحاجة للتطبيق M@GED 12 319 05-11-16, 10:49 AM
آخر رد: أبو عمر
  مشكلة في هذا الكود كيف الحل abumuhannadzym 3 94 18-10-16, 12:45 AM
آخر رد: abumuhannadzym
  [VB.NET] طلب انشاء جملة update في مشروعي Codack 7 205 11-10-16, 04:41 PM
آخر رد: Codack
  [VB.NET] معرفة اسم الكاميرا المتصله بالحاسوب (Cam Device)(تم الحل ) ILI 1 103 04-08-16, 06:54 PM
آخر رد: ILI
  مشكلة في اسم اختصار البرنامج في سطح المكتب طالب 22 1 125 01-08-16, 09:56 PM
آخر رد: طالب 22
  [سؤال] السلام عليكم هل استطيع الحصول على كود في الفيجول بيزك 6 استطيع كتابة الحل المركب للمع hafezshaban 0 97 13-07-16, 02:21 AM
آخر رد: hafezshaban
  انشاء wordlist تماما كاداة crunch فى توزيعة kali linux ali ahmed 1997 2 113 06-07-16, 11:49 PM
آخر رد: الوادي

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


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