Pois é, eu achei que fosse simples, porém exige um pouco de conhecimento técnico, não se trata apenas de um icone para os favoritos, o que na verdade é um pouco de XML.
Neste site, você pode realizar o envio (clicando no botão Convert the source data) da imagem e obter o código criptografado em 64 bits que o Google precisa.
Para gerar um script básico do Google Toolbar, você precisa desta estrutura:
Fica a sugestão, e aproveitem e adicionem o gToolbar da Revista Café.
<?xml version="1.0"?>
<custombuttons xmlns="http://toolbar.google.com/custombuttons/">
<button>
<search charset="iso-8859-1">Se o seu site utiliza um mecanismo de busca, coloque a URL aqui, caso contrário remova esta linha</search>
<site locale="pt-br">Endereço do site</site>
<title>Titulo do Site</title>
<feed refresh-interval="900">Se o seu site utiliza RSS, coloque a URL aqui, caso contrário remova esta linha</feed>
<description>Descrição do site</description>
<icon>CÓDIGO BINÁRIO GERADO PELO SITE
</icon>
</button>
</custombuttons>
"
exit function
end if
Set c = oChart.Constants
oChart.Border.Color = c.chColorNone
Redim categories(UBOUND(RSDADOS,2)), Vals(UBOUND(RSDADOS,2))
' críe um array que represente os valores da primeira série.
FOR I=0 TO UBOUND(RSDADOS,2)
Vals(I) = RSDADOS(1,I)
NEXT
' gráfico de coluna com as duas séries e quatro categorias.
' críe um array que represente as categorias, as categorias serão as mesmas para as duas séries.
FOR I=0 TO UBOUND(RSDADOS,2)
legenda=RSDADOS(0,I)
categories(I) = legenda&" : Total("&Vals(I)&")"
NEXT
With oChart
' adicionando um objeto do gráfico.
.Charts.Add
' adicionando o tipo do gráfico.
select case cInt(char_type)
case 0
.Charts(0).Type = oChart.Constants.chChartTypePie
case 1
.Charts(0).Type = oChart.Constants.chChartTypePie3d
case 2
.Charts(0).Type = oChart.Constants.chChartTypeColumnClustered
case 3
.Charts(0).Type = oChart.Constants.chChartTypeColumn3d
case 4
.Charts(0).Type = oChart.Constants.chChartTypeArea
case 5
.Charts(0).Type = oChart.Constants.chChartTypeBarClustered
case 6
.Charts(0).Type = oChart.Constants.chChartTypeBar3D
case 7
.Charts(0).Type = oChart.Constants.chChartTypeArea3D
case 8
.Charts(0).Type = oChart.Constants.chChartTypeLine
case 9
.Charts(0).Type = oChart.Constants.chChartTypeLineMarkers
end select
' adicionando a primeira série ao gráfico.
.Charts(0).SeriesCollection.Add
' ajustando o subtítulo da série (o texto da legenda).
.Charts(0).SeriesCollection(0).Caption = titulo_eixo
' adicionando as categorias e os valores da primeira série.
.Charts(0).SeriesCollection(0).SetData c.chDimCategories, c.chDataLiteral, categories
.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, Vals
.Charts(0).HasLegend = false
.Charts(0).HasTitle = false
End With
Response.Expires = 0
Response.Buffer = true
Response.Clear
Response.ContentType = "image/png"
'ajustando o tamanho do gráfico (figura).
Response.BinaryWrite oChart.GetPicture("png",largura, altura)
end if
end function
t = request("t")
th = request("th")
w = request("w")
h = request("h")
id = request("id")
o = request("o")
Call Gera_Grafico(Session(o),t,w,h,th,id)%>
