Pesquisar na Comunidade

Boa noite pessoal alguma alma bondosa pode me ajudar? agradeço desde já preciso de um script de loop infinito para esses problemas 1º a janela está protegida para eu focar nela var timer; var timerElapsedTime; var timerFullTime; var is_visible_focus = true; var formSent = true; // main visibility API function // use visibility API to check if current tab is active or not var vis = (function () { var stateKey, eventKey, keys = { hidden: "visibilitychange", webkitHidden: "webkitvisibilitychange", mozHidden: "mozvisibilitychange", msHidden: "msvisibilitychange" }; for (stateKey in keys) { if (stateKey in document) { eventKey = keys[stateKey]; break; } } return function (c) { if (c) document.addEventListener(eventKey, c); return !document[stateKey]; } })(); window.focus(); window.onfocus = function () { is_visible_focus = true; }; window.onblur = function () { is_visible_focus = false; }; // check if current tab is active or not vis(function () { if (vis()) { console.log("tab is visible - has focus"); is_visible_focus = true; window.focus(); } else { // tween pause() code goes here console.log("tab is invisible - has blur"); is_visible_focus = false; } }); //FOCUS END function drawTimer(percent) { window.focus(); $('div.timer').html('<div class="percent"></div><div id="slice"' + (percent > 50 ? ' class="gt50"' : '') + '><div class="pie"></div>' + (percent > 50 ? '<div class="pie fill"></div>' : '') + '</div>'); var deg = 360 / 100 * percent; $('#slice .pie').css({ '-moz-transform': 'rotate(' + deg + 'deg)', '-webkit-transform': 'rotate(' + deg + 'deg)', '-o-transform': 'rotate(' + deg + 'deg)', 'transform': 'rotate(' + deg + 'deg)' }); $('.percent').html(Math.round(percent) + '%'); } function stopWatch(timerSeconds, timeLeftString, requierFocus) { if (is_visible_focus == true || !requierFocus) { timerElapsedTime = timerElapsedTime + 300; } var seconds = (timerFullTime - timerElapsedTime) / 1000; if (seconds <= 0) { drawTimer(100); clearInterval(timer); //FINISH, send postback if (formSent == false) { __doPostBack('CaptchaPostbackHackButton', 'eValue'); formSent = true; } } else { var percent = 100 - ((seconds / timerSeconds) * 100); drawTimer(percent); document.title = timeLeftString + ': ' + parseInt(seconds) + 's'; } } function startBar(timerSeconds, timeLeftString, requierFocus) { timerElapsedTime = 0; timerFullTime = timerSeconds * 1000; timer = setInterval('stopWatch(' + timerSeconds + ',"' + timeLeftString + '",' + requierFocus + ')', 300); formSent = false; } 2º ele tem um tempo para que o site carregue totalmente <div id="timerDiv" class="timer"><div class="percent">72%</div><div id="slice" class="gt50"><div class="pie" style="transform: rotate(259.2deg);"></div><div class="pie fill" style="transform: rotate(259.2deg);"></div></div></div> 3º tem um captcha do lado tem um botão enviar <input type="submit" name="CreditAfterCaptcha" value="Enviar" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("CreditAfterCaptcha", "", true, "RegisterUserValidationGroup", "", false, false))" id="CreditAfterCaptcha" class="btn btn-default bg-green"> 4º tem outro botão proximo <input type="submit" name="NextAddButton" value="Próximo" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions("NextAddButton", "", false, "", "user/earn/surf.aspx?f=6&auto=29", false, false))" id="NextAddButton" class="btn btn-primary m-l-10" style="color:White;"> Então resumindo o script tem que tirar o bloqueio de janela, esperar o tempo para carregar, burla o captcha e aperta proximo isso infinitamente agradeço quem me ajudar obrigado pela atenção.

Code Blocks, C++; Olá, eu estava lendo um livro sobre C++ e me deparei com um certo tipo de variável adaptável. Trata-se do tipo "auto". Porém, quando eu tento utilizá-la (exemplo: auto var = 14;) ocorre um erro: "var does not name a type". Qual seria o problema? Pois, segundo a sintaxe, o tipo auto interpretaria o número 14 como inteiro...

olá...teria como fazer um auto click para um banner? tipo o usuario abre uma pagina é depois de 5 segundos o script clica em um determinado banner automaticamente...tem como?

Boa tarde, estou querendo criar um slide na página home do meu site, mas não consigo fazer com que a imagem se ajuste conforme a tela igual por exemplo o site da Xbox faz, quero que uma imagem complete 100% width e 400px height ou que conforme o valor de width ele calculasse um valor para height que não ficasse muito grande mas ficasse ajustado na página, seria possível? Basicamente eu queria criar o mesmo esquema de ajuste de imagem do site http://www.xbox.com/pt-BR/ Agradeço se puderem me ajudar.

