Ir para conteúdo
Fórum Script Brasil

Danleonhart

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    574

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Danleonhart

  2. Usuários do Script Brasil com aspectos de "Cracker"

    em Visual Basic

    Postado

    OK !

    1º- Eu não sou rato;

    2º- O lugar que ele pode chegar assim é à cadeia...ou até mesmo o cemitério !

    Vamos supor q esse medico conseguil desenvolver uma cura pra alguma doença

    ele tem q testar , ver os efeitos colaterais e tudo mais

    ele precisa testar em alguém

    pra isso existem so Ratos ^^

    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 !

  3. Usuários do Script Brasil com aspectos de "Cracker"

    em Visual Basic

    Postado

    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" <_<

    ...

  5. [OFF] Garbage Colector no VB-6

    em Visual Basic

    Postado · Editado por Danleonhart

    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 !!!

  9. [Resolvido] TextStream - Quantidades de linhas suportadas.

    em Visual Basic

    Postado · Editado por Danleonhart

    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

  10. Visual Basic 6 - Banco de dados

    em Visual Basic

    Postado

    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...Legal.gif

  12. Usuários do Script Brasil com aspectos de "Cracker"

    em Visual Basic

    Postado · Editado por Danleonhart

    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: .

  16. (Resolvido) Prompt de Comando e VB

    em Visual Basic

    Postado

    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.

  17. (Resolvido) Prompt de Comando e VB

    em Visual Basic

    Postado · Editado por Danleonhart

    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 ?!

  19. Enviando arquivos com winsock

    em Visual Basic

    Postado · Editado por Danleonhart

    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.

  22. Inserir Tipo Binário no BD com parâmetro

    em Visual Basic

    Postado

    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 ! Legal.gif

  23. Inserir Tipo Binário no BD com parâmetro

    em Visual Basic

    Postado · Editado por Danleonhart

    Kuroi...

    Com a sugestão o erro passou a ser este:

    001-3.png

    :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 ! top.gif

    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.

  24. Dúvidas com Bytes

    em Visual Basic

    Postado

    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

  25. Inserir Tipo Binário no BD com parâmetro

    em Visual Basic

    Postado

    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: Erro2.png 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

×
×
  • Criar Novo...