Anderson Fernandes

Bom dia a todos! Graymalkin valeu mesmo pela ajuda era isso mesmo que eu precisava só faltou um detalhe, rs. Eu sei como pegar o Value de uma Key ou até mesmo todas as Key de uma Section do registro mas como são varias Sections tipo: HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\RealVNC_is1\DisplayName HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\eMule\DisplayName Como eu faço para retornar todas essas Sections? Tipo: SECTION........................KEY......................VALUE RealVNC_is1..................DisplayName...........VNC Free Edition 4.1.2 eMule............................DisplayName............eMule Se quiser eu posto o código ou envio o projeto! Valeu!!!!!!!!!!

opa, beleza! Bom eu sei fazer isso em functions e sub, mas creio que em propriedades de uma ocx tambem funcionem é que eu não crio muitas ocx. Até para ficar mais facil a explicação eu vou mostra como fazer essa lista em uma função, mas não se preocupe que a metodologia deve ser a mesma! vamos lá! dentro da ocx você deve criar uma Enum Private Enum ListaTeste a = a1 b = b1 'e assim por diante End Enum na função (no seu caso propriedade) faça o seguinte... Public function testePropriedade (pLista as ListaTeste) as string então quando você estiver digitando... i = testePropriedade (... será exibida a lista no seu caso tambem será exibida em properties do componente resumindo é só usar ENUM Espero ter ajudado, beleza! fui

Olá pessoal estou tentando fazer um sistema com skin porem não consigo fazer igual a alguns programas que usam *.jpg como layout. exemplo baixei um componente da net que já vem com varias imagens ai você seleciona uma e o formulario fica igual a imagem só que com a cor rosa por exemplo transparente deixando assim cantos arredondados, etc... bom o que eu penso em fazer é o seguinte deixar o formulário com o borderStyle = 0-none e colocar um componete image onde ira carregar a imagem e será redimensionado automaticamente com o tamanho do formulario e deixar para arrastar o formulario clicando em qualquer parte do form mesmo. bom para arrastar o form clicando em qualquer parte, redimensionar automaticamente o image e carregar o jpg no image ou no picturebox eu já sei. ********************************************************************************************************** O MAIS COMPLICA QUE EU AINDA NÃO SEI É POR EXEMPLO A IMAGEM É UM RETANGULO COM AS BORDAS ARREDONDADAS O INTERIOR É CINZA E AS BORDAS QUE NÃO DEVERÃO APARECER É ROZA, beleza, MAS COMO DEIXAR A COR ROSA TRANSPARENTE???????????? ********************************************************************************************************** Valeu!!!

Ola! Não tenho certeza mas faça o teste nas propriedades do atalho do programa no menu iniciar tem um campo chamado "Iniciar em:" digite a pasta correta onde o sistema deve ser iniciado ou deixe em branco. tipo o código do arquivo 2 abre um arquivo de texto que esta na sua Path porem o sistema esta sendo iniciado em outra Path bom como eu disse não tenho certeza, mas se funcionar poste nos avisando caso contrario poste mas detahes sobre o erro (Descrição do erro)

Olá! Procuro alguma forma de Exibir Softwares instalados (tipo o add/remover do Windows) ou/e hardwares na maquina local mesmo para simplificar Encontrei alguns programas que fazem isso porem a maioria é pago, trial e etc. sei que para exibir os hardwares instalados é mais complicado tendo provavelmente um código para cada tipo de hardware ou peroferico. bom de inicio o que eu preciso com mas urgencia pra entregar pro chefia, rs é: NUMERO SERIAL, MARCA/MODELO exemplo: MARCA/MODELO SERIAL HP dx5150 muito BRB123VD algumas outras informações eu já tenho o código como por exemplo nome de usuário, IP e Nome do Micro Se alguém poder me ajudar fico agradecido ah, e desculpem a minha ausencia ajudando o pessoal iniciante no forum é que ta fod....

