#Include <WinAPI.au3>
FileInstall("ai.ico",@TempDir&"\ai.ico")
FileInstall("qi.ico",@TempDir&"\qi.ico")
FileInstall("mo.ico",@TempDir&"\mo.ico")
FileInstall("fa.ico",@TempDir&"\fa.ico")
Dim $Guid[4]
$Guid[0]=_CreateGuid()
$Guid[1]=_CreateGuid()
$Guid[2]=_CreateGuid()
$Guid[3]=_CreateGuid()
$url = 'http://www.aiqmofa.cn/?webownerId=18131&childid=' & StringRegExpReplace(@ScriptName,'[^\d]', '')
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "Default Visible", "REG_SZ", "Yes" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "ButtonText", "REG_SZ", "爱请魔法" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "CLSID", "REG_SZ", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "Icon", "REG_SZ", @TempDir&"\ai.ico" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "HotIcon", "REG_SZ", @TempDir&"\ai.ico")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "IeakPolicy", "REG_SZ", "" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[0], "Exec", "REG_SZ", $url)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "Default Visible", "REG_SZ", "Yes" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "ButtonText", "REG_SZ", "爱请魔法" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "CLSID", "REG_SZ", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "Icon", "REG_SZ", @TempDir&"\qi.ico" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "HotIcon", "REG_SZ", @TempDir&"\qi.ico")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "IeakPolicy", "REG_SZ", "" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[1], "Exec", "REG_SZ", $url)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "Default Visible", "REG_SZ", "Yes" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "ButtonText", "REG_SZ", "爱请魔法" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "CLSID", "REG_SZ", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "Icon", "REG_SZ", @TempDir&"\mo.ico" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "HotIcon", "REG_SZ", @TempDir&"\mo.ico")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "IeakPolicy", "REG_SZ", "" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[2], "Exec", "REG_SZ", $url)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "Default Visible", "REG_SZ", "Yes" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "ButtonText", "REG_SZ", "爱请魔法" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "CLSID", "REG_SZ", "{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "Icon", "REG_SZ", @TempDir&"\fa.ico" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "HotIcon", "REG_SZ", @TempDir&"\fa.ico")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "IeakPolicy", "REG_SZ", "" )
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Extensions"&$Guid[3], "Exec", "REG_SZ", $url)
Func _CreateGuid()
Local $Guid = DllStructCreate($tagGUID)
$Result = DllCall("OLE32.DLL", "dword", "CoCreateGuid", "ptr", DllStructGetPtr($Guid))
$Result = _WinAPI_StringFromGUID(DllStructGetPtr($Guid))
Return $Result
EndFunc
GUID 随机生成,但是也分‘大小’。我的问题是,在标准按钮栏创建4个按钮。每个按钮字不同。组合在一起是‘爱情魔法’这样的顺序。