Aldeia RPG

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Suporte no desenvolvimento de jogos


    UPload Dowload files with rgss!!!!! Ayuda criar una window!!!!!

    urbios
    urbios
    Iniciante
    Iniciante

    Mensagens : 75
    Créditos : 22

    UPload Dowload files with rgss!!!!! Ayuda  criar una window!!!!! Empty UPload Dowload files with rgss!!!!! Ayuda criar una window!!!!!

    Mensagem por urbios em Sab Ago 01, 2015 3:59 pm

    UPload Dowload files with rgss!!!!! Ayuda  criar una window!!!!! Sans_t11

    http://www.rpg-maker.fr/index.php?page=scripts&id=211 orignial link script




    Olá amigos, eu preciso saber com urgência. e eu posso usar este código de script. Meu problema é que eu tenho que projetar um wiindow. i exibir arquivos de downloads. mas o script só vem com nenhuma janela. um dia me adicionar uma janela .com o progresso do download que eu gosto na foto, por favor. mui me é urgente esse script. O atualizador usará como meu jogo. porfabor se alguém puder ajudar, eu vou ser eternamente grato

    here the script T.T








    Código:


    #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

    #                    Telechargement de fichiers avec Rmxp

    #  par berka                      v 2.1                     rgss 1

    #                          www.rpgmakervx-fr.com                                          

    #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

    # ! Ne pas utiliser de serveur ftp contenant ds données perso et confidentielles

    # ! ce script possède vos identifiants ftp: un  crack du projet les rend publics

    #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

    # Ftp :

    #     ▼ Recevoir :

    #           Net:tp.download("dos_sur_ftp/fichier.zip","./Graphics")

    #     ▼ Envoyer :

    #           Net:tp.upload("./Graphics/fichier.zip","/dos_sur_ftp/fichier.zip")

    #     ▼ Créer un répertoire distant :

    #           Net:tp.mkdir("/dos_sur_ftp")

    # Http :

    #     ▼ recevoir :

    #           Net::Http.download("url","./Graphics")

    #     ▼ total octets téléchargés :

    #           Net::HTTP.transfered

    #     ▼ Taille du fichier :

    #           Net::HTTP.size("test.zip")

    #     ▼ % de progression :

    #           Net::HTTP.progress("test.zip")

    #     ▼ temps de transfert individuel:

    #           Net::HTTP.temps("test.zip")

    #     ▼ fichiers à télécharger :

    #           Net::HTTP.transfers

    #     ▼ fichier téléchargé ? :

    #           Net::HTTP.loaded?("test.zip")

    #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

    module Berka

      module NetError

        ErrConIn="Impossible de se connecter à Internet"

        ErrConFtp="Impossible de se connecter au Ftp"

        ErrConHttp="Impossible de se connecter au Serveur"

        ErrNoFFtpIn="Le fichier à recevoir n'existe pas"

        ErrNoFFtpEx="Le fichier à envoyer n'existe pas"

        ErrTranHttp="Le téléchargement Http a échoué"

        ErrDownFtp="Le téléchargement Ftp a échoué"

        ErrUpFtp="L'envoi Ftp a échoué"

        ErrNoFile="Aucun fichier à télécharger"

        ErrMkdir="Impossible de créer le répertoire distant"

      end

    end

    module Net

      W='wininet'

      SPC=Win32API.new('kernel32','SetPriorityClass','pi','i').call(-1,128)

      IOA=Win32API.new(W,'InternetOpenA','plppl','l').call('',0,'','',0)

      IC=Win32API.new(W,'InternetConnectA','lplpplll','l')

      print(Berka::NetErrorErr::ConIn)if IOA==0

      module FTP

        FSCD=Win32API.new(W,'FtpSetCurrentDirectoryA','lp','l')

        FGF=Win32API.new(W,'FtpGetFileA','lppllll','l')

        FPF=Win32API.new(W,'FtpPutFile','lppll','l')

        FCD=Win32API.new(W,'FtpCreateDirectoryA','lp','l')

        module_function    

        def init

          #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#

          ftp="ftp.server.com"          #

          port=21                       #  A modifier !

          identifiant="user"            #

          motdepasse="password"         #

          #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-#

          @fb=IC.call(IOA,ftp,port,identifiant,motdepasse,1,0,0)

          ftp,port,identifiant,motdepasse=[nil]*4 # efface les ids par sécurité

          (print(Berka::NetError::ErrConFtp))if @fb==0

        end

        def download(ext,int='./')

          init if @fb.nil?    

          c=ext.split('/').pop

          if FSCD.call(@fb,ext.gsub(c,''))!=0

            print(Berka::NetErrorErr::ErrDownFtp)if FGF.call(@fb,c,"#{int}/#{c}",0,32,2,0)==0

          else

            print(Berka::NetErrorErr::ErrNoFFtpIn)

          end

        end

        def mkdir(rep)

          init if @fb.nil?

          print(Berka::NetErrorErr::ErrMkdir)if FCD.call(@fb,rep)==0

        end

        def upload(int,ext)

          init if @fb.nil?

          if FSCD.call(@fb,ext)&&File.exist?(int)

            print(Berka::NetErrorErr::ErrUpFtp)if FPF.call(@fb,int,ext,2,0)==0

          else

            print(Berka::NetErrorErr::ErrNoFFtpEx)

          end

        end

      end

      #-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

      module HTTP

        IOU=Win32API.new(W,'InternetOpenUrl','lppllp','l')

        IRF=Win32API.new(W,'InternetReadFile','lpip','l')

        ICH=Win32API.new(W,'InternetCloseHandle','l','l')

        HQI=Win32API.new(W,'HttpQueryInfo','llppp','i')

        module_function

        def sizeloaded(i='');@read;end

        def transfered;@dloaded;end

        def transfers;@dls;end

        def progress(i='');(@read.to_f/@size*100);end

        def loaded?(i='');@read>=@sizerescue nil;end

        def temps(i='');@tpsif loaded?(i);end

        def size(i='');@size;end

        def download(url,int='./')

          @dloaded||=0;@dls||={};@i||=-1;@size||={};@read||={};@tps={}

          a=url.split('/');serv,root,fich=a[2],a[3..a.size].join('/'),a[-1]

          print(Berka::NetErrorErr::ErrNoFile)if fich.nil?

          @dls[fich]=Thread.start(url,int){|url,int|txt='';t=Time.now

          Berka::NetErrorErr::ErrConHttp if(e=IC.call(IOA,serv,80,'','',3,1,0))==0  

          f=IOU.call(IOA,url,nil,0,0,0)

          HQI.call(f,5,k="\0"*1024,[k.size-1].pack('l'),nil)

          @read[fich],@size[fich]=0,k.delete!("\0").to_i

          loop do

            buf,n=' '*1024,0

            r=IRF.call(f,buf,1024,o=[n].pack('i!'))

            n=o.unpack('i!')[0]

            break if r&&n==0

            txt << buf[0,n]

            @read[fich]=txt.size

          end

          (File.open(int+fich,'wb') << txt).close

          @dloaded+=@read[fich]

          ICH.call(f);sleep(0.01)

          @tps[fich]=Time.now-t}

        end

      end

    end


    _________________
    RPG maker XP in android? Razz :

      Data/hora atual: Sex Jul 10, 2020 3:30 am