首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

在网页生成网站的桌面快捷方式的控件

2012-03-16 
求助在网页生成网站的桌面快捷方式的控件就是点击一个按钮,会要求用户安装控件。安装之后会在桌面生成该网

求助在网页生成网站的桌面快捷方式的控件
就是点击一个按钮,会要求用户安装控件。
安装之后会在桌面生成该网站的的桌面快捷方式。
可以用javascript调用该方法,能接收链接地址和icon的。
求各位高手帮忙!!

[解决办法]
你是不是想说你要用VB6写一个exe程度+activex控件.
如你是想让网页中用js能访问桌面的快捷方式,这样似乎一般受安全限制,是不允许的啊.要不一般createobject("shell.application")的途径就可以了
[解决办法]
猜想:
"点击一个按钮,会要求用户安装控件":
我猜想lz是想制作一个用户控件,在网页上点击一个按钮,加载另一个网页,而这个网页包含用户控件,系统会自动安装此控件,在安装的同时生成桌面快捷方式
如果是这样,需要分3步:
1. 控件需要打包成Internet应用包,有.cab文件包,加载到网页页面里
2. 用api建立桌面快捷方式,或者利用DDE建立
Private Declare Function fCreateShellLink Lib "STKIT432.DLL" (ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String) As Long 
Sub Command1_Click()
Dim lReturn As Long
'添加到桌面
lReturn = fCreateShellLink("..\..\Desktop", "Shortcut to Calculator", "c:\windows\calc.exe", "")
'添加到程序组
lReturn = fCreateShellLink("", "Shortcut to Calculator", "c:\windows\calc.exe", "")
'添加到启动组
lReturn = fCreateShellLink("\Startup", "Shortcut to Calculator", "c:\windows\calc.exe", "")
End Sub 
3.在控件的初始化事件里加上2的代码,加载控件的同时,自动生成桌面快捷方式图标
[解决办法]
用打包工具就可以
回复内容太短了!
[解决办法]
你的需求类似这个:
http://www.j2soft.cn/article/2008/1026/article_25.html

热点排行