IDC资讯中心
以下的代码可以在桌面上建立一个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->
