Contrôle INET fait crasher VB6 :( HELPPPPP

Signaler
Messages postés
29
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
1 décembre 2008
-
Messages postés
29
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
1 décembre 2008
-
Bonsoir, bon voilà, la, je ne sais vraiment plus quoi faire, mais alors
plus rien, voilà presque 6 heures que j'essaye de comprendre c'est quoi
le problème entre VB6 et le INET... entre temps il y a eu 2
réinstallations de Win2000 mais sans succès....





Voilà le problème, étant un développeur plutot fénéant, j'ai voulu
mettre mes programmes sur mon serveur FTP sur le 9tel, le truc c'est
que pour accéder à mes programmes il fallait que je mette à jour mon
fichier index.html, alors j'ai fait un une petite procédure qui à
partir d'un fichier html.ini qui contient pour chaque ligne la syntaxe
:





"nom du fichier|Commentaire à afficher"





me crée un fichier index.html avec directement les liens de mes
fichiers pour mon serveur FTP, jusque la pas de problème, alors je me
suis dit, balancer à chaque fois le fichiers sur le serveur c'est trop
prise de tête et de là m'ai venu l'idée de rajouter une procédure
d'envoi automatique sur mon serveur le fichier index.html après sa
création, mais alors que mon programme était achevé, et qu'il marchait
après 2 heures de bidouillages à essayer de comprendre comment
fonctionne le contrôle Inet pour le serveur privé, je décide
d'optimiser le code et la PAFF, à chaque fois que je lance le code,
tout marche nickel et quand je ferme le programme, VB plante, ou mon
exe plante, enfin ca revient au même.





Voilà mon code après avoir supprimé les procédures de création du fichiers, je pars d'un fichier qui est déjà crée:








Option Explicit





Private lngState





Private Sub cmdUpload_Click()





Dim strSource As String


Dim strDest As String


Dim strServer As String


Dim strCommand As String





strServer = "ftp://ftpperso.neuf.fr"


strSource = "E:\index.html"


strDest = " /index.html"


strCommand = "PUT "





With Inet


.URL = strServer


.UserName = "michel.puech@9online.fr"


.Password = "Maverick"


.Execute , strCommand & strSource & strDest





Do Until lngState 11 Or lngState 12


DoEvents


Loop


Select Case lngState


Case 11


lblStatus = "Error lors de la mise à jour du site"


Case 12


lblStatus = "Update fini avec succès"


End Select





.Execute , "CLOSE"


End With





End Sub





Private Sub Inet_StateChanged(ByVal State As Integer)


If State 11 Or State 12 Then lngState = State


End Sub











PS : ce code je viens juste de le reecrire, et je l'avais lancé,
miracle il marchait, je décide de renommer son répertoire qui était
"Script" en "HTMLScript" je relance le code, le programme plante O.o,
je renomme à nouveau le répertoire en "Script" et il plante toujours,
plus moyen de refaire marcher mon programme... ou est l'erreur ????
pleaseeee helpppp

2 réponses

Messages postés
29
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
1 décembre 2008

ABUSEEEEEE KWAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA



J'ai les NERFSSSS on peut même po modifier son post !!!! abuséééééé laaaaaaaaa
Messages postés
29
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
1 décembre 2008

Bon je viens de changer mon mot de pass, vais me coucher

bn



PS : j'attends tout aide de votre part pour mon problème si quelqu'un a une idée ?? :p



Je reprécise ce code ci-dessus a fonctionné, j'ai sauvegardé le projet,
modifié le nom du répertoire a en b, et après renommé le répertoire b
en a et plus moyen de le faire marcher....