在桌面上建立一个Internet快捷键

　2006-02-27 21:12:59　来源：WEB开发网　　　

核心提示：以下的代码可以在桌面上建立一个Internet快捷键。DimStrURLFileAsStringDimStrURLTargetAsStringDimFileNumAsIntegerStrURLFile="C:\Windows\Desktop\VB编程乐园.url"'桌面目录和标题StrURL

以下的代码可以在桌面上建立一个Internet快捷键。
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger

StrURLFile="C:\Windows\Desktop\VB编程乐园.url"'桌面目录和标题
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile

'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
PRint#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->