پست امرو همونطور كه قبلآ گفته بودم در مورد نوشتن فيل ميانبر هست

فايل هاي ميانبر دو صورت هستند

 HomePageفايل ميانبر وب:كه به يك آدرس اينترنتي اشاره ميكنه.

دراكثر برنامه ها براي صفحات وغيره ازش استفاده مي شه.

كه ايكون اون رو سيستم به صورت اتوماتيك مقداردهي ميكنه(آيكون فايل اچ تي ام ال)كه

 (Http:// - File:/// - MaileTo: -...)مي شود در اين نوع آيكون از آدرس دهي اينتر نتي استفاده كرد

 البته از نظر ساختار فايل آيكون اين نوع آيكون هيچ فرقي با ايكون يك فايل روي هارد نداره ساختار فايل آيكون(ميانبر) به صورت زير هست

 [InternetShortcut] URL= "مسير ايجاد ميانبر" IconFile="مسير آيكون ميانبر" Iconindex="انديس آيكون" هست".URL"

پسوند فيل ميانبر پارامتر آخر در مورد يك گرفتن آيكون يك فايل اجرايي استفاده مي شود-مثال

 Print #2," [InternetShortcut]"+VbCrlf+"URL=C:\1.url"+vbcrlf+"IconFile=d:\1.Exe"+vbcrlf+"Iconindex=0"

 دستور بالا يك فايل ميانبر در درايو سي ايجاد مي كند كه آيكونش از برنامه اي دردرايو دي است حال يك مثال كامل و كاربردي از فايل ميانبر برايتان مي نويسم

 Private Sub Form_Load()

CreateShortCut "c:\NasserHomePage", "c:\Windows\Explorer.exe", "0", Http://NasserVb.blogfa.com

 End Sub

 Sub CreateShortCut(Path As String, icon As String, iconindex As Long, SurceFile As String)

Dim intFreeFile As Integer

 Path = Path & ".url"

 intFreeFile = FreeFile

 Open Path For Output As intFreeFile

Print #intFreeFile, "[InternetShortcut]"

 Print #intFreeFile, "URL=" & SurceFile

Print #intFreeFile, "IconFile=" & icon

Print #intFreeFile, "Iconindex=" & iconindex

 Close intFreeFile

 End Sub

ايجاد مي شود"NasserHomePage"در برنامه بالا يك ميانبر در درايو سي به نام

اشاره مي كندHttp://NasserVb.blogfa.comآيكون اين فايل از آيكون ماي كامپيوتر بوده و به آدرس

 -لذت زندگي به پولهايي نيست كه داريم به پولهايي كه خرج مي كنيم

لينك مقاله |10:39 یکشنبه 22 بهمن1385 - توسط ناصر نيازي