当前位置:首页 » 程序代码 » 正文

VB编程:在桌面上为一个网址建立一个快捷方式(.url)

有时,我们为了推广自己的网址,需要在在桌面上生成一个指向网址的快捷方式。
用编程的方式来生成网址快捷方式到桌面并不难,第一是用建立一个函数,此函数的功能就是生成一个网站的URL快捷方式。

这个函数的代码如下:
Public Sub MakeUrl(sFile As String, Url As String, Optional IcoIndex As Long = 0)
    Open sFile For Output As #1
    Print #1, "[InternetShortCut]"
    Print #1, "Url=" & Url
    Print #1, "IconFile=" & App.Path & "\abc.ico"   '这里是生成快捷方式的图标,要事先准备
    Print #1, "IconIndex = " & IcoIndex
    Close #1     
End Sub

第二,我们要得到电脑桌面的的地址。这个用API的方式得到,先在窗体模块建立代码:
Private Declare Function SHGetSpecialFolderLocation Lib "Shell32" (ByVal hWndOwner As Long, ByVal nFolder As Integer, ppidl As Long) As Long
Private Declare Function SHGetPathFromIDList Lib "Shell32" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal szPath As String) As Long
Const MAX_LEN = 200
Const DESKTOP = &H0&

然后,在窗体的LOAD代码中输入:
Private Sub Form_Load()
    Dim sTmp As String * MAX_LEN
    Dim nLength As Long
    Dim pidl As Long
   
    Dim strdz As String  '电脑桌面的地址
   
        SHGetSpecialFolderLocation 0, DESKTOP, pidl
        SHGetPathFromIDList pidl, sTmp
        strdz = Left(sTmp, InStr(sTmp, Chr(0)) - 1)
        If Right(strdz, 1) <> "\" Then strdz = strdz + "\"

    MakeUrl strdz & "我的网址.url", "http://hao.360.cn/?src=lm&ls=n1e16759f90", 0 ’在桌面生成快捷方式
End Sub

先为以上的VB源码生成EXE,然后,将准备好的图标,命名为abc.ico,并放在同一目录里,然后运行程序,应该会在桌面上生成名叫“我的网址”这么一个快捷方式。

注意:如果成功生成快捷方法,但图标却是一页空白纸,有两种可能,一是你要准备一个图标放在此程序的同一目录里,二是,如果图标已经准备好,位置也对,但生成的快捷方式却是一页空白纸的图标,这说明你准备的图标有问题,请换一个图标再试。

来源:济亨网

本文链接:http://wb98.com/post/16.html

VB代码  API  
    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号