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

VB6 INET refuse de marcher depuis hier soir... ca urge - VB/VBA/VBS - Programmation

Marsh Posté le 05-02-2007 à 03:43:03    

voila le code :
 

Code :
  1. Function Envoi()
  3. fichier2 = "matrice_1.php"
  4. ici2:
  5.    With code.Inet2                                                     'port 23 protocole icFTP Request TimeOut 500
  6.         .UserName = "loglog"
  7.         .Password = "hahaha"
  8.         .URL = "ftp://xxxx@ftp0.fr"
  9.         ecran.Etat.Caption = "ENVOI en cours"
  10.         .Execute , "PUT " & FICHIER & " /" & fichier2           'FICHIER est une Globale clairement définie
  11.         Do While code.Inet2.StillExecuting = True
  12.         DoEvents
  13.         Loop
  14.    End With
  16. trucbidule = code.Inet1.OpenURL("http://xxx/matrice_1.php" )    'verification et execution du fichier envoyé
  17.     Do While code.Inet1.StillExecuting = True
  18.     DoEvents
  19.     Loop
  20.     If Len(trucbidule) > 10 Then
  21.     GoTo ici2:
  22.     End If
  23. Open "c:\test.txt" For Append As #2
  24. Print #2, trucbidule
  25. Print #2, Now
  26. Close #2
  27. ecran.Etat.Caption = "SCANNING URL"
  28.    
  29. 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
Reply

Marsh Posté le 05-02-2007 à 03:43:03   

Reply

Marsh Posté le 05-02-2007 à 13:54:53    

c'est quoi la question ?

Reply

Marsh Posté le 05-02-2007 à 14:01:00    

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!!!!  :D  :D

Reply

Marsh Posté le 05-02-2007 à 20:18:31    

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
Reply

Marsh Posté le 05-02-2007 à 20:35:12    

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
Reply

Marsh Posté le 05-02-2007 à 20:55:26    

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
Reply

Marsh Posté le 05-02-2007 à 21:01:23    

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

Reply

Marsh Posté le 05-02-2007 à 21:16:14    

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 :
  1. Function Envoi()
  3. With code.Inet2     'port 23 protocole icFTP
  4.     .UserName = "loglog"       
  5.     .Password = "hahaha"       
  6.     .URL = "ftp://xxxx@ftp0.fr"       
  7.   ecran.Etat.Caption = "ENVOI en cours"       
  8.     .Execute , "PUT " & FICHIER & " /" & fichier2               
  9.   Do While code.Inet2.StillExecuting = True       
  10.     DoEvents       
  11.   Loop 
  12. End With
  14. 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
Reply

Marsh Posté le 05-02-2007 à 21:18:15    

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 :o

Reply

Marsh Posté le 05-02-2007 à 21:22:42    

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


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

Marsh Posté le 05-02-2007 à 21:22:42   

Reply

Marsh Posté le 05-02-2007 à 21:25:04    

http://www.microsoft.com/france/ms [...] argez.mspx
 
il faut s'enregistrer, mais c'est gratuit. ça va te changer la vie :o

Reply

Marsh Posté le 05-02-2007 à 21:28:02    

Merci beaucoup Harkonnen


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

Marsh Posté le 05-02-2007 à 21:32:35    

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
Reply

Marsh Posté le 05-02-2007 à 21:43:56    

Reply

Marsh Posté le 05-02-2007 à 21:49:25    

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


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

Marsh Posté le 06-02-2007 à 00:11:53    

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


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

Marsh Posté le 06-02-2007 à 20:02:04    

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


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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed