VB6 INET refuse de marcher depuis hier soir... ca urge

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VB6 INET refuse de marcher depuis hier soir... ca urge

erwan83

Du Shift DEL tu te méfieras !

voila le code :

Code :

Function Envoi()
fichier2 = "matrice_1.php"
ici2:
With code.Inet2 'port 23 protocole icFTP Request TimeOut 500
.UserName = "loglog"
.Password = "hahaha"
.URL = "ftp://xxxx@ftp0.fr"
ecran.Etat.Caption = "ENVOI en cours"
.Execute , "PUT " & FICHIER & " /" & fichier2 'FICHIER est une Globale clairement définie
Do While code.Inet2.StillExecuting = True
DoEvents
Loop
End With
trucbidule = code.Inet1.OpenURL("http://xxx/matrice_1.php" ) 'verification et execution du fichier envoyé
Do While code.Inet1.StillExecuting = True
DoEvents
Loop
If Len(trucbidule) > 10 Then
GoTo ici2:
End If
Open "c:\test.txt" For Append As #2
Print #2, trucbidule
Print #2, Now
Close #2
ecran.Etat.Caption = "SCANNING URL"
End Function

Autant dire que je suis perplexe, de plus il est bientot 4h du mat et je me leve à 6h30
Si vous pouvez m'aider ca serait vraiment SUPER

Message édité par erwan83 le 05-02-2007 à 12:21:21

---------------
http://www.ypikay.com

Publicité

Harkonnen

Modérateur
Un modo pour les bannir tous

c'est quoi la question ?

slr56

Tout problème a sa solution.

C'est quoi le problème dans ton script???? :wahoo:

A mon avis... Il n'est pas près de nous répondre
Les cours d'aujourd'hui ou le travail doit être très dur pour lui en ce moment!!!!

erwan83

Du Shift DEL tu te méfieras !

ben j'arrive pas à envoyer !
je peux effacer mon fichier mais quand je lui demande d'envoyer : Pfuiiiiiiit il passe sans rien faire

---------------
http://www.ypikay.com

Harkonnen

Modérateur
Un modo pour les bannir tous

il est charmant ton code, avec le goto et les DoEvents, un vrai plat de spaghettis [:petrus75]
pour les DoEvents, ça peut se comprendre étant donné l'absence de multithreading en VB6, mais pour le goto...
bon ceci dit, pour debugger ce genre de programme, y'a pas 36 solutions : tu télécharges Wireshark, et tu regardes les paquets qui rentrent et qui sortent

Message édité par Harkonnen le 05-02-2007 à 20:35:52

erwan83

Du Shift DEL tu te méfieras !

Ok merci.
En fait le DoEvents me sert à laisser le prog patienter pendant transfert et malheureusement le Goto ici2 était une rustine si la page renvoyait une erreur au navigateur

Merci
Je vous tiens au courant

Message cité 1 fois

---------------
http://www.ypikay.com

Harkonnen

Modérateur
Un modo pour les bannir tous

erwan83 a écrit :

Ok merci.
En fait le DoEvents me sert à laisser le prog patienter pendant transfert et malheureusement le Goto ici2 était une rustine si la page renvoyait une erreur au navigateur

oui je sais ce que fait un DoEvents, qui est un bel exemple de la cradure de VB6 ! c'était juste pour souligner ladite cradure due à l'absence de threads [:petrus75]
par contre, pour la gestion des erreurs, y'a le On Error Goto.. Ok, y'a toujours goto, mais au moins c'est (un peu) plus propre qu'un goto sauvage

erwan83

Du Shift DEL tu te méfieras !

WireShark ne voit rien passer !!!
Rappel du code qui fait défaut : au début il pédale pour le premier envoi et ensuite il s'emballe, il semble envoyer trop rapidement mais rien ne se passe !

Code :

Function Envoi()
With code.Inet2 'port 23 protocole icFTP
.UserName = "loglog"
.Password = "hahaha"
.URL = "ftp://xxxx@ftp0.fr"
ecran.Etat.Caption = "ENVOI en cours"
.Execute , "PUT " & FICHIER & " /" & fichier2
Do While code.Inet2.StillExecuting = True
DoEvents
Loop
End With
End Function

Alors question également : j'utilise une plateforme VB6
Existe-t-il un controle Inet plus récent que celui que j'utilise, qui date quand même de 1997 !!!

---------------
http://www.ypikay.com

Harkonnen

Modérateur
Un modo pour les bannir tous

t'as obligation d'utiliser VB 6 ? il est pourri, moisi et bon pour la casse (on en a la preuve ici).
passe donc à VB .NET, qui est gratuit et largement mieux foutu

erwan83

Du Shift DEL tu te méfieras !

mdr
merci. Dans le genre "Ouf j'ai pas le temps" , où puis je me le procurer ?

---------------
http://www.ypikay.com

Publicité

Harkonnen

Modérateur
Un modo pour les bannir tous

http://www.microsoft.com/france/ms [...] argez.mspx

il faut s'enregistrer, mais c'est gratuit. ça va te changer la vie

erwan83

Du Shift DEL tu te méfieras !

Merci beaucoup Harkonnen

---------------
http://www.ypikay.com

erwan83

Du Shift DEL tu te méfieras !

Bon ben telechargement lancé...
J'vous tiens au courant
Tout ce que je veux c'est un prootocole de transfert qui gaze, c'est pas la lune enfin quoi ? mdr

---------------
http://www.ypikay.com

Harkonnen

Modérateur
Un modo pour les bannir tous

y'a ce qu'il faut va
http://msdn2.microsoft.com/en-us/l [...] quest.aspx

erwan83

Du Shift DEL tu te méfieras !

yo je suis en train de télécharger bonheur. Va va...
Va télécharger bonheur !

---------------
http://www.ypikay.com

erwan83

Du Shift DEL tu te méfieras !

Pas mal... en mode débeugage pour le moment... mdr

---------------
http://www.ypikay.com

erwan83

Du Shift DEL tu te méfieras !

C'est blindé de trucs qui ne marchent plus... Bon je vais devoir lancer un nouveau sujet je crois !

---------------
http://www.ypikay.com

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VB6 INET refuse de marcher depuis hier soir... ca urge

Sujets relatifs
VB6 => Enregistrer .pdf - comment faire ?	Comment changer la langue de Windows en VB6
[RESOLU] probleme d'égalités CA URGE MERCI LES GENS	VB6 probleme lecture URL Urgent merci
Est il possible d'importer un "etat" ou "requète" d'access sous VB6 ??	VB6 Comment éteindre l'ordi par le biais d'une ligne de code ?
Apache refuse dinterpreter du code php(et me p* la tete par la mm oca)	[VB6] Utilisez DAO sans avoir installer Access ?
[HTML/JS]Comment faire marcher le popup blocker sous FF?	[VB6 et SQLDMO] Comment restaurer une base
Plus de sujets relatifs à : VB6 INET refuse de marcher depuis hier soir... ca urge

Page générée en 0.110 secondes