+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : (تم الحل) Desktop Shortcut " انشاء اختصار" (/showthread.php?tid=4902)
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 02-10-12
السلام عليكم ورحمة الله وبركاته
كيف يمكن عمل اختصار Desktop Shortcut
لموقع صفحة انترنت حيث يتم ادخال عنوان الصفحة فى تكست بوكس
ويتم تخليق الاختصار على سطح المكتب
(تم الحل) Desktop Shortcut " انشاء اختصار" - m.sami.ak - 04-10-12
[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.Object, ByVal e As System.EventArgs) Handles 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]
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 04-10-12
اخى العزيز ابو سامى
اشكرك على تفاعلك
ولكن الكود السابق يقوم بعمل اختصار الى ملف موجود
زما انا اريده هو عمل اختصار لصفحة انترنت (url ) او صفحة داخلية
مثلا اريد ان انشاء اختصار لهذا المسار http://brn394srv/brn394
وليكن اسمة test
اتمنى ان تساعدنى
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 04-10-12
اخى العزيز ابو سامى
اشكرك على تفاعلك
ولكن الكود السابق يقوم بعمل اختصار الى ملف موجود
زما انا اريده هو عمل اختصار لصفحة انترنت (url ) او صفحة داخلية
مثلا اريد ان انشاء اختصار لهذا المسار http://brn394srv/brn394
وليكن اسمة test
اتمنى ان تساعدنى
(تم الحل) Desktop Shortcut " انشاء اختصار" - m.sami.ak - 04-10-12
بسم الله الرحمن الرحيم
اخي العزيز,,
ما انتبهت منيح على طلبك
لكن هي طلبك بمثال مرفق ...
تحياتي للجميع
ابــــو سامــي
اخي العزيز,,
ما انتبهت منيح على طلبك
لكن هي طلبك بمثال مرفق ...
تحياتي للجميع
ابــــو سامــي
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 05-10-12
سيدى الفاضل
ارفقت لسيادتكم صورة لما انا اريده
(تم الحل) Desktop Shortcut " انشاء اختصار" - Aly El-Haddad - 05-10-12
السلام عليكم..
هل يلبي طلبك المثال الذي بالمرفقات أخي؟
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 05-10-12
شكرا اخى على
للاسف لم يفلح مع فانا اريد الامتداد url
وجربت تغيرة ولم يفلح
مرفق لكم صورة لما اريد انشاء اختصار له
(تم الحل) Desktop Shortcut " انشاء اختصار" - barakascap - 06-10-12
الحمد لله تم الحل
كود :
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(تم الحل) Desktop Shortcut " انشاء اختصار" - m.sami.ak - 07-10-12
تم ايجاد الحل المناسب