Quelqu'un pourrait'il m'aider sur une source assez compliqué ! merci

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Quelqu'un pourrait'il m'aider sur une source assez compliqué ! merci

remixgame

voici la source

Code :

Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000
Sub Download(URL As String, SaveAs As String)
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
Open SaveAs For Binary Access Write As #1
Put #1, , sBuffer
Close #1
If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
End Sub

ce que j'aimerais c'est ecrire dans un label ou un text
le nombre de bytes à lire et le nombre de byte lu
pour faire une barre de téléchargement
MErci

Message édité par remixgame le 23-08-2002 à 17:28:35

Publicité

remixgame

s'il vous plait aidez moi !!!!!!

botman

Cubeur

remixgame a écrit a écrit :

s'il vous plait aidez moi !!!!!!

c'est du Lustre ca [:totoz]

---------------
"OCPLB : On Casse Pas Le Binôme, 'moiselle Jade, Carlson & Peters, page 823 !"

remixgame

C'est bien dans l'histoire d'avoir repondu mais bon tu n'es pas plus fort que moi et tu ne m'aides pas alors je ne vois pas l'utilité d'envoyer des messages bidons !

MagicBuzz

Ben pour le nb de bytes téléchargés, c'est len(sBuffer)
(le calculer via le left$ et additionner si tes fichiers sont trop gros)

maius la taille totale, j'ai pas l'impression que tu puisses la savoir à l'avance.

taureau

pour obteniur la taille totale du dois passer par l'api HttpQueryInfo (voir l'aide) tu lui passes un buffet vide et elle va te retourner la taille que tu devras alors allouer pour récupérer le doc...

Musaran

Cerveaulté

Je sais que ce n'est pas la question, mais ceci:

bDoLoop = True
While bDoLoop
'...
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend

Équivaut à ceci:

Do
'...
While CBool(lNumberOfBytesRead)

Cette ligne risque d'être très lente avec de grandes tailles:

sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)

Pourquoi la lecture se fait-elle en plusieurs fois ?

---------------
Bricocheap: Montage de ventilo sur paté de mastic silicone

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Quelqu'un pourrait'il m'aider sur une source assez compliqué ! merci

Sujets relatifs
Est-ce compliqué de faire un menu style Menu démarrer ?	[open gl] c quoi la différence entre une source de lumière et...
[SHELL-SCRIPT] forwarding files by mail [RESOLU] merci	Qqun pourrait faire ça ?
A ceux qui utilisent ANT...[Résolu merci Dark et Greg]	[MERCI RESOLU] shell sh....AWK grace au melange d'idees
Pouvez vous m'aider mise en forme de nombre ! svp	[PHP] je ne capte pas !! [RESOLU] MERCI Mais ya encore une question !
[PHP] Jeux en open source e php/sql	[MySQL] Pourrait on m expliquer........
Plus de sujets relatifs à : Quelqu'un pourrait'il m'aider sur une source assez compliqué ! merci

Page générée en 0.057 secondes