Jump to content
Fórum Script Brasil

igadino

Membros
  • Content Count

    39
  • Joined

  • Last visited

Community Reputation

0 Neutro

About igadino

  1. Boa Noite Pessoal estou tentando impedir que o usuário use a tecla do Windows do teclado mais não estou conseguindo, alguém pode me dar uma luz Private Const Win_LWIN As Integer = &H5B Private Const Win_RWIN As Integer = &H5C Private Sub Informaçoes_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown If e.KeyCode = Win_LWIN OrElse e.KeyCode = Win_RWIN Then e.Handled = False End If End Sub
  2. Pessoal alguém sabe como eu faço para destravar o form porque quando o timer esta rodando o forme fica travado. estou usando o visual studio 2012 Private Sub PCarregadados() Dim repete As Boolean = True Using con As OleDbConnection = GetConnection() con.Open() Dim sql As String = "" sql = "SELECT * FROM tblImagensPDV" Dim conec As OleDbCommand conec = New OleDbCommand(sql, con) Dim adapter As OleDbDataAdapter = New OleDbDataAdapter(conec) Dim ds As DataSet = New
  3. Estou fazendo um sisteminha e preciso gerar serial para ativar o sistema e somente o serial gerado por este código sera aceito no sistema.no sistema tem como validar os seriais gerado por este código? Dim n As Integer Dim Keygen(26) As Long Dim Newkey, Finalkey As String Randomize For n = 1 To 26 Keygen(n) = Int(Rnd * 26) + 1 Keygen(n) = Keygen(n) + 64 Newkey = Chr$(Keygen(n)) Finalkey = Finalkey + Newkey Next Texto3 = Left(Finalkey, 5) Texto4 = Mid(Finalkey, 6, 5) Texto5 = Mid(Finalkey, 11, 5) Texto6 = Mid(Finalkey, 17, 5) Texto7 = Mid(Finalkey, 19, 5) Texto8 = Mid(Finalkey, 21, 5)
  4. igadino

    Atualizar dados

    ola tenho uma planilha no excell e quando clicar para atualizar a planilha tos que tem sim aparecerá 0 na coluna Estado confornme abaixo usuário e Férias Eestado Pedro sim 0 Joao não Maria não Lima sim 0 Jaquelina não Public contaLinha As String Sub Lista() On Error Resume Next contaLinha = 3 Do Until TabBusca.Range("C" & contaLinha).Value = "sim" If Sheets("TabBusca").Range("C" & contaLinha) = "sim" Then ' Range("G13") = "30" '.Select Range("C" & contaLinha + 1).Select With Selection.Interior .ColorIndex = 14 End With Exit Do Else ' Range("D26") = "26" '.Select ' Range("D26").
  5. ninguém ainda conseguiu? estou no aguardo.
  6. Não funcionou ele so funciona se marcar um checkbox. os checkbox tem que os abaixo, porque assim fica melhor para adicionar mais estensões <input name="vai" type="checkbox" id="vai" value=".com.br"> <input name="vai" type="checkbox" id="vai" value=".com"> <input name="vai" type="checkbox" id="vai" value=".org"> <input name="vai" type="checkbox" id="vai" value=".net"> Quanto você que? Ainda estou no aguarde.... Valeu eu conseguir,
  7. Estou falando dos valores dos checkbox é eu que vou definir os valores são esses <input name="vai" type="checkbox" id="vai" value=".com.br"> <input name="vai" type="checkbox" id="vai" value=".com"> <input name="vai" type="checkbox" id="vai" value=".org"> <input name="vai" type="checkbox" id="vai" value=".net"> e outros mais
  8. Assim tambem não funciona
  9. Pessoal como faço para marcar varios checkbox e depois do reflesh da pagina os checkbox que foram marcado continue marcado, se eu marca so um ele funciona mais se marcar dois ou tres já não funciona alguém tem uma ideia de como fazer isso. <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <form name="form1" method="post" action="check2.asp"> <input name="vai" type="checkbox" id="vai" value=".com.br" <% If reques
  10. já tentei faer mais não deu certo.
  11. Pessoal estou tentando melhorar este script para verificar se o dominio esta ou não registrado se ele esta registrado me mostra as informações do registro ok O problema e que quando eu marco so os dominio internacional ele funciona perfeitamente já os dominio nacionais não esta funcionado. se eu conseguir enviar os checkbox com os valores ".com.br,.net.br,.adv.br,.org.br,.tv.br,.gov.br,.adm.br" para ser pesquisado no registro br e os checkbox com os valores ".com,.net,.org,.info" Internic Exemplo: Se for escolhido so dominio internacional ele tem que fazer a consulta só na linha azul e se fo
  12. Pessoal estou tentando melhorar este script para verificar se o dominio esta ou não registrado se ele esta registrado me mostra as informações do registro ok O problema e que quando eu marco so os dominio internacional ele funciona perfeitamente já os dominio nacionais não esta funcionado. se eu conseguir enviar os checkbox com os valores ".com.br,.net.br,.adv.br,.org.br,.tv.br,.gov.br,.adm.br" para ser pesquisado no registro br e os checkbox com os valores ".com,.net,.org,.info" Internic Exemplo: Se for escolhido so dominio internacional ele tem que fazer a consulta só na linha azul e se fo
  13. Pessoal tenho este script para verificar se um dominio esta ou não registrado, se o dominio esta registrado ele tem que me mostra o codigo fonte de quem registrou alguém sabe como fazer isso já procurei na net mais não encontrei. <% dim objXML, Resultado, msgErro, srtmethod Response.Buffer = false 'Set the script timeout to 60 seconds Server.ScriptTimeout = 60 end_pag = "http://www." & request.form("dominio")&""&request.form("pont")&"" url_dom = request.form("dominio")&""&request.form("pont")&"" dominio=request("dominio") If request.form("dominio")<>"" t
  14. Pesoal estou aqui novamente abusando da boa vontade de vocês Exemplor1 Se estiver no diretotio \wwwroot\adminirador\agenda e clicar [..] tem que voltar para o diretorio \wwwroot\adminirador se clicar novamente [..] tem que ir para o diretorio \wwwroot alguém tem uma ideia de como fazer isto? <% 'Declarando as variavel Dim strPath, objFSO, objFolder, objItem, barra, dir ' O diretório que vai ser listado: dir = "D:\Domains\igadino.com"&request("StartPath")&"" barra="\" strPath = dir pasta = trim(request("StartPath")) ' Vamos criar aqui o FileSystemObject: Set objFSO = Server.Create
  15. Mias não quantas copia vai ser feita Eu queria fazer o mesmo exemplo do windows explorer. se você deh CTRL+C e depois CTRL+V cinco vez seguida se a pasta for pedro a primeira copia será assim Cópia de pedro e as outras será assimm Cópia (1) de pedro Cópia (2) de pedro Cópia (3) de pedro Cópia (4) de pedro Cópia (5) de pedro
×
×
  • Create New...