<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>