Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Posts postados por kuroi

  1. hum... tente trocar "windir" por "systemroot" no xp e veja se não funciona.

    Beleza, agora as pastas Prefetch e dllcache foram apagadas, só que %temp% e temp continuam cheias. Será que não tem algum erro nestes primeiros códigos. O erro Run time error '5': Invalid Procedure call or argument Na última linha "Shell Environ("windir") & ("\system32\dfrg.msc"), vbNormalFocus" na última linha ainda continua. Me dá uma força aí!!!! Valeu.

    sim, acho q o xp nem sempre reconhece a variavel "windir" (apesar q aqui ta reconhecendo), troque por "systemroot" ai tb.

    quanto as pastas temp, veja q você ta colocando o caminho direto. no windows xp, o caminho tb é "C:\Users\"?? acho q seria em "C:\Documents and Settings\" não??

    ou use a variavel "TEMP", q deve funcionar.

    se não der certo, então cheque o retorno da SHFileOperation(). ele vai retornar um numero de acordo com o erro q tiver acontecido. depois verifique nessa tabela pra saber qual o problema: http://msdn.microsoft.com/en-us/library/bb...v=vs.85%29.aspx (o codigo esta em hexadecimal na tabela).

  2. você tem q registrar a dll e adicionar a referencia Portable Network Graphics Library. depois de fazer isso, eu pude ver q ela apresenta o objeto PNGlib.cPNG q tem o metodo .LoadPNGFile(). mas se tentamos usar, recebemos a mensagem de erro "File zlib not Found.". acontece q essa dll utiliza a biblioteca zlib, então temos que baixa-la tb.

    tentei com essa aqui: http://gnuwin32.sourceforge.net/packages/zlib.htm mas ele simplesmente trava o programa e fecha. (fiz o seguinte: clique no link da opcao "Binaries", abra o zip, copie a zlib1.dll q esta na pasta bin e cole no mesmo diretorio onde esta a dll pnglib.dll q foi registrada. depois renomeie pra zlib.dll).

    então, talvez ele não seja compativel com essa versao do zlib. tente procurar uma versao mais antiga e veja se não funciona.

    quando você comentou a primeira vez sobre o pnglib, eu fiz uma pesquisa e vim parar aqui: http://www.madwizard.org/programming/projects/pnglib

    parece ser uma outra biblioteca com o mesmo nome. entretanto, ela só possui os codigos fontes em assembly e um header pra você utilizar no visual c++. talvez, se conseguissemos compila-la pra dll dentro do visual c++ ou outro compilador de c, conseguissemos usa-la no visual basic 6, mas como ela não foi feita exatamente pra isso, não sei se teria compatibilidade com os objetos do vb6, talvez tivessemos muito mais trabalho pra adaptar.

    entretanto, aqui nesse link: http://www.vbforums.com/showthread.php?t=509292

    você tem uns exemplos de codigos pra ler .png no vb6. baixei o primeiro exemplo e funcionou certinho aqui. inclusive da pra simular transparencia, com algumas restricoes.

    os codigos utilizam somente funcoes das dlls do windows, não precisa instalar nd.

    EDITADO:

    o link do zlib q eu passei estava errado mesmo, o correto é esse: http://www.winimage.com/zLibDll/index.html

    o de cima era só ate windows 98, se não me engano. agora, consigo carregar a imagem no objeto, mas não estou conseguindo exibi-la com o metodo .DrawToDC(). vou ver se consigo alguma coisa e posto ai.

    mas, de qualquer forma, o link do vbforums deve funcionar.

    EDITADO DE NOVO:

    consegui, o codigo seria esse:

    Dim obj_png As PNGlib.cPNG
    Private Sub Command1_Click()
        Set obj_png = New PNGlib.cPNG
        
        If obj_png.LoadPNGFile("C:\caminho\imagem.png") = pngeSucceeded Then
            obj_png.DrawToDC Picture1.hDC, 0, 0
            Me.Refresh
        End If
    End Sub[/code]

    entretanto, testei com duas imagens e só funcionou em uma delas. não sei se é problema de formato ou outra coisa... alem de q não consegui exibir num objeto Image.

  3. você pode usar a funcao RmDir(). ou usar o objeto fso, por acaso, aqui tem um tópico q falamos exatamente sobre excluir pastas com fso: http://scriptbrasil.com.br/forum/index.php?showtopic=162075

    adicione a referencia Microsoft Scripting Runtime, declare o objeto Scripting.FileSystemObject e use o metodo .DeleteFolder(), passando o caminho da pasta como parametro.

    outra opcao seria usar comandos de dos com a funcao Shell().

    mas não sei se vai evitar erros caso tenha arquivo aberto, imagino q você vai ter procurar outra forma de contornar isso. não sei como o windows faz esse controle de se os arquivos estao sendo usados ou não, acho q você tera q pesquisar sobre isso.

    fora isso, sera q nenhuma dessas pastas seriam pastas protegidas do sistema?? sera q o windows vai ter dar permissao pra exclui-las?? você já tentou??

  4. hum... eu não conheco exatamente tudo sobre direito, mas pelo q vejo por ai, mesmo q não tenha exatamente uma lei q incrimine diretamente essa sua ideia, imagino q qualquer bom advogado pode arranjar bons motivos pra te processar.

    sendo assim, caso o seu site cresca bastante e, principalmente se você estiver ganhando dinheiro com isso, pode acabar tendo problemas mais tarde.

    realmente, tem mtos sites por ai hospedando eles proprios esse tipo de material, mtas vezes durante anos, sem muito problema.

    muito possivelmente você tb acabe não tendo problemas maiores do q ser obrigado a remover um link ou otro, mas acho perigoso. se o seu site crescer muito e comecar a incomodar os donos dos direitos autorais, ai a coisa pode complicar bastante pro seu lado.

    bom, levando em conta q eles não conseguem derrubar esses varios sites de torrents q tem por ai, talvez você tb consiga se sair bem caso tenha uns advogados muito bons (e caros) tb, então esteja preparado pra gastar com causas juridicas.

    mas não sei se essa sua ideia vai ter muito sucesso não viu. esses filmes e series q ficam hospedados em servidores, geralmente não duram muito e logo são apagados e os links se quebram. alem do mais, a maioria dos links provavelmente vai estar em servidores como rapidshare e etc, e as maioria das pessoas não vai estar contente em ter q comprar uma conta no site de hospedagem, ou ter q ficar quase a semana inteira baixando as varias partes do filme por conta do limite de download e de tamanho de arquivos.

    esse tipo de coisa só tem sucesso mesmo em p2p.

    mas tb não sei dizer quanto ao adsense.

  5. Pensei em fazer um gambiarra, criar uma li com uma figura invisível para ajustar o tamanho das restantes, mas isso acho que não é a melhor opção.

    não entendi o q quis dizer. se você quer mudar o tamanho das lis, use a propriedade width.

    aqui tb tem um tutorial pra construir esse menu com css: http://maujor.com/tutorial/ddownmenu.php

    agora, pra adicionar os efeitos, tipo a expansao do menu, vai ser necessario usar javascript.

  6. Eu deixei a parte do script:

    Set MyFiles = Folder.files     
        If Right(myfiles.name,3) = tipo And DateDiff("d",myfiles.DateLastModified,now) > strData Then[/code]

    pois deduzí que é ele que dá a condição de filtrar o que deve e quando ser deletado...

    é, mas nessa hora o q devia ser testado era o .DateLastModified da pasta. Folder.Files é um conjunto de objetos Scripting.File e nem possui essa propriedade (cada arquivo dentro dele sim. você poderia checar com o For Each, como no codigo do primeiro post, mas acho q não é isso o objetivo do tópico).

  7. continua retornando o mesmo erro: Run-time error '53': File not found

    esse erro estava acontecendo no primeiro codigo tb?? você tem mesmo certeza q esse arquivo c:\users\sergio\Desktop\teste.txt existe nesse caminho mesmo??

    tente pegar esse valor retornado pelo Environ("userprofile") & ("\Desktop\teste.txt") e digite na barra de enderecos do explorer pra ver se o windows encontra.

    ou passe-o pra funcao Dir() no visual basic, pra ver se tem algum retorno.

    ou talvez o arquivo esteja no Desktop de All Users e não no desse usuarios especifico.

  8. exemplo= (TEST) {0};

    é q essa linha faz o seguinte: uma struct Teste é alocada em alguma regiao qualquer da memoria a partir de (TEST) {0}. essa struct alocada é então toda copiada para a regiao da memoria onde esta a struct declarada como exemplo. depois da copia, o espaco q foi alocado originalmente por (TEST) {0} é destruido. ou seja, a primeira passagem pelo destructor é na verdade no destructor da struct q foi alocada num espaco qualquer apenas para ser copiada em exemplo. a struct exemplo continuada alocada.

    a segunda passagem no destructor, essa sim esta destruindo a struct exemplo. ela ocorre quando o programa é encerrado e a memoria esta sendo desalocada.

    há um tempo atras tb tive uma duvida parecida, mas no caso era com objetos e não na struct: http://scriptbrasil.com.br/forum/index.php?showtopic=147333

×
×
  • Criar Novo...