Final BBOff 2012

[Panike]

Gosto dos 2, mas to com fome, quero leite, então voto no Phineas pq ele me sacode

[Mathss]

Votei no Luiz, votei aleatoriamente...

Fiquei até com pena do Lucas, entro aqui já vejo uma foto pornografica, já ia vindo votar nele, ai...

[hellb]

Sou muito burro votei errado

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

[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

[Senhor das Botas]

Phienas Gage...

É isso, vlwflw.

[bruxo]

esse é o novo tópico do bbb?

adorei =x

[Dome Fu]

tipo assim, defecou legal pelo teclado
até pq não existe só o júlio césar do Corinthians como jogador, o que postei foi pro Régis ( zafalkar ) falando de um lateral esquerdo que jogou no Flu e foi pro Grêmio, nem ví que tu tinha postado antes

Desculpa, não presto atenção em timecos então não sei muito sobre eles. :\

tu ainda guarda esses avatares???

Era o que eu ia perguntar...

Sim




Um dia vai ser util.

Vai chantagear a galera?
Sorte que eu não entrei nessa modinha gay do fórum quando ela passou por aqui.

[Emiz]

PUTA QUE PARIU

VAI LUIZ

hehe