Final BBOff 2012

[El Bozonildo Palhaçón]

To guardando meu voto na esperança de que ainda tenha um momento em que ele seja decisivo

Nem vai ser.

@Topic
Rubens, se tiver como, pode me passar os Macros que você usou nas votações e prova do Pokemon?

[Rubenito]

@Topic
Rubens, se tiver como, pode me passar os Macros que você usou nas votações e prova do Pokemon?

Então, não guardei o arquivo deletei.

Mas o código é similar a este. Que uso frequentemente para extrair informações automáticas do Fórum.

Public topico As String
Public pagina As Integer

Sub Extrator()

Dim obj As InternetExplorer

Application.DisplayAlerts = False
Application*****eenUpdating = False


On Error GoTo C
x = 2

Set obj = CreateObject("InternetExplorer.Application")

Do While Sheets("Painel").Cells(x, 1) <> ""

topico = Sheets("Painel").Cells(x, 1).Value

For pagina = 1 To 5

obj.Navigate "http://forums.tibiabr.com/archive/index.php/t-" & topico & "-p-" & pagina & ".html"
obj.StatusBar = False 'oculta barra de status
obj.MenuBar = False 'oculta menu
obj.Toolbar = 1 'oculta toolbar
obj.Visible = True 'Exibe Internet Explorer

Application.Wait (Now + TimeValue("00:00:10"))

SendKeys "{Tab 10}", True
SendKeys "^{a}", True
SendKeys "^{c}", True

Application.Wait (Now + TimeValue("00:00:02"))

Sheets("Temp").Activate
Cells(1, 1).Select
ActiveSheet.PasteSpecial Format:="Texto unicode", Link:=False, DisplayAsIcon:=False

'Valida a seleção
Mod_Valida.Validar
If Mod_Valida.valida <> "OK" Then GoTo A

'Formata a seleção
Mod_Formata.Formatar
If Mod_Formata.nPag = 0 Then GoTo A

Next pagina

'Limpa a Temporária
A:
Sheets("Temp").Select
Cells.Select
Range("A1").Activate
Application.CutCopyMode = False
Selection.Clear
Selection.Clear
Range("A1").Select
Sheets("Painel").Cells(x, 2).Value = Mod_Valida.valida
x = x + 1
Loop

Exit Sub

'Trata o Erro
C:
Select Case Err.Number
Case 1004
Mod_Valida.valida = "Vazio"
Resume A
Case Else
Mod_Valida.valida = "Erro"
Resume A
End Select

End Sub

[bruxo]

que linguagem é essa?

[Rubenito]

que linguagem é essa?

VBA mesmo, aperte ALT+F11 no seu Microsoft Excel e seja feliz.

Esse código ainda é meio porco mas serve muito pra extração;

Não curto programar, mas sempre pratico pra não esquecer, Ciência da Computação não foi em vão;

[bruxo]

Nossa, vba pqp

eu ia desenvolver um código php pra procuar as imagens no forum do tibiabr na época da prova do lider, mas fiquei com preguiça kposokpas

no próximo venderei esse código para quem participar =x

[Dome Fu]

VBA mesmo, aperte ALT+F11 no seu Microsoft Excel e seja feliz.

Esse código ainda é meio porco mas serve muito pra extração;

Não curto programar, mas sempre pratico pra não esquecer, Ciência da Computação não foi em vão;

Não entendi, e como ele extrai exatamente?

Ele acessa a internet e busca os dados? Como ele faz isso?

Sei que não é bem o tópico pra perguntar, mas já que deram uma raspada nesse assunto. Sempre me interessei em saber como tu faz esses macros e como eles funcionam.

[Ninja Dragon]

VBA mesmo, aperte ALT+F11 no seu Microsoft Excel e seja feliz.

Esse código ainda é meio porco mas serve muito pra extração;

Não curto programar, mas sempre pratico pra não esquecer, Ciência da Computação não foi em vão;

Eu devo ser uma das poucas pessoas do universo que curte programar...

Na minha sala quase todo mundo odeia, mas eu e mais uns 3 gatos pingados que curtem essa merda.

[bruxo]

Eu devo ser uma das poucas pessoas do universo que curte programar...

Na minha sala quase todo mundo odeia, mas eu e mais uns 3 gatos pingados que curtem essa merda.

vba não é programação, é sofrimento.

[Anarchyst OY]

Gogogo todo mundo votando no Phineas para a panelinha florminense não ganhar, rssrrssrrssr...

[sirtchuck]

sou mais tacar o C na porra toda e ja era.

#include <stdio.h>
#include <stdlib.h>

int main ();

int rubenito;
int gay;


printf("entre com 1 ou 2");
scanf("%d", &gay);
if (gay == 1 || gay ==2) {

printf ("numero invalido, tente outro: ");
scanf ("%d", &gay);
}

switch (gay) {

case 1:
{
printf("Rubenito eh gay"!);

break;
}
case 2:
{
printf("Rubenito eh muito gay!");

break;
}

system ("pause");

return(0);

}

tá certo isso? UIEHUIAHEAUIEHA