Agora otimizado e customizado este vetor totalmente aleatório ficou mais bonito, forcei a função sorteia (...);gerar duas sequências aleatórias e sem repetições, assim, uma preenche a tabela que parece uma matriz porém não é, e a outra se transforma em posições para o vetor dinâmico, assim os números gerados pela primeira sequência que preencheu a a tabela são chamados aleatoriamente pelos números da segunda. Então as contagens segue normalmente entre "zero e onze", e no final, de cada apresentação são gerados outras duas sequências diferentes que uma preenche novamente a tabela e a outra chama novamente cada número correspondente da posição, limitei em "três", apresentações sequenciais aleatórias, para não estender muito o vídeo, más poderia colocar dezenas deapresentação e deixá-lo rodando quanto tempo fosse necessário para a chegada do fim, que termina imprimindo meu e-mail e meu nome. Este código não está disponível para visualização, más se realmente lhe interessa entre em contato comigo. https://www.youtube.com/watch?v=AI46q6ScPBo

Olá Caros Amigos(as), Estou desenvolvendo um sistema VBA Excel 2007, de Vendas, onde eu tenho 8 planilhas que servem de base de dados, alguns UserForms de cadastro e um UserForm de Vendas. A questão é a seguinte: Estou tendo problemas em auto numerar via macro, duas colunas, a A e a B da seguinte forma... Coluna A = ID (ID sequencial para identificação de cada produto vendido) Coluna B = COD VENDA (Numeração dada a cada conjunto de vendas independente da quantidade de produtos vendidos, listados no ListBox lstCompras) Segue imagem. O que eu preciso fazer, é auto numerar estas duas colunas com numerações diferentes, sendo uma sequencial e a outra não, começando com um código 100, por exemplo. Mas não é o que está acontecendo, como visto na imagem acima. Onde é ID, deve constar numeração 1, 2, 3... Em COD VENDA, 100, 100, 100... e numa próxima venda, 101, 101, 101... Entenderam!?!?!?! O código que estou usando na macro responsável, é este: Sub CodVenda() If IsNumeric(ActiveCell.Offset(-1, 1)) Then ActiveCell = ActiveCell.Offset(-1, 1) + 1 Else ActiveCell = 100 End If End Sub Public Sub NumAuto() If IsNumeric(ActiveCell.Offset(-1, 0)) Then ActiveCell = ActiveCell.Offset(-1, 0) + 1 Else ActiveCell = 1 End If End Sub Sub KitPagto() Dim cDesc As Currency Dim ListaItems As Integer If txtDinheiro.Text = "" And txtDesconto.Text = "" And txtProduto.Text = "" And txtPreco.Text = "" Then MsgBox "Não é possível Gravar informações vazias. Por favor, preencha o form!", vbCritical txtCod.SetFocus Else Plan6.Range("A2").Select ListaItems = lstCompras.ListCount - 1 For i = 0 To ListaItems NumAuto CodVenda If txtDesconto.Text = "" Then cDesc = "0,00" Else cDesc = txtDesconto.Text End If 'ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(-i, 0).Value + 1 ActiveCell.Offset(i, 1).Value = lblCodVenda.Caption ActiveCell.Offset(i, 2).Value = Date & " - " & Time ActiveCell.Offset(i, 3).Value = lstCompras.List(i, 0) 'Código PROBLEMAS NESTE ITEM ActiveCell.Offset(i, 4).Value = lstCompras.List(i, 1) 'Produto ActiveCell.Offset(i, 5).Value = CCur(lstCompras.List(i, 3)) 'Valor ActiveCell.Offset(i, 6).Value = cboClientes.Text 'Cliente ActiveCell.Offset(i, 7).Value = lstCompras.List(i, 2) 'Quantidade ActiveCell.Offset(i, 8).Value = CCur(lstCompras.List(i, 4)) 'Sub-Total ActiveCell.Offset(i, 9).Value = CCur(lblTotal.Caption) 'Total ActiveCell.Offset(i, 10).Value = CCur(txtDinheiro.Text) 'Valor para pagamento ActiveCell.Offset(i, 11).Value = CCur(lblTroco.Caption) 'Troco calculado automaticamente ActiveCell.Offset(i, 12).Value = CCur(cDesc) 'Desconto dado ao cliente ActiveCell.Offset(i, 13).Value = cboVendedor.Text 'Nome do Vendedor Next i i = i + 1 MsgBox "Venda realizada com Sucesso!", vbInformation, "VP BAZAR SHOW" Limpar ActiveWorkbook.Save End If End Sub Não consigo chegar a uma finalização. Esta é a imagem do UserForm. Serei muito grato a quem, com uma ótica diferente, puder me dizer onde errei e dar uma luz para um caminho melhor. [ ],s