Final BBOff 2012

[Emiz]

eu acho o lucas gente boa.

e nem to ligando pra isso, só to trollando o rubens e tentando ganhar algo kaopskospa

tanto é que to com o lucas no msn o dia inteiro quase.

to ligado, eu sei que você acha

mas tem gente que pensa que a gente ta de rixa com o pessoal

[Inkrosted]

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

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

[bruxo]

vamos phineas

[Luk~]

#VoltaBruxo

Mas se não voltar é Luiz na cabeça.

[Gëik]

Votei no luiz porque ele tem medo de chegar em mulher

[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