De retour avec un nouveau problème juste pour votre plaisir et pour mon mal de boulare.
Voilà un bout de code qui ne fonctionne pas et qui pourtant devrait fonctionner me semble-t-il
Code : Tout sélectionner
(...)
ElseIf EventGadget = #BT_telech
login$=GetGadgetText(#Login)
Mdp$=GetGadgetText(#Pass)
If login$="" Or Mdp$=""
MessageRequester("Oupsss",LocalText("You have to enter your premium login and password","Vous devez renseigner les champs Login & Mot de passe de votre compte rapidshare premium"))
Else
url.s=GetGadgetText(#Main)
LenUrl=Len(url)
Entete$="http://"
Extension$=Right(url,4) ; récupère l'extension
If Left (url,7)=Entete$
NewUrl$=ReplaceString(url,Entete$,Entete$+login$+":"+Mdp$+"@")
MessageRequester("Test1","Nouvelle Adresse"+Chr(10)+NewUrl$) ;- test1
CheminInitial$ = DefPath$
Chemin$ = PathRequester("Choisissez un répertoire", CheminInitial$)
If Chemin$
MessageRequester("Info",LocalText("Please wait during download","Merci de patientez pendant le téléchargement"))
FichierTelech$="PlumeSave"+Extension$
MessageRequester("test2",Chemin$+FichierTelech$) ;- test2
SetClipboardText(NewUrl$)
URLDownloadToFile(NewUrl$,Chemin$+FichierTelech$) ; si je lance le debug il affiche 0
MessageRequester("Info",LocalText("Download Complete "+Chemin$+FichierTelech$,"Téléchargement terminé "+Chemin$+FichierTelech$))
EndIf
Else
MessageRequester("Oh no",LocalText("Wrong URL","Adresse incorrecte"))
EndIf
EndIf
EndIf
ex :
Code : Tout sélectionner
http://bricolo.zip
Code : Tout sélectionner
http://LOGIN:MOTDEPASSE@bricolo.zip
Avec mon code, la NewUrl$ apparait bien comme il faut mais lorsque je lance le téléchargement avec
URLDownloadToFile(NewUrl$,Chemin$+FichierTelech$)
et bien rien ne se passe.
Pourtant, si je teste la NewUrl$ dans mon navigateur internet, et bien ça fonctionne donc l'adresse est bonne.
Avez vous une idée de pourquoi le téléchargement ne veut pas se lancer ?
D'avance merci de votre aide