在桌面上建立一个Internet快捷键
以下的代码可以在桌面上建立一个Internet快捷键。
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger
StrURLFile="C:WindowsDesktopVB编程乐园.url"'桌面目录和标题
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile
'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
Print#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->
DimStrURLFileAsString
DimStrURLTargetAsString
DimFileNumAsInteger
StrURLFile="C:WindowsDesktopVB编程乐园.url"'桌面目录和标题
StrURLTarget="http://www.vbeden.com"'地址
FileNum=FreeFile
'WritetheInternetShortcutfile
OpenStrURLFileForOutputAsFileNum
Print#FileNum,"[InternetShortcut]"
Print#FileNum,"URL="&StrURLTarget
CloseFileNum->
- 上一篇：用Winsock制作一套聊天室和对话系统
- 下一篇：Whois示例程序
精彩图集
精彩文章