主题:  我如何让这段程序一打开网页就运行呢?在线等

米田
职务：普通成员
等级：2
金币：-1.0
发贴：296
注册：2003/7/22 10:58:39
#12004/3/17 11:27:13
<script language="vbscript">
　　AddButton.vbs(将下述代码保存为AddButton.vbs文件)
　　Dim WSHShell
　　Set WSHShell=WScript.CreateObject("WScript.Shell"
　　KeyName_11="ButtonText"
　　KeyData_12="南方情缘"
　　KeyName_21="CLSID"
　　KeyData_22="{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}"
　　KeyName_31="Default Visible"
　　KeyData_32="Yes"
　　KeyName_41="Exec"
　　KeyData_42="http://www.mmtt.cn"
　　KeyName_51="HotIcon"
　　KeyData_52="D:\21mt\logo.ico"
　　KeyName_61="Icon"
　　KeyData_62="D:\21mt\logo.ico"
　　KeyName_71="MenuText"
　　KeyData_72="南方情缘"
　　RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{00000000-0000-0000-0000-000000000011}\"DataType="REG_SZ"
　　Function valueAdd(KeyName,KeyData)
　　WSHShell.RegWrite RegPath&KeyName,KeyData,DataType
　　End Function
　　Call valueAdd(KeyName_11,KeyData_12)
　　Call valueAdd(KeyName_21,KeyData_22)
　　Call valueAdd(KeyName_31,KeyData_32)
　　Call valueAdd(KeyName_41,KeyData_42)
　　Call valueAdd(KeyName_51,KeyData_52)
　　Call valueAdd(KeyName_61,KeyData_62)
　　Call valueAdd(KeyName_71,KeyData_72)
　　Dim confirm
　　confirm=MsgBox("自制按钮已成功添加，需要重新启动系统才能生效，要重新启动吗?",4,"请确认!"
　　If confirm=6 Then
　　MsgBox("自制按钮已成功设置,请重新启动系统!"
　　Else
　　WScrip t.Quit()
　　End If
</script>



=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
#22004/3/18 9:24:41
你这段程序本来就是一打开网页就运行的啊，如果你的网页中的确有这段代码，最好放置到head之中



米田
职务：普通成员
等级：2
金币：-1.0
发贴：296
注册：2003/7/22 10:58:39
#32004/3/18 12:52:07
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
<script language="vbscript">
　　AddButton.vbs
　　Dim WSHShell
　　Set WSHShell=WScript.CreateObject("WScript.Shell")
　　KeyName_11="ButtonText"
　　KeyData_12="我的按钮"
　　KeyName_21="CLSID"
　　KeyData_22="{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}"
　　KeyName_31="Default Visible"
　　KeyData_32="Yes"
　　KeyName_41="Exec"
　　KeyData_42="c:\my.exe"
　　KeyName_51="HotIcon"
　　KeyData_52="D:\21mt\logo.ico"
　　KeyName_61="Icon"
　　KeyData_62="D:\21mt\logo.ico"
　　RegPath="HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Extensions\{00000000-0000-0001-0005-596BAEDD1289}\"DataType="REG_SZ"
　　Function valueAdd(KeyName,KeyData)
　　WSHShell.RegWrite RegPath&KeyName,KeyData,DataType
　　End Function
　　Call valueAdd(KeyName_11,KeyData_12)
　　Call valueAdd(KeyName_21,KeyData_22)
　　Call valueAdd(KeyName_31,KeyData_32)
　　Call valueAdd(KeyName_41,KeyData_42)
　　Call valueAdd(KeyName_51,KeyData_52)
　　Call valueAdd(KeyName_61,KeyData_62)
　　Dim confirm
　　confirm=MsgBox("自设按钮已成功添加，需要重新启动系统才能生效，要重新启动吗?",4,"请确认!")
　　If confirm=6 Then
　　MsgBox("自设按钮已成功设置,请重新启动系统!")
　　Else
　　WScrip t.Quit()
　　End If
</script>
</head>

<body>

</body>

</html>

=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
#42004/3/18 13:05:49
可以运行，不过你的代码使用了ScriptHost，并且有客户端的文件和注册标操作，在安装补丁或一些杀毒软件的计算机上执行会出错



米田
职务：普通成员
等级：2
金币：-1.0
发贴：296
注册：2003/7/22 10:58:39
#52004/3/18 13:11:57
我在我本机测试都没有一点反应啊!我打开注册表看也没有把值插入注册表啊?为何?



=ridincal=
职务：管理员
等级：7
金币：20.0
发贴：5886
注册：2004/1/13 11:47:04
#62004/3/18 16:07:20
应该是出错了，设置一下IE:

图片如下：