
Decio
Membros-
Total de itens
797 -
Registro em
-
Última visita
Tudo que Decio postou
-
Se for o código que passei, basta substituir o print: Text1.Text = " Total Number Of Bytes:" & Format$(TotalBytes * 10000, "###,###,###,##0") & " bytes"
-
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:
-
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.
-
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.
-
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=
-
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.
-
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.
-
Sem dúvidas...Nem pensei.
-
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
-
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
-
Tenta assim: Picture1.Picture = LoadPicture("")
-
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.
-
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 ...
-
Foi mal , faltou o link.
-
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...
-
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.
-
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
-
Tem este exemplo , só que em MFC: http://www.softechsoftware.it/main.html
-
Se a variavel é do tipo interiro então tem que ser assim: tabelaenderecos.FindFirst ("[codigonome] = " & codigonome & " ") , sem o ( ' )
-
É que o Visual Basic é um programa pago . Se você encontrar para download, é pirata. Evite.
-
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.
-
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
-
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/
-
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??
-
Não entendi. Se você criar uma dll , seu código fonte já estara protegido.