to ligado, eu sei que você acha
mas tem gente que pensa que a gente ta de rixa com o pessoal
Versão Imprimível
To guardando meu voto na esperança de que ainda tenha um momento em que ele seja decisivo
vamos phineas
#VoltaBruxo
Mas se não voltar é Luiz na cabeça.
Votei no luiz porque ele tem medo de chegar em mulher
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
que linguagem é essa?
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
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.
Acaba logo isso aí.
Eu quero discurso, discurso, DIS-CUR-SO!
Vai luiz, ta quase lá mano...
Quando acaba a enquete?
Gogogo todo mundo votando no Phineas para a panelinha florminense não ganhar, rssrrssrrssr...
primão ainda não ganhou essa joça?
carai velho...
sou mais tacar o C na porra toda e ja era.
tá certo isso? UIEHUIAHEAUIEHACitação:
#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);
}
Vish, parece q a comunidade da CC aki é mais extensa q pensei.
depende de qual é seu objetivo.
Se é pra mostrar a realidade ele ta errado :coolface:
Mas no fim vc sempre vai conseguir por 1 ou 2 na variavel gay, a menos q tenha um do while.
Código:#include <stdio.h>
#include <stdlib.h>
int main (){
int gay;
printf("entre com 1 ou 2: ");
scanf("%d", &gay);
while (gay != 1 || gay!=2){
printf ("numero invalido, tente outro: ");
scanf ("%d", &gay);
}
printf("\n");
switch (gay) {
case 1:
{
printf("Rubenito eh gay"!);
break;
}
case 2:
{
printf("Rubenito eh muito gay!");
break;
}
}
system ("pause");
return(0);
}
Vai Phineas, vamo virar essa porra ai :biggrin:
Fluminense vai levar tudo esse ano, até o BBOff.
Votação estagnou :alone:
Só eu que to tenso? Luiz deve ta rindo de mim ):
Parem de fazer programa aqui vadias.
Phineas vai ganhar de virada no final da enquete :coolface:
vamo tricolete
Votei no luiz por ser da seção que eu mais frequento..
Vai tricolete..
C é um lixo, java bem melhor.
Ainda não acabou :yuno:?