Danleonhart

EDITADO (kuroi): Links removidos pra não causar mais dicussões.

OK ! 1º- Eu não sou rato; 2º- O lugar que ele pode chegar assim é à cadeia...ou até mesmo o cemitério ! Disse tudo ! Eu testo os meus conhecimentos em computadores virtuais, e quando se trata de hardware, compro PC's com defeito para tal fim... existem outras maneiras dele testar seus conhecimentos sem precisar prejudicar outras pessoas... se ele assim o faz é consciente !

Densyy Em nenhum momento citei a palavra "Hacker"...veja bem o título... Hacker é um termo usado para indicar um indivíduo que pode elaborar e modificar softwares e hardwares de computadores, desenvolvendo ou não novas funcionalidades ou até mesmo adaptando novas funções as antigas. Já o Cracker, é usado para indicar um sujeito que tem a prática de quebrar a segurança de um sistema, de forma ilegal e sem ética. Usar conhecimento para fins maldosos é a prova de completa ignorância...não considero pessoas assim inteligentes... se ele (ou seja mais quem) quiser seguir esse caminho, que siga... tudo sempre tem retorno... "Toda ação gera uma reação..." Se ele quer protestar, vá tentar invadir o "Banco Central", não o meu PC... eu não fiz nada com ele... isso é uma desculpa esfarrapada igual a que usam os ladrões pé de chinelo que quando são presos dizem que é a sociedade que o forçaram a isso... se fosse assim, todo mundo iria roubar ! Verdadeiros Hackers são aqueles do grupo Anonymous...que em protesto ao fechamento do Megaupload tiraram do ar os sites da gravadora Universal Music... esses que vivem de roubar Orkut e MSN merecem é uns tapas para criarem vergonha na cara e irem procurar o que fazer...além de sujar o nome dos "programadores"...pois na grande maioria usam o "copiar & colar" de scripts de outros... e se intitulam "Hackers" <_< ...

Bem, achei algo, mas aceito opiniões :rolleyes: http://www.linhadecodigo.com.br/artigo/110...o-de-um-gc.aspx

Pessoal... Acho que já ouviram falar do GC do VS 2010 (Garbage Colector = Coletor de Lixo)... Tenho um projeto que tem 34 variáveis e gostaria de destruílas todas antes de encerrar a aplicação... Estou usando o método tradicional: 'Para String, Integer, Long, Single, Byte, Boolean: variavel = Empty 'Para objetos: Set objeto = Nothing 'Para Arrays Erase variavel_Array Gostaria de saber se tem uma maneira mais prática de se fazer isso... de preferência sem utilizarAPI (senão deixa de ser prática :D) VALEU !!!

OK ! É uma possibilidade...até porque passei os últimos dias recebendo esses e-mails... para evitar atritos vou retirar as imagens...

Poxa cara... o TextBox é tão resumido assim... não sabia... substitui pelo RichTextBox e foi carregado todas as 27.592 linhas que estavam em um ".txt"... Valeu mais uma vez Kuroi ! Agora ADM. hein ! mereces .

Bem, continuo sem carregar todas as linhas arquivo de texto... :mellow:

Pessoal... Tenho um script que funciona perfeitamente para carregar um arquivo ".txt" em uma TextBox... ele lê linha a linha do arquivo, coloquei desta forma pois as vezes preciso configurá-lo devido a algumas quebras de texto...mas isso não é problema. O problema é a quantidade de linhas suportada pelo Stream...quando chega em 12.588 ele finaliza o carregamento... e tem arquivos ".txt" com mais de 20.000 linhas... Tem alguma maneira de aumentar esse limite ??? :mellow: Meu script: Private Sub OpenTexto(ByVal fileCam As String, ByRef oBtxtBox As TextBox) Dim Texto As String Dim cont As Long, l As Long oBtxtBox.Text = Empty Set FSO = New Scripting.FileSystemObject Set sTex = FSO.OpenTextFile(fileCam, ForReading, True) Do Until sTex.AtEndOfStream DoEvents l = l + 1 If cont = 4 Then DoEvents oBtxtBox.Text = oBtxtBox.Text & sTex.ReadLine & vbNewLine cont = 0 Else DoEvents oBtxtBox.Text = oBtxtBox.Text & sTex.ReadLine & "," cont = cont + 1 End If LbNum.Caption = IIf(Format(l, "###,##0") <= 1, l & " Linha.", Format(l, "###,##0") & " Linhas.") Loop sTex.Close End Sub

