首页 > > 程序设计 > VB >

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

2008-02-23 06:57:00来源：互联网阅读 ()

以下的代码可以在桌面上建立一个 Internet 快捷键。
Dim StrURLFile As String
Dim StrURLTarget As String
Dim FileNum As Integer

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

'Write the Internet Shortcut file
Open StrURLFile For Output As FileNum
Print #FileNum, "[InternetShortcut]"
Print #FileNum, "URL=" & StrURLTarget
Close FileNum

上一篇：用Winsock制作一套聊天室和对话系统
下一篇：在程序中打开 Internet 拨号连接窗口

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有