Ir para conteúdo

SKY CHEATS
Registre-se em nosso forum para ter acesso a todos os downloads obrigado pela sua visita
Bem Vindo! Registre-se em Nosso Fórum Para Ter Acesso Aos Downloads. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Register On Our Forum To gain Access to downloads.
We have brought you new cheats for samp 0.3z, Enjoy.

You are not connected. Please login or register


View previous topic View next topic Go down Message [Page 1 of 1]


Bom Fiz um Projeto Rapidinho que faz download de uma musica mp3 bom isso não é muito útil mais postei só para vocês terem uma noção a mais ou fazer que seu aplicativo realize algum download

In this tutorial I will show how make an application that downloads for ftp


PRINT





CODIGO COMPLETO
Code:
 Imports System.Net
Public Class Form1
    WithEvents Downloader As New WebClient
    Dim Download As New Uri("ftp://skycheat.p.ht/update/Bob Marley  One Love.mp3")
    Dim Local As String = Application.StartupPath & "\Bob Marley One Love.mp3"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Downloader.Credentials = New Net.NetworkCredential("uLOGINFTP", "PASSWORDFTP")
        Downloader.DownloadFileAsync(Download, Local)
    End Sub

    Private Sub Downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles Downloader.DownloadFileCompleted
        ProgressBar1.Value = 0
        MsgBox("COMPLETE")
    End Sub

    Private Sub Downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles Downloader.DownloadProgressChanged
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = ProgressBar1.Value + 1 Then

        ElseIf ProgressBar1.Value = 99 Then
            ProgressBar1.Value = 0

        End If
    End Sub
End Class
'CODIGO EXPLICADO
Code:

    Imports System.Net 'Suporte De Download EMCIMA DA CLASS
    '------------------------------------------------CODIGOS ABAIXO DA CLASS----------------------


    WithEvents Downloader As New WebClient 'Variavel Global Com A Função Webclient
    Dim Download As New Uri("ftp://skycheat.p.ht/update/Bob Marley  One Love.mp3") 'Variavel Do Local Do Link Do Download
    Dim Local As String = Application.StartupPath & "\Bob Marley One Love.mp3" 'Local Onde o arquivo vai quando terminar o download ou seja na pasta do aplicativo codigo que faz o arquivo ir para pasta Application.StartupPath 

'ATENÇÃO ESTE CODIGO VAI NO INICIO DO PROGRAMA

'CODIGO DO BOTÃO DOWNLOAD

  Downloader.Credentials = New Net.NetworkCredential("uLOGINFTP", "PASSWORDFTP") 'ATENÇÃO ESTA EM "LOGINFTP" COLOQUE SEU LOGIN FTP E EM "PASSWORDFTP" SENHA DO FTP 
  Downloader.DownloadFileAsync(Download, Local) 'Downloader , Variaval Global ,            DownloadFileAsync Função que faz o download "(Download, Local)" Variavel Do Local Do Link

' Sub ' DA VARIAVEL GLOBAL "Downloader_DownloadFileCompleted"
 


'-----------------------------

        ProgressBar1.Value = 0 'Zera a Progressbar
        MsgBox("COMPLETE") 'Mensagem que  o download termino

    End Sub


' Sub De ' Progresso De Download "Downloader_DownloadProgressChanged"

 ProgressBar1.Value = ProgressBar1.Value + 1 ' Adiciona 1 PORCENTO NA PROGRESS BAR
 If ProgressBar1.Value = ProgressBar1.Value + 1 Then ' Adiciona 1 PORCENTO NA PROGRESS BAR

  ElseIf ProgressBar1.Value = 99 Then 'ProgressBar1.Value = 99 VALOR DA PROGRESSBAR 99%
  ProgressBar1.Value = 0 'ZERA PROGRESSBAR
  '    MsgBox("Arquivo baixado 'Este arquivo está na pasta deste programa'",    'MESSAGEM 
        End If

RESULT

Attachments
Downloader.zip
You don't have permission to download attachments.
(181 Kb) Downloaded 2 times
















Deus ainda não terminou comigo
Eu sinto a mão Dele na minha cabeça
Quando escrevo as rimas, eu fico cego, e deixo o Senhor fazer seu trabalho




Never forget, that God hasn't finished with me yet
I feel his hand on my brain
When I write rhymes, I go blind, and let the lord do his thang

















View user profile http://sky-cheat.0wn0.com

View previous topic View next topic Back to top Message [Page 1 of 1]

Permissions in this forum:
You cannot reply to topics in this forum