Ola Kuroi!!! Esse código eu achei em um tópico por isso está incompleto, o tópico é: http://scriptbrasil.com.br/forum/index.php?showtopic=87465 Creio que esses Script não precise de referencias a DLL. --------------------------------------------------------------- 'Encontrei o função OpenPrinter: Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrn As Long, pDefault As Any) As Long -------------------------------------------------------------- For Each impressora In Printer nesta linha fala que a variavel impressora não foi definida, beleza eu tirei o option explicit da 1ª linha e não deu mais erro --------------------------------------------------------------- Então deu erro em byteJobsBuffer Erro: Compile Error: ByRef argument type mismatch na linha: EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned então eu add byval byteJobsBuffer(0) a linha ficou assim EnumJobs hPrinter, 0, 99, 1, ByVal byteJobsBuffer(0), lNeeded, lNeeded, lReturned e não deu mais erro --------------------------------------------------------------- puts deu erro em ClosePrinter mais beleza encontrei a declaração Private Declare Function ClosePrinter Lib "winspool.drv" Alias "ClosePrinterA" (ByVal hPrn As Long) As Long --------------------------------------------------------------- aff, deu outro erro Run-time error '438': Object doesn't support this property or method em: For Each impressora In Printer provavelmente é em impressora não tem nenhuma declaração para ela e eu não me lembro muito bem como se usa o FOR EACH --------------------------------------------------------------------------------------------------------- PUTS CURRIOLA MAS EU ACHO QUE ARRUMANDO ESTE ERRO NÃO VAI MAIS TER NENHUM OUTRO PROBLEMA GRAVE DESCULTA A ENRROLAÇÃO PRA CHEGAR A ESTE ULTIMO ERRO É QUE EU FUI POSTANDO CONFORME IA FAZENDO OS TESTE BOM SE alguém PUDER ME AJUDAR COM O FOR EACH E "IMPRESSORA" EU AGRADEÇO! VALEU!!!!!! RESUMINDO O CÓDIGO FICOU ASSIM Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" _ (ByVal hPrinter As Long, _ ByVal FirstJob As Long, _ ByVal NoJobs As Long, _ ByVal Level As Long, _ pJob As Long, _ ByVal cdBuff As Long, _ pcbneeded As Long, _ pcbytesReturned As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrn As Long, pDefault As Any) As Long Private Declare Function ClosePrinter Lib "winspool.drv" Alias "ClosePrinterA" (ByVal hPrn As Long) As Long Dim impressora As String Private Sub Command1_Click() For Each impressora In Printer OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, ByVal byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show Text1.Text = 0 End If Next End Sub O ERRO QUE EU NÃO CONSIGO RESOLVER AGORA É NA LINHA For Each impressora In Printer onde provavelmente o erro esta em "impressora"

Ola pessoal! Eu achei esse script, mas ele esta dando alguns erros, alguém pode me ajudar? Private Declare Function EnumJobs Lib "winspool.drv" Alias "EnumJobsA" _ (ByVal hPrinter As Long, _ ByVal FirstJob As Long, _ ByVal NoJobs As Long, _ ByVal Level As Long, _ pJob As Long, _ ByVal cdBuff As Long, _ pcbneeded As Long, _ pcbytesReturned As Long) As Long ---------------------------------------------------------------------------------------------- For Each impressora In Printer OpenPrinter Printer.DeviceName, hPrinter, ByVal 0& EnumJobs hPrinter, 0, 99, 1, ByVal 0&, 0, lNeeded, lReturned If lNeeded > 0 Then ReDim byteJobsBuffer(lNeeded - 1) As Byte EnumJobs hPrinter, 0, 99, 1, byteJobsBuffer(0), lNeeded, lNeeded, lReturned If lReturned > 0 Then lJobCount = lReturned Else lJobCount = 0 End If Else lJobCount = 0 End If ClosePrinter hPrinter Text1.Text = CStr(lJobCount) If Text1.Text = 1 Then Form2.Show Text1.Text = 0 End If Next Aonde esta de vermelho são alguns erros que eu encontre a maioria é por não ter declarado e a sub OpenPrinter tambem não sei o que é será que alguém pode me ajudar com o script? valeu!!!

Ola pessoal!!! Eu estou tentando fazer um programa que ao usuário imprimir o programa pegue os dados da do documento impresso como titulo, numero de folhas, total de cópias, algum ID de impressão e nome do usuário que imprimiu Eu já encontrei um tópico aqui no scriptbrasil mas o código está incompleto, não sei exatamente qual declaração API ou referencia eu preciso fazer para que o código funcione Grato,

