neotheone

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

Não achei não, teria como você me indicar um link? Achei loja virtual só para odbc mysql, eu preciso para teradata Obrigado

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

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

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

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.

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

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()

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

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

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

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

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

Qual programa você sugere q eu use?

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