Ir para conteúdo
Fórum Script Brasil

neotheone

Membros
  • Total de itens

    22
  • Registro em

  • Última visita

Tudo que neotheone postou

  1. Boa noite galera! Estudando pela web e tentando entender como manipular anexos no Outlook 2010, desenvolvi o seguinte código: O script VBA percorre mensagem por mensagem na caixa de entrada a procura do assunto chamado: Mensagem de teste quando ele acha um email com esse assunto, ele grava o anexo contido na mensagem no computador e abre um arquivo que normalmente contem entre 1500 a 2000 mil linhas, e linha por linha ele vai gravando em uma tabela no mysql, porém observei que as vezes ele deixa de gravar 1 linha, e se rodo o script de novo, ele grava todas as linhas,ou seja, ele pula linha de vez em quando, vocês tem ideia do que seja isso? obrigado
  2. Não achei não, teria como você me indicar um link? Achei loja virtual só para odbc mysql, eu preciso para teradata Obrigado
  3. Boa noite colegas do scripts, estou a algum tempo realizar uma conexão ODBC com uma base de dados no Teradata, porém não consigo de modo algum, já pesquisei varios lugares e o erro continua o mesmo. Será que alguém teria alguma luz para me dar rsrs? Obrigado a todos PHP Warning: odbc_connect(): SQL error: [unixODBC][Driver Manager]Can't open lib '/opt/teradata/client/ODBC_32/lib/tdata.so' : /opt/teradata/client/ODBC_32/lib/tdata.so: wrong ELF class: ELFCLASS32, SQL state 01000 in SQLConnect in /home/username/helloWorld.php on line 8 PHP Warning: odbc_exec(): supplied argument is not a valid ODBC-Link resource in /home/username/helloWorld.php on line 10
  4. Boa tarde pessoal! Gostaria de saber se há alguma maneira de copiar através de um script php esses arquivos abaixo: Toda vez que entro nesse endereço ele me pede login e senha, eu já tenho o login e senha, porém gostaria de fazer isso com o php de forma automática. Atente-se que é HTTPS. https://www.colegiosaofabiano.com.br/listaD...ais/lista01.txt https://www.colegiosaofabiano.com.br/listaD...ais/lista02.txt https://www.colegiosaofabiano.com.br/listaD...ais/lista03.txt https://www.colegiosaofabiano.com.br/listaD...ais/lista04.txt valeu pessoal
  5. neotheone

    Macro para excel

    A solução do problema IE.Document.form(0).submit
  6. neotheone

    Macro para excel

    Valeu vou esperar você postar aqui. Ta muito dificil isso, não quero dar ok em uma janela do windows quero dar OK em um confirm (javascript), ou seja, aquela mensagem do Browser.
  7. neotheone

    Macro para excel

    Não ta funcionado ta foda de achar uma solução pra isso
  8. neotheone

    Macro para excel

    Nesse endereço tem que paga http://www.experts-exchange.com/Programmin...Q_20510962.html Tem como me dar um exemplo do uso de: FindWindow() e SetForegroundWindow()
  9. neotheone

    Macro para excel

    Oi pessoal, fiz uma macro aqui que abre um site na internet, preenche um formulario para enviar para um determinado banco de dados, só que quando apertar o botão enviar, aparece uma tela para confirmar o envio, é aquela tela em javascript Ok - Cancelar Não consigo fazer a raio da macro apertar o botão Ok como fazer? PS: sendKeys "{ENTER}" não FUNCIONA sendKeys "~" não FUNCIONA sendKeys "¬" não FUNCIONA
  10. neotheone

    Macro para excel

    Public User_Posvenda As String, Senha_Posvenda As String Sub posvenda() frmAcessoSAC.Show End Sub Public Sub carregar() On Error Resume Next ActiveWorkbook.Sheets("posvenda").Activate Dim cpf As Single Dim tempo As Integer voltar: tempo = 3 aguarde = "AGUARDE" '****************************** ' Função Aguarde '***************** If (Len(aguarde) >= 70) Then aguarde = "< AGUARDE >" End If Sheets("posvenda").Cells(3, 5) = aguarde aguarde = "< " & aguarde & " > " '***************** ' Fim da função '****************************** Set ie = GetObject("", "InternetExplorer.Application.1") ie.Visible = True ie.Navigate "http://posvenda.brasiltelecom.com.br/posvenda/" Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) Loop x = ie.Document.forms(0).Length If (x = 2) Then ie.Document.getelementbyid("usuario").Value = User_Posvenda ie.Document.getelementbyid("senha").Value = Senha_Posvenda ie.Document.getelementbyid("enviar").Click End If Do While ie.Busy DoEvents Loop Do While ie.Busy Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) Loop 'x = ie.document.frames.Item(0).document.Forms.Length 'x = ie.document.frames.Item(1).document.Forms.Length '****************************** ' Função Aguarde '***************** If (Len(aguarde) >= 70) Then aguarde = "< AGUARDE >" End If Sheets("posvenda").Cells(3, 5) = aguarde aguarde = "< " & aguarde & " > " '***************** ' Fim da função '****************************** linha_posvenda = 9 Do While Sheets("posvenda").Cells(linha_posvenda, 2) <> "" '****************************** ' Função Aguarde '***************** If (Len(aguarde) >= 70) Then aguarde = "< AGUARDE >" End If Sheets("posvenda").Cells(3, 5) = aguarde aguarde = "< " & aguarde & " > " '***************** ' Fim da função '****************************** 'terminal = "" 'cpf_cnpj = "" If (ActiveSheet.Cells(linha_posvenda, 2) <> "") Then ddd = Left(ActiveSheet.Cells(linha_posvenda, 2), 2) terminal = Right(ActiveSheet.Cells(linha_posvenda, 2), 8) End If ie.Navigate "http://posvenda.brasiltelecom.com.br/posvenda/entradaBloqueioDesbloqueio.do" Do While ie.Busy Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) Loop 'INSERE DDD/TERMINAL ie.Document.getelementbyid("ddd").Value = ddd ie.Document.getelementbyid("telefone").Value = terminal Do While ie.Busy DoEvents Loop 'CLICA EM OK ie.Document.GetElementsByTagname("input")(5).Click Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) DoEvents Loop Dim x1 As String x1 = ie.Document.GetElementsByTagname("td")(9).innertext Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) Loop 'BUSCA RESULTADO DA OPERAÇÃO E INSERE NA PLANILHA EXCEL If Trim(x1) = "" Then Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) DoEvents Loop ' Dim result: Set result = ie.Document.GetElementsByTagname("td")(21) resultado = ie.Document.GetElementsByTagname("td")(21).innertext DoEvents Sheets("posvenda").Cells(linha_posvenda, 3) = resultado Else Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) DoEvents Loop DoEvents Cells(linha_posvenda, 3) = x1 End If Do While ie.Busy DoEvents Loop Do While Not (ie.ReadyState = READYSTATE_COMPLETE) DoEvents Loop '****************************** ' Função Aguarde '***************** If (Len(aguarde) >= 70) Then aguarde = "< AGUARDE >" End If Sheets("posvenda").Cells(3, 5) = aguarde aguarde = "< " & aguarde & " > " '***************** ' Fim da função '****************************** linha_posvenda = linha_posvenda + 1 Loop ie.Visible = False ie.Quit Sheets("posvenda").Cells(3, 5) = "DISPONÍVEL" GoTo voltar End Sub
  11. neotheone

    Macro para excel

    Bom dia galera do Script Brasil Tenho uma macro desenvolvida em vba para o excel que realiza o seguinte trabalho: 1º Ela abre uma página na internet 2º Entra com login e senha 3º Entra em uma tela onde você escolhe Bloqueio ou Desbloqueio (são radio buttons), depois ele digita o DDD e o telefone em seus respectivos campos 4º Agora aperta o Ok para efetuar o bloqueio ou desbloqueio do número 5º Quando ele aperta Ok um alerta vem na tela pedindo para confirmar o bloqueio ou desbloqueio, é aquele confirm do javascript que vem as opções OK ou Cancelar. A minha dúvida é exatamente no 5º passo, como fazer para a macro apertar esse Ok? Obrigado pessoal pela ajuda
  12. Fala pessoal do scriptbrasil, to desenvolvendo um banco de dados aqui em TXT, mas estou com muitas dúvidas, pois não conheço muito dessa área de se trabalhar com TXT já estou conseguind ler as informações que coloquei no arquivo.txt, agora estou querendo saber como posso inserir informacoes no final do arquivo e como poderia excluir certa linha valeu pessoa
  13. Fala pessoal eu fiz uma alavanca aqui e gostaria de fazer uma animação com ela, por exemplo há "anos" em torno da alavanca, o q eu quero é q quando passar o mouse em 1837 a alavanca vá pra 1837, e quando encostar em outra data vá pra outra data, vou postar uma foto para melhor entendimento. vejam a foto no seguinte endereço http://www.sistemagaudeensino.com.br/alavanca.gif
  14. Qual programa você sugere q eu use?
  15. Falaa pessoal, será que alguém tem alguma ideia de como eu posso fazer um papel se desenrrolando de cima para baixo, como c fosse um pergaminho??? É porque eu to fazendo uma animacao com um papel velho, daí eu queria saber fazer esse efeito, tipo, o papel estaria em forma de canudo, daí ele iria se desenrrolar ! sds Felipe
  16. Fala pessoal eu já dei inicio ao meu trabalho da faculdade que consiste em fazer uma fila de despertadores, vou explicar. O Cliente chega e digita e conecta a maquina servidora, daí ele digita SET 5 ( isso corresponde a ser acordado daqui a 5 segundos. Gostaria que se vocês pudessem dessem uma olhada no meu codigo Cliente / Servidor abaixo; servidor: #include <sys/types.h> > #include<sys/socket.h> > #include<unistd.h> > #include<netinet/in.h> > #include<stdio.h> > > #define MAXFILA 10 > struct timer{ > > int tempo[MAXFILA]; > int inic; > }; > > int main(int argc, char **argv) > { > > struct timer *t; > int listenfd, connfd, size; > struct sockaddr_in myaddr, cliaddr; > int bufsize=128; > char *cmd; > > > listenfd=socket(AF_INET, SOCK_STREAM, 0); // cria o socket > memset(&myaddr,0, sizeof(myaddr)); //zera a estrutura > myaddr.sin_family=AF_INET; //define a familília > myaddr.sin_port=htons(12345); //define a porta > myaddr.sin_addr.s_addr=INADDR_ANY;//associa a estrutura qualquer endereço de máquina > if(bind(listenfd, (struct sockaddr *)&myaddr, sizeof(myaddr))==0) > printf("Escutando...\n"); > listen(listenfd,5);//deixa o socket na escuta de pedidos de coneão > > for(;;) > { > memset(&cliaddr, 0, sizeof(cliaddr)); > size=sizeof(cliaddr); > connfd=accept(listenfd, (struct sockaddr *) &cliaddr, &size); //aceita pedidos de conexão > t->tempo[++t->inic]=recv(listenfd,cmd,bufsize,0); > printf("Novo tempo cadastrado: %s\n"); > send(connfd, "Tempo cadastrado!\n", 18, MSG_WAITALL); > close(connfd); > > } > return 0; > } > > > ------------------------------------------------------------------------ > CLiente.c > #include <sys/types.h> > #include <sys/socket.h> > #include <unistd.h> > #include <netinet/in.h> > #include <arpa/inet.h> > #include <string.h> > #include<stdio.h> > > > > > int main(int argc, char **argv) > { > > int sockfd,erro,errosend, bytes; > erro = 0; > struct sockaddr_in end_servidor; > char recvline[10]; > char x[10]; > char *ptr; > char cmd[20]; > int bufsize=128; > if(argc!=3) > { > printf("Parametros incorretos\n"); > return -1; > } > > printf("Digite a hora que deseja ser despertado"); > gets(x); > ptr=strtok(x, " "); > strcpy(cmd,ptr); > while(strcmp(cmd,"set")) > { > printf("Este comando não é válido\n"); > gets(x); > ptr=strtok(x, " "); > strcpy(cmd,ptr); > } > > sockfd=socket(AF_INET, SOCK_STREAM, 0); > memset(&end_servidor,0, sizeof(end_servidor)); > end_servidor.sin_family=AF_INET; > end_servidor.sin_port=htons(atoi(argv[2])); > inet_aton(argv[1], &end_servidor.sin_addr); > > erro = connect(sockfd,(struct sockaddr *)&end_servidor,sizeof(end_servidor)); > if( erro != 0 ) > { > printf("Erro ao tentar se conectar so servidor\n"); > return(-1); > } > send(sockfd,cmd, bufsize,0); > > bytes = recv(sockfd,recvline,20,MSG_WAITALL); > printf("%d Bytes recebidos\n",bytes); > fputs(recvline,stdout); > close(sockfd); > return 0; > }
  17. valeu pode deixar q estarei testando e estudando seu código, qualquer coisa volto a postar, mas agradeço desde já a ajuda de todos
  18. Estou desenvolvendo um sistema de banco de imagens, porém não consigo adicionar de modo alguma o código de paginacao, ele sempre dá algum erro de conflito, não sei o que pode estar havendo, segue abaixo o código para o sistema de banco de imagens, sem o código de paginacao: <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strURL Dim cnnSearch Dim rstSearch Dim strDBPath Dim strSQL Dim strSearch inicio = Timer '#Função que tira todos os acentos das palavras function TiraAcento(StrAcento) for i = 1 to len(StrAcento) Letra = mid(StrAcento, i, 1) Select Case Letra Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä" Letra = "A" Case "é","É","ê","Ê","Ë","ë","È","è" Letra = "E" Case "í","Í","ï","Ï","Ì","ì" Letra = "I" Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò" Letra = "O" Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û" Letra = "U" Case "ç","Ç" Letra = "C" Case "não" Letra = "N" End Select texto = texto & Letra next TiraAcento = texto end function strURL = Request.ServerVariables("URL") strSearch = Request.QueryString("search") %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <table width="688" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td height="128" colspan="4" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <!--DWLayoutTable--> <tr> <td width="688" height="128"><form action="<%= strURL %>" method="get"> <div align="center"> <input name="search" value="<%= strSearch %>" /> <input name="submit" type="submit" value="Pesquisar" /> </div> </form> <p align="center"> <% If strSearch <> "" Then strDBPath = Server.MapPath("imagens.mdb") Const adUseClient = 3 Set cnnSearch = Server.CreateObject("ADODB.Connection") cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";" cnnSearch.CursorLocation = adUseClient strSQL = "SELECT id, imagem, categoria, descricao, link " _ & "FROM imagens " _ & "WHERE chave LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " Set rstSearch = cnnSearch.Execute(strSQL) intContador = rstSearch.RecordCount limite_coluna=3 %> </p></td> </tr> </table></td> </tr> <tr> <td width="292" height="78"></td> <td valign="top"><table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF"> <!--DWLayoutTable--> <% Do While Not rstSearch.EOF %> <tr> <% for coluna = 1 to limite_coluna if rstSearch.EOF then response.write "<td> </td>" else %> <td width="116" height="58" valign="top"><p><img src="<%=rstSearch("imagem")%>" alt="Imagem"></p> <p><a href="<%=rstSearch("link")%>">link</a></p></td> <% end if if not rstSearch.EOF then rstSearch.MoveNext next %> </tr> <% if rstSearch.BOF then rstSearch.MoveNext Loop %> </table></td> <td width="13"></td> <td width="263"></td> </tr> <tr> <td height="18"></td> <td colspan="2" valign="top"><% rstSearch.Close Set rstSearch = Nothing cnnSearch.Close Set cnnSearch = Nothing End If %></td> <td></td> </tr> <tr> <td height="1343"></td> <td width="120">&nbsp;</td> <td></td> <td></td> </tr> </table> </body> </html> -------------------------------------------- PS: alguém saberia me ajudar a adicionar um código de paginacao nesse código?
  19. neotheone

    Exibir Fotos

    Olá será que você poderia me explicar com mais detalhes? não estou sabendo usar o seu codigo, obrigado
  20. neotheone

    Exibir Fotos

    Fala pessoal estou correndo contra o tempo pra deixar o sistema de banco de imagens pronto. Mas estou com um problema, na hora de exibir as fotos em 1 pagina, está acontecendo o seguinte: estou listando 3 fotos por linha, eu tenho 7 fotos cadastradas, sendo que a sétima foto (ou seja , a ultima) nunca aparece, a última foto nunca aaparece, não sei porque modelo abaixo: --------------------------------- foto 01 | foto 02 | foto 03 foto 04 | foto 05 | foto 06 aqui tinha que ter foto mas fica vazio ------------------------------------ código abaixo: ---------------- <table width="120" border="0" cellpadding="2" cellspacing="0" bgcolor="#FFFFFF"> <!--DWLayoutTable--> <% Do While Not rstSearch.EOF %> <tr> <% for coluna = 1 to limite_coluna if rstSearch.EOF then response.write "<td> </td>" else %> <td><img src="<%=rstSearch("imagem")%>" alt="Imagem n&atilde;o dispon&iacute;vel"></td> <% end if if not rstSearch.EOF then rstSearch.MoveNext next %> </tr> <% if not rstSearch.EOF then rstSearch.MoveNext Loop %> </table>
  21. neotheone

    Exibir Fotos

    Fala pessoal, eu to fazendo uma galeria de foto, estou cadastrando um monte de fotos no banco de dados, e quero exibir todas as fotos na internet, sendo que eu gostaria de exibilas uma do lado da outra em uma tabela bonitinha, aalguem sabe como fazer? Pois só to conseguindo exibir um embaixo do outro Exemplor FOTO 1 | FOTO 2 | FOTO 3 FOTO 4 | FOTO 5 | FOTO 6 viram? quero arrumar nas tabelas uma foto do lado da outra e aí tipo, quero 3 fotos por linha, daí ela pula a linha, entenderam? desde já agradeço a ajuda
  22. Estou montando um calendário em AS e estou com as seguinte dúvidas: como faço para mudar a COR dos DIAS específicos e como fazer para clicar no tal dia específico e mostrar algum evento. Por exemplo, quero dizer que nos dias 3, 15 e 30 terão tão evento, daí eles estarão na cor vermelha MC chamado CAL e dentro do MC tem um campo de texto dinâmico chamados DIAS: total = new Date(); mes = [["Janeiro", 31], ["Fevereiro", 29], ["Março", 31], ["Abril", 30], ["Maio", 31], ["Junho", 30], ["Julho", 31], ["Agosto", 31], ["Setembro", 30], ["Outubro", 31], ["Novembro", 30], ["Dezembro", 31]]; a = total.getDay(); semana = ["dom","seg","ter","qua","qui","sex","sab"] for(var c=0; c<7; c++) { duplicateMovieClip("cal", "dia"+c, c+50) _root["dia"+c].dias = semana[c] _root["dia"+c]._x += (_root["dia"+c]._width+2)*c _root["dia"+c]._y -= (_root["dia"+c]._height+2) } b = 0; for (i=0; i<6; i++) { for (j=0; j<7; j++) { a++; b++; if (a<=mes[total.getMonth()][1]+total.getDay()) { if (i == 0 && !trig1) { j = total.getDay()-0; trig1 = true; } duplicateMovieClip("cal", "cal"+a, a); _root["cal"+a].dias = b; _root["cal"+a]._x += (_root["cal"+a]._width+2)*j; _root["cal"+a]._y += (_root["cal"+a]._height+2)*i; } } }
×
×
  • Criar Novo...