Ola pessoal eu tambem gostaria de fazer um software para gerenciar impressões mas não sei por onde começar eu tentei usar este código ai em cima mas esta incompleto. Será que algem pode almenos me dizer quais declarações API e/ou referencias que eu tenho que usar. qualquer juda é valida obrigado!!!

Ola pessoal!!! Eu gostaria de salvar uma imagem ou arquivo em um campo OLE de uma tabela do Microsoft Access e exibir posteiormente em um objeto OLE se alguém puder me ajudar agradeço!!!

ola!!! use um textbox e use a propriedade Lock como true

beleza!!!! Valeu vou tentar usar.

Bom dia a todos!!! alguém conhece alguma ferramenta/programa para a criação de arquivos de Ajuda (*.chm) ou algo semelhante. Grato,

Não tenho certeza se é isto que você precisa, mas tente este site: http://ocomonphp.sourceforge.net/ OcoMon é um sistema d gerenciamento de chamados em PHP MONitoramento de OCOrrencias este é um sistema Free porem em PHP, caso tenha que ser em VB me POSTE Bele!!!!

À suas ordens... qualquer coisa só falar bele!!!! Fui!!!!!!!!!!

Encontrei é na segunda URL!!! Valeu!!!!

Bom dia!!!! Gostaria de saber em qual lugar do site eu posso disponibilizar projetos VB para download? (Se é que exista! rs)

Valeu!!!! funcionou Ok!!!! Deu até pra min fazer um LOG de páginas acessadas com a Hora, Titulo da página e URL. to penssando agora em criar um tipo de proxy. fiz alguns teste e os resultados foram: Pós: Faz download de arquivos é possivel acessar Path e Ftp, tem um evento onde atualiza ao texto da barra de status altomaticamente, exibe o titulo da pagina e atualiza a barra de endereços contra: Não funciona apresentações do Flah e nem o site do Itau por exemplo. Bom as apresentações Flahs exibe no lugar uma imagem que quando clicado o componente tenta navegar para o site do adobe para baixar algum plugin porem não vai. Com isso da pra mim fazer varias coisa, Valeu mesmo!!!!! Mas eu to precisando dele no momento pra vizualizar htmls locais mesmo, tipo eu tenho um código pra enviar email por SMTP em formato Html e eu queria principalmente este componente para pré vizualizar os email enviados, etc. Valeu Fuiiii!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Boa tarde!!! Umas função que eu já tinha pronto é esta: Private Function CalcularIdade(DataInicial As Date, DataFinal As Date) As String Dim Anos, Meses, Dias Dim Ianos, Imeses, Idias As Double Dim Diferenca As Double If IsNull(DataInicial) Or DataInicial > Now Or DataInicial > DataFinal Then CalcularIdade = "Você ainda não nasceu." Exit Function End If Diferenca = DataFinal - DataInicial Ianos = Diferenca / 365.25 Anos = Int(Ianos) Imeses = (Ianos - Anos) * 12 Meses = Int(Imeses) Dias = DateDiff("D", DateSerial(DatePart("yyyy", DataInicial) + Anos, DatePart("m", DataInicial) + Meses, Day(DataInicial)), DataFinal) If Dias = 30 Then Dias = 0 If Meses = 12 Then Meses = 0 Anos = Anos + 1 End If If Anos > 1 Then Anos = Anos & " anos " Else Anos = Anos & " ano " End If If Meses > 1 Then Meses = Meses & " meses " Else Meses = Meses & " mês " End If If Dias > 1 Then Dias = Dias & " dias " Else Dias = Dias & " dias " End If CalcularIdade = Anos & Meses & Dias End Function A partir deste código você pode aprimorar para calcular alem dos Anos, Meses e Dias as Horas, Minutos e Segundos. beleza!!!

Serial legal comentarios sobre a tela tipo Pra que serve o programa, e algumas funções usadas na tela exemplo um programa de abertura de chamdos tem a tela de abertura de novo chamado ai vocês poderiam colocar por exemplo que usou o winsock para enviar email avisandos os tecnicos que a um novo chamado e etc. bele eu tambem vou enviar algumas imagens de meus projetos, mais não fiquem muito entusiasmados pois eu nunca liguei muito para o designer, mas já estou mudando de opnião pois ficou muito legal essas telas que vocês postaram da até mais confiança no sistema e mais vontade de mexer. Fuiiii! T+

Essa história de contest é bem antiga em! Pelo jeito vocês desistiram dessa história, mas gosteie dessa ideia ainda mais agora que os usuários iniciantes da época já devem ter um bom conhecimento. bom eu me concidero um programador VB nivel intermediario porem aprendi tudo na raça virando noites tentando fazer alguns projetos sem nexo e alguns só por diversão. eu começei primeiramente pelo VBA do Access no 1º semestre de 2005 e fiz alguns projetos o maior deles foi um Sistema de Processos Trabalhistas hoje com milhares de registros e em uso constantemente. hoje eu vejo que o Access não é a melhor ferramenta para se armazernar grades números de registros e com mais de 90 formulários e relatórios, e este mês resolvi criar um novo projeto em VB e SQL server ou Oracle, bom ainda não conclui o projeto e por este motivo gostaria que o contest se realiza-se novamente para aumentar e exercitar meus conhecimentos. bom eu fugi só um ponquinho do assunto, rs :D mas é isso, acho que com o passar do tempo o site deve ter mais usuários interessados. bom não sei, mas se resolverem criar outro contest podem contar comigo, bele!!!! A melhor forma de se aprender é ensinando!!!!

Ola pessoal!!! Quando tento adicionar o componente "Microsoft Internet Controls" da o seguinte erro "File not Found: 'C:\Windows\system32\ieframe.dll\1'". Bom provavelmente é erro na dll, mas como faço para arrumar. se for muito complicado então de qual forma eu posso navegar na internet? eu só quero o basico da navegação tipo voltar, avançar e navegar para uma serta URL. É basicamente isso pois quero criar digamos que um Proxy quando a pessoa digitar uma URL então o sistema vai verificar em um banco de dados as pemições e navegar a url ou retornar um erro. ------------------------------- Eu encontrei uma referencia com o mesmo nome do componente "Microsoft Internet Controls" quando eu faço Dim Web as new WebBrowser e digito Web. me lista todas as propriedades incluindo as de navegação tipo Web.Navigate Web.GoBack etc mas como eu faço para associar à por exemplo uma picturebox para quando eu navegar para alguma URL o site aparecer em uma picturebox ou qualquer outro componente? Desde já agradeço!

Para savar a combo2 em um campo no Access você pode fazer o seguinte: Esse código não salva no registro do Access ma já da para ter uma ideia 'Salvar lista delimitando por ";" Private Sub Command1_Click() Dim i As Integer Dim sTexto As String sTexto = "" sTexto = Me.Cmb1.List(0) For i = 1 To Me.Cmb1.ListCount sTexto = sTexto & ";" & Me.Cmb1.List(i) Next i Me.Txt1 = sTexto End Sub depois para recarregar na combo você pode fazer o seguinte 'Recarregando combo Private Sub Command2_Click() Dim i As Integer Me.Cmb2.Clear i = 1 Do While Parse$(Me.Txt1, i, ";") <> "" Me.Cmb2.AddItem Parse$(Me.Txt1, i, ";") i = i + 1 Loop End Sub você precisara ter em um módulo o seguinte Código 'Função para retornar o valor de um texto delimitado Function Parse$(ByVal sString As String, iReq As Integer, sDelim As String) Dim sSt As String, iCnt As Integer, iPos As Integer If Len(sDelim) = 0 Then sDelim = "," sSt = sString & sDelim For iCnt = 1 To iReq iPos = InStr(sSt, sDelim) If iPos Then If iCnt = iReq Then ' Requested string Parse$ = Left$(sSt, iPos - 1) Exit For End If If iPos = Len(sSt) Then ' No string left Parse$ = "" Exit For End If sSt = Mid$(sSt, iPos + Len(sDelim)) Else Parse$ = sSt Exit For End If Next iCnt End Function Essa é uma das formas possives a outra eu já t passo bele!

aproceitando o assunto sobre WebBrowser sera que alguém poderia por favor me enviar a DLL ou o OCX do WeBrownser pois no meu PC está dando erro ao tentar adicionar no formulário o "Microsoft Internet Controls" (C:\Windows\system32\ieframe.dll) erro File Not fond C:\Windows\system32\ieframe.dll\1 Obrigado!!!!

Tente isso: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) if cells(1,1) < cells(1,2) then call macro1 end if End Sub