Ir para conteúdo
Fórum Script Brasil

Decio

Membros
  • Total de itens

    797
  • Registro em

  • Última visita

Tudo que Decio postou

  1. Decio

    Temperatura

    Se for o código que passei, basta substituir o print: Text1.Text = " Total Number Of Bytes:" & Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
  2. Decio

    Temperatura

    O problema não é so saber em qual linguagem se faz, você pode usar o C++ 6.0 (do VS6)da Microsoft para desenvolver, o problema é que as linguagens de programação para Windows não oferecem recurso para acesso em baixo nível por motivo de segurança do sistema. Antigamente em DOS , você poderia fazer o que quizesse.Se você travasse o micro com um código mal comportado, o problema era só seu e bastaria dar um reset para tudo voltar ao normal. já no Windows que é um sistema multitarefa as coisas não são tão simples.Se você tentar acessar uma interrupção usada por outro aplicativo , você trava todo o sistema e é dificil saber quem é o culpado. Por isto , para acesso a funções de baixo nivel como no DOS , o Windows permite que se use devices drivers (dll , .vxd no 9x e .sys no WinNt,2k etc..). Até ai você pode usar qualquer copilador C++ para desenvolver.Depois disso vem a outra dificuldade que é ter conhecimento de Hardware.Por exemplo: No exemplo que nosso amigo deu para ler a senha do Setup, você usa a interrupção (70h a 75h) se não me engano. Neste caso você esta chamando uma função de bios que vai retornar um valor. Para você saber como ler a tensão da cpu , deve existir alguma chamada para esta função , que deve ser do seu conhecimento.Eu mesmo não conheço. Uma solução , se é tão importante para você saber a tensão, tente entrar em contato com o fabricante do software que faz este monitoramento , para saber se eles disponibilizam as chamadas as dll's que eles usam. Ps:Já tentei isso e não consegui. Use esta função para pegar o espaço usado e livre:
  3. Decio

    Temperatura

    Esta dll ai só deve funcionar no Win9x , no 2000 e Xp não deve funcionar. Se você testou em algum destes Windows e funcionou, me fale aonde conseguiu a dll que deve ser diferente da minha. Mas em todo caso , o que o nosso colega quer não vai ser possível apenas lendo o setup. quando se entra no setup da máquina e ve aquelas variações de tensão , as mesmas não ficam gravadas em lugar nenhum, apenas são apresentada na tela. Se ele quer mesmo saber estas variações , deve fazer com linguagem de baixo nível,talvez chamando alguma função de bios , e isto como se sabe não é possível com linguagens de alto nível como o Vb por exemplo.
  4. Decio

    Image

    você esta falando do Picture Box não é? você não usa para inserir uma figura o comando Picture1.Picture = LoadPicture("x:\xxxx.bmp") Então, para apagar esta figura basta dar o comando Picture1.Picture = LoadPicture("") Se não for isso explica melhor porque eu não entendi.
  5. Vou te passar um tópico parecido, a unica diferença é que o código é para editar ao invés de excluir, mas a logica é parecida.Tenta ver se isso te ajuda: http://scriptbrasil.com.br/forum/index.php...topic=21134&hl=
  6. Para adicionar , você pode usar o código abaixo: Open "aquivo.xxx" For Append As #1 Print #1, Text1.Text Close #1 você pode colocar o código acima em um botão , ou mesmo no evento KeyPress do TextBox para quando a pessoa teclar ENTER já gravar .Neste caso você tem que tratar o que esta sendo digitado, senão tudo que o cara digitar vai ser gravado.
  7. Não é bem isso. Coloque um CommandButton em seu projeto e insira o código abaixo: Private Sub Command1_Click() Open "aquivo.xxx" For Input As #1 Do Until EOF(1) Input #1, strLine List1.AddItem strLine Loop Close #1 End Sub Fica bom também você colocar o código no form load, assim não é preciso clicar em nada para preencher o list box.
  8. Decio

    Tirar Espaço Em Branco

    Sem dúvidas...Nem pensei.
  9. Bastaria colocar este código no evento Click ou Double Click do listBox: Text1.Text = List1.Text Basta colocar o código de abertura de arquivo no evento Click do botão
  10. Decio

    Tirar Espaço Em Branco

    Tenta este código: Dim strAux, strRet As String Dim x As Integer strRet = "Super Site" For x = 1 To Len(strRet) If Mid(strRet, x, 1) <> " " Then strAux = strAux & Mid(strRet, x, 1) End If Next x MsgBox strAux
  11. Decio

    Image

    Tenta assim: Picture1.Picture = LoadPicture("")
  12. Decio

    Relogio

    Não era isso que você queria? da uma olhada no arquivo rd-help.html que esta dentro do pacote compactado , e que explica como usar o componente. Se você quizer o código de um relógio analogico, procure na parte de download por um arquivo chamado Analogclock.zip (este é sem componente) Se não for isso, explique melhor o que você precisa para ver se posso re ajudar.
  13. Cara, com DAO faz um bom tempo que eu não mexo, ve se funciona algo parecido com isto: Rs.Open "select * from [Tabela] WHERE Campo LIKE '%" & Busca & "%' ORDER BY xx ", cnn1, adOpenStatic, adLockOptimistic Se não funcionar, ve qual é a sintax correta para usar o Like.Eu lembro que tinha uma pequena diferença ...
  14. Decio

    Relogio

    Foi mal , faltou o link.
  15. tenta assim: Open"arquivo.xxx" for input as #1 Do Until EOF(1) input #1, strLine list1.additem strLine loop Close #1 Obs: Não testei o código, mas deve funcionar...
  16. Decio

    Outlook Express

    Como você falou que poderia chamar o Outlook preenchido, você pode tentar este código. '******************************************************************** Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub Form_Load() ShellExecute Me.hwnd, vbNullString, "mailto:fulano@yaboo.com.br?cc=ciclano@yaboo.com.br&BCC=dd&Subject=Teste de envio de e-mail&body=ola @aline", vbNullString, "C:\", SW_SHOWNORMAL End Sub '******************************************************************** Desabiliar as teclas eu acredito que não seja possível. O unico problema é que não consegui incluir anexo. Só que agora fiquei curioso...Se alguém souber, posta ai. Abraço.
  17. Decio

    Relogio

    Da uma olhada neste site abandonado, entre na opção OCX e procure: RD - Ocx para colocar um relógio digital (com instrução em Html ) PS: Não é propaganda do site, é que a página do desenvolvedor não existe mais... PS: Se você gostar , assine o livro de visita.Pelo menos este tem um visual melhor. Abraço
  18. Tem este exemplo , só que em MFC: http://www.softechsoftware.it/main.html
  19. Se a variavel é do tipo interiro então tem que ser assim: tabelaenderecos.FindFirst ("[codigonome] = " & codigonome & " ") , sem o ( ' )
  20. É que o Visual Basic é um programa pago . Se você encontrar para download, é pirata. Evite.
  21. Decio

    Rotina Pdv

    O que eu quero dizer na verdade , é que o fabricante disponibiliza uma dll para facilitar a programação da comunicação com a impressora.Ao invéz de você criar todo o protocolo de comunicação na unha , você usa as funções da dll já pronta. Mas caso você queira fazer tudo sozinho, vai precisar do protocolo de comunicação da impressora para desenvolver algo.Ninguém vai poder te ajudar sem isto. Em todo o caso passa o modelo das impressora que vou pesquisar para ver se posso ajudar.
  22. Decio

    Criptografia

    Ola, Quanto a programas que copiam o site inteiro , isso não vale para páginas Asp. Se isso fosse possível , não existiria nenhuma segurança em sites de comercio eletronico (a maioria é em Asp). Mas se mesmo assim você quizer colocar o código em Dll, você pode usar o Visual Basic para desenvolvimento. Não sei onde encontrar informações de como você pode fazer , mas posso indicar um livro que eu li: Visual Basic Guia do Programador para ASP e IIS da editora Market Book. Ele explica os conceitos de desenvolvimento de WebClasse com o VB para uso em Asp . A grande vantagem segundo o autor , é maior velocidade de processamento. Basicamente ,funciona da seguinte forma: você cria a dll, registra esta dll no servidor e na sua página Asp você cria uma instancia para esta dll.Não é com include.. como você mencionou.Desta forma seu código esta protegido, mas isso só se justifica se você quer vender seu trabalho sem mostrar o código para o seu cliente, pois pela internet com programas que copia site, isso não é possível , a menos que alguém consiga invadir o seu site
  23. Decio

    Mysql

    A string de conexão eu uso é esta: "DRIVER=MySQL ODBC 3.51 Driver;SERVER=xx.xx.xx.xx;uid=root;pws=;database=NomeDatabase" Para fazer o download do driver ODBC: http://dev.mysql.com/downloads/connector/odbc/3.51.html Para criar o banco de dados eu aconselho usar o MySqlFront (parecido com o Enterprise Manager da MS): http://www.mysqlfront.de/
  24. Decio

    Criptografia

    Se ainda existir estes artigos, me mostre para eu ter uma ideia do que você quer e ver se posso te ajudar. O que eu já usei foi apenas algoritimos de criptografia para se usado com senha de usuário, mas me parece que não é isso que você quer. você quer criptogravar o seu arquivo depois de copilado??é isso??
  25. Decio

    Criptografia

    Não entendi. Se você criar uma dll , seu código fonte já estara protegido.
×
×
  • Criar Novo...