Olá Shuhei... Aconselho usar o Access mais recente...já tive problemas ao usar um banco criado com o Visual Data Manager ( que cria banco de dados Access na versão 7.0) em sistema Windows Seven... Em relação a sua dúvida confesso que fiquei perdidinho no texto :D mas se o que quer é criar um BD (Bando de Dados) para acessar com uma aplicação VB-6, e fazer consultas,inserções, edições e exclusões dos dados nele contido então avisa aê que damos uma força... até porque no fórum tem inúmeros tópicos sobre o assunto...alguns deles com dúvidas minha :) Se é isso, avisa e diz como vai ser a estrutura da Tabela que vai receber os dados... tipo assim: Campos: Controle - para receber um número (Index) que identifica o objeto, ou pessoa incluso na tabela (com auto incrementação); Nome - para receber o nome do objeto, pessoa ou seja lá o quê... Data_de_Cadastro - para receber a data em que foi cadastrado o objeto, pessoa ou seja lá o quê... OBS - para receber alguma observação do objeto, pessoa ou seja lá o quê... Isso é só um exemplo para você se basear e dizer como quer que seja sua Tabela... a partir disso começa-se a relacionar o aplicativo VB com o BD... através do CRUD (que são as 4 operações básicas utilizadas em banco de dados relacionais)... que nada mais é que o acrônico de: Create - Inserir (INSERT) Read - Ler (SELECT) Update - Atualizar/Editar (UPDATE) Delete - Apagar (DELETE) Aí você vai tentando... e no que for surgindo as dúvidas você vai postando...

Safis... Está usando DAO ou ADO ??? :huh: se for ADO, pode dá uma olhada aqui no fórum procurando em tópicos criado por mim que tive muitas dúvidas sobre o mesmo :rolleyes: Alguns: http://scriptbrasil.com.br/forum/index.php?showtopic=158897 http://scriptbrasil.com.br/forum/index.php?showtopic=158472

Pessoal... Sei que o fórum não tem nada a ver com este tópico, mas estou postando para alertar a todos sobre os "tipos" de usuários que procuram usar a linguagem de programação para fins maldosos... Recebí este e-mail hoje...vejam bem na parte de remetente...é um usuário do fórum ! *** IMAGENS RETIRADAS *** *** IMAGENS RETIRADAS *** este usuário aparentou ser uma pessoa de boa índole...mas se revela ser uma pessoa sem escrúpulos... isso é CRIME VIRTUAL !!! fiquem atentos pois este não é o único que está fazendo isso ! desenvolvendo scripts para causar problemas aos outros :angry: .

Olá amigo ! Poderia ser isso que procuras ??? http://www.elguille.info/vb/ejemplos/coolbar.htm http://www.macoratti.net/vbmnu_pro.htm

Nossa cara ! :blink: quanta API só para usar o Prompt via VB ! :wacko: Valeu pelo link... estou buscando outras alternativas :rolleyes: .

Porque será via Winsock... são 5 PC's que estou a monitorar...inclusive algumas pastas também. Não tenho permissão de instalar softwares...mas posso criar um para monitorar a sala onde trabalho :closedeyes: .

Esse mesmo comando... se coloco "DIR > "C:\Dados.txt"" é gravado no arquivo todos as pastas e arquivos do disco C: , porém as letras ficam confusas... assim: ----------------------------------------------------------------------------- O volume na unidade C nÆo tem nome. O n£mero de s‚rie do volume ‚ 5C06-6FA8 Pasta de C:\Documents and Settings\User001 13/01/2012 13:15 <DIR> . 13/01/2012 13:15 <DIR> .. 10/01/2012 08:39 <DIR> .gimp-2.6 10/01/2012 08:39 1.589 .recently-used.xbel 19/12/2011 13:54 <DIR> .thumbnails 31/01/2011 22:22 <DIR> Application Data 05/09/2011 17:42 18.562 BAT.TXT 13/01/2012 17:30 <DIR> Desktop 23/05/2011 17:31 <DIR> Favoritos 13/01/2012 16:40 63 intlname.ols 16/03/2011 12:29 <DIR> Menu Iniciar 16/01/2012 09:49 <DIR> Meus documentos 12/02/2011 20:27 35.840 Quebra Senha Excel.xla 23/05/2011 14:35 <DIR> WINDOWS 4 arquivo(s) 56.054 bytes 10 pasta(s) 51.510.657.024 bytes dispon¡veis ------------------------------------------------------------------------------------ gostaria que ficasse com as letras normais...mesmo sem os acentos... e quanto a gravar, e depois apagar o arquivo, já faço assim...gostaria de fazer este retorno sem precisar salvar o arquivo no disco.

Como faço para receber em uma TextBox um retorno de um comando do Prompt ?! Assim: se executo "DIR" no Prompt é listado todos arquivos e pastas do diretório informado... como faço para que esse retorno seja apresentado em uma TextBox ? Não será apenas este comando que executarei... Outro detalhe é que se gravo em um arquivo de texto (usando o FSO) aparece alguns caractéres fora de padrão...tem como corrigir isso ?!

Aproveitando o tópico... Pode-se usar a mesma porta para 2 Winsocks ??? Tipo, enviar mensagem de texto e upload/download de arquivo :mellow:

Fala cara ! Você poderia dizer o quê quer fazer ??? tipo assim, sabendo como você vai usar fica fácil de te passar dicas de como fazer melhor. Um aviso de inicio é que o arquivo não é enviado de uma vez...ele é convertido em um array de Bytes, e desse array são enviados 8.000 bytes por etapas até finalizar todo o arquivo. CORREÇÃO: Pode ser enviado mais de 8000 bytes...só não sei até onde vai...pela lógica do tipo "Long" seria 2.147.483.647...que se dividir por 1.048.576 dará 2.048, ou seja, pouco mais de 2 MB.

OK ! :) Então realmente cada valor que separei trata-se de um Byte de informação do arquivo, certo ?

Valeu ! Vou pesquisar sobre isso pois estu achando que tem relação com essa tal variável "Scalar"...sempre que tento passando um nome dá erro apontando para essa variável "Scalar".

Kuroi, desculpe minha ignorância... mas poderia explicar a necessidade dessa parâmetro :huh: agora está inserindo normalmente ! Código: Sub Gravar_Modo_SQL() Dim Cmd As ADODB.Command Dim Inserir As String Dim b() As Byte Dim tam As Long b = Por_Em_Byte(camFoto, tam) Inserir = "INSERT INTO InDat(Nome,Foto)VALUES(?,?)" Abb Set Cmd = New ADODB.Command With Cmd .ActiveConnection = Con .Prepared = True .NamedParameters = False .CommandText = Inserir .CommandType = adCmdText .Parameters.Append .CreateParameter("Nome", adVarChar, adParamInput, 50, txtNome.Text) .Parameters.Append .CreateParameter("Foto", adLongVarBinary, adParamInput, tam, b) .Execute End With MsgBox "Salvo !", vbInformation Set Cmd = Nothing Con.Close End Sub Os tipos dos campos são: Controle = Integer => (3) = AdInteger Nome = VarChar => (200) = AdVarChar Foto = Image => (205) = AdLongVarBinary Fiz aquela dica que você falou...ver os tipos dos campos do banco, e de retorno recebi os números acima...foi só dá uma olhada na relação deles no Object Browser e configurar os parâmetros adequados :rolleyes: . VALEU !

Kuroi... Com a sugestão o erro passou a ser este: :mellow: Como se passa uma variável escalar no VB-6 ? :blink: Tou achando que o quê tá faltando é isso... <_< Quanto a explicação do ByVal e ByRef, muito explicativa mesmo ! o "Optional" eu já conhecia...sempre vem destacado entre colchetes "[]" nas funções...e o legal é que em algumas funções do VB pode-se ver as "Constantes" e "Types", e depois verificar no Object Browser a variedade de opções de preenchimento.

Seguinte... Estou dando uma estudada para melhor entender a conversão de arquivos para bytes...então me surgiram dúvidas que procurei no Google, e encontrei alguns tópicos bem interessantes... onde tirei e adquiri mais dúvidas :) Em um teste, peguei um arquivo (de imagem mesmo) e passei ele para um array de bytes... depois dei um "For Each" em cada parte do array... Gostaria de saber o que são esses números que recebi de retorno... são bytes ??? :huh: notei que os valores não ultrapassam o número 256... no "For Each" que usei coloquei um espaço entre cada parte... então os valores vieram dessa maneira: 2 25 189 202 45 127 32 30 4 12 67 249 e em algumas partes uma vasta sequência de zeros: 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Aqui o script que usei para o teste: Private Sub cmd_Bytes_Click() Dim b() As Byte fileNum = FreeFile Open vFile For Binary As #fileNum ReDim b(1 To LOF(fileNum)) Get fileNum, , b() Close fileNum Dim t As String For Each v In b() DoEvents t = t & v & " " Next v txtRes.Text = t End Sub

OK ! Para o BD Access funcionou assim: Sub Gravar_Modo_Access() Dim Cmd As ADODB.Command Dim Inserir As String Dim b() As Byte Dim tam As Long b = Por_Em_Byte(camFoto, tam) Inserir = "INSERT INTO InDat(Nome,Foto)VALUES(@Nome,@Foto)" Abb Set Cmd = New ADODB.Command With Cmd .ActiveConnection = Con .Prepared = True ' .NamedParameters = True .CommandText = Inserir .CommandType = adCmdText .Parameters.Append .CreateParameter("@Nome", adVarChar, adParamInput, 50, txtNome.Text) .Parameters.Append .CreateParameter("@Foto", adLongVarBinary, adParamInput, tam, b) .Execute End With MsgBox "Salvo !", vbInformation Limpar_Campos Set Cmd = Nothing Con.Close End Sub Não precisei setar o ".NamedParameters"... funcionou sem ele...só incrementei a minha função o retorno do tamanho do arquivo. Já com o SQL Serve está apresentando o seguinte erro: O script é esse: Sub Gravar_Modo_SQL() Dim Cmd As ADODB.Command Dim Inserir As String Dim b() As Byte Dim tam As Long b = Por_Em_Byte(camFoto, tam) Inserir = "INSERT INTO InDat(Nome,Foto)VALUES(?,@foto)" Abb Set Cmd = New ADODB.Command With Cmd .ActiveConnection = Con .Prepared = True .NamedParameters = True .CommandText = Inserir .CommandType = adCmdText .Parameters.Append .CreateParameter("?", adVarChar, adParamInput, 50, txtNome.Text) .Parameters.Append .CreateParameter("@foto", &HCD, adParamInput, tam, b) .Execute End With MsgBox "Salvo !", vbInformation Set Cmd = Nothing Con.Close End Sub