Formulario para enviar un tweet con Visual Basic 6 (código fuente)

Lo prometido es deuda, el código de la versión 0.1.0 para enviar un tweet con visual basic 6 puedes descargarse desde el link: http://bit.ly/6keA2V

Archivos: basExcelTweet.bas, frmAbout.frm, frmExcelTweet.frm

Function encodeBase64(textData) adaptada de la página: http://sarahs-muse.livejournal.com/805654.html
Formulario: frmExcelTweet.frm adaptado de la página: http://www.codeforexcelandoutlook.com/blog/2009/02/excel-to-twitter/

Dudas y comentarios con @davidaustria

1. <%
2. Dim i
3. i = 99
5. Response.write “<B>Lyrics of the song 99 Bottles of Beer</B><BR><BR>”
7. While i <> 1
8. Response.write i & ” bottles of beer on the wall, “ & i & ” bottles of beer.<BR>”
9. Response.write “Take one down and pass it around, “ & i-1 & ” bottles of beer on the wall.”
10. Response.write “<BR><BR>”
11. i = i-1
12. wend
15. Response.write “1 bottle of beer on the wall, 1 bottle of beer.<BR>”
16. Response.write “Take one down and pass it around, no more bottles of beer on the wall.<BR><BR>”
18. Response.write “No more bottles of beer on the wall, no more bottles of beer.<BR>”
19. Response.write “Go to the store and buy some more, 99 bottles of beer on the wall.”
21. %>

Advertisement