TESTEUR DE LISTE D'URLS V 4.3
cs_Patrice99
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018
-
30 nov. 2005 à 09:17
donybcn Messages postés 1 Date d'inscription samedi 9 décembre 2000 Statut Membre Dernière intervention 25 avril 2008 - 25 avril 2008 à 18:00
donybcn Messages postés 1 Date d'inscription samedi 9 décembre 2000 Statut Membre Dernière intervention 25 avril 2008 - 25 avril 2008 à 18:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34834-testeur-de-liste-d-urls-v-4-3
https://codes-sources.commentcamarche.net/source/34834-testeur-de-liste-d-urls-v-4-3
25 avril 2008 à 18:00
je suis developpeur, mais pas avec visual basic 6 , et je ne possede pas ce logiciel. Mais je suis tres interesse par LE TESTEUR D'URLS.
Je voulais donc savoir si une personne pouvait me rendre le service de me convertir les fichiers sources, en executables que je puisse l'utiliser.
Par avance merci, et bravo pour ce site que je viens a peine de decouvrir!
30 nov. 2007 à 19:14
30 nov. 2007 à 18:36
Tout d'abord merci pour ce code !
Par contre je ne comprend pas l'utilité d'ouvrir une page Internet pour chaques liens trouvés par le sniffer ! pourquoi ne pas tester tout simplement leurs validité de la même maniére que vous le faite pour la page principale ?
16 nov. 2007 à 13:37
16 nov. 2007 à 11:13
Par contre, ce logiciel fonctionne correctement sur mon poste mais sur le poste d'une autre personne à la fin du test des urls, lorsqu'on veut enregistrer les URLs Valides et Invalides on obtient un message "Vous n'avez rien à sauvegarder". Avez-vous déjà rencontré ce pb ?
15 nov. 2007 à 18:35
15 nov. 2007 à 15:18
VbFrance est un site du réseau CodeS-SourceS.
site spécialisé dans la programmation (ici Visual Basic 6.0)... vous ne trouverez donc ici que des codes sources, et non des exe touts prets.
15 nov. 2007 à 12:53
28 août 2006 à 14:06
19 juin 2006 à 18:30
J'ai essayé de télécharger le fichier exe mais c'est impossible (pourtant je suis bien "Membre club")...une erreur se produit et ce fichier n'est pas présent dans le zip.
Je suis très interessé par ton programme et donc j'aimerais pouvoir y acceder.
Merci :-)
28 févr. 2006 à 18:22
For B = 0 To Nbligne - 1
cdeRep.Text = "" 'On efface la case réponse
Inet1.URL = Tbl(B)
'debut modif*******************************************************
Dim TimeSys As SYSTEMTIME
GetSystemTime TimeSys
Dim Hours As Long
Inet1.Cancel
Hours = (TimeSys.wMinute + (TimeSys.wHour * 60))
ActionTime = TimeSys.wMilliseconds + (TimeSys.wSecond + Hours * 60) * 1000
test = Inet1.OpenURL
GetSystemTime TimeSys
Hours = (TimeSys.wMinute + (TimeSys.wHour * 60))
ActionTime = Abs(ActionTime - (TimeSys.wMilliseconds + (TimeSys.wSecond + Hours * 60) * 1000))
If ActionTime > 15000 Then
typeerreur = " - TIMEOUT"
GoTo Probleme
End If
End If
If test = "" Then
GoTo Probleme
End If
23 févr. 2006 à 15:58
J'essaye de recup le soft sans succes meme avec le code recupéré par téléphonne ... Quelqu'un peut il me donner la marche à suivre .. ?
5 déc. 2005 à 18:38
5 déc. 2005 à 18:37
4 déc. 2005 à 17:26
C'est msinet.ocx qui fait tout le boulot.
Il connecte le PC à l'adresse Internet qu'on lui donne et il permet de lire des infos en retour.
Fais apparaître la fenêtre d'affichage en cochant la CheckBox et tu les verras.
Si ces infos n'arrivent pas, on peut en conclure que le serveur n'existe plus ou qu'il ne répond pas au moment du test.
Regarde le code du bouton 6 que je t'ai un peu plus commenté.
Private Sub Command6_Click() 'Test d'une URL
Dim hdr, posCr
Text1.Text = ""
On Error GoTo Probleme
If strUrl.Text = "" Then 'strUrl.Text contientl'URL
MsgBox "Vous n'avez pas séléctionné d'URL!", 48, "INFO"
GoTo Sortie
End If
cdeRep.Text = "" 'On efface la case réponse
Inet1.URL = strUrl 'On lui dit l'URL à ouvrir
Inet1.OpenURL 'Il reçoit l'ordre d'ouvrir
Text1.Text = Inet1.ResponseInfo
'On traite la répons éventuelle
If vtData = "" Then
hdr = Inet1.GetHeader
If Check1.Value = 1 Then 'Si coché on affiche les infos dans Text1.Text
Text1.Visible = True
Text1.Text = hdr
End If
posCr = InStr(hdr, vbCrLf)
hdr = Left(hdr, posCr - 1)
If Inet1.RequestTimeout > 100 And hdr = "" Then
GoTo Sortie
End If
Else
hdr = vtData
End If
cdeRep = hdr
GoTo Sortie
Probleme:
cdeRep = "Le serveur ne répond pas"
Sortie:
End Sub
En espéranr avoir répondu à ta question.
4 déc. 2005 à 12:52
2 déc. 2005 à 09:32
Ce qui me chagrine dans ton source, c'est l'emploi de la base de registre.
J''ai testé ce mini source qui extrait les URL's
d'un site.Un list.box, un text.box et un bouton suffisent.
Il marche mais ouvre trop de fenêtres.
Voici:
Private Sub Command1_Click()
Dim codSrc As String
Adresse = Chr(34) & Text1.Text & Chr(34)
Inet1.URL = Text1.Text
codesrc = Inet1.OpenURL
Form1.WindowState = 1 'On minimise la fenêtre
'On lance la page avec un shell et on ouvre l'Url dans Iexplorer
Shell "explorer " & Adresse, vbNormalFocus
'on extrait chaque url trouvée dans le code src et on lance la page avec un shell
Dim Depart As Long
Dim Fin As Long
Dim debut As Long
debut = 1
Depart = InStr(debut, codesrc, "http://")
Dim F As Integer
For F = 0 To 100 'Je limite à 100 les recherches
DoEvents
F = F + 1
Fin = InStr(Depart, codesrc, Chr(34))
List1.AddItem Mid(codesrc, Depart, Fin - Depart)
Shell "explorer " & Mid(codesrc, Depart, Fin - Depart), vbNormalFocus
debut = Fin
Depart = InStr(debut, codesrc, "http://")
Next F
End Sub
1 déc. 2005 à 13:07
y'a pas mal de temps je me suis fait un outil qui extrait les urls d'une page web, si vous voulez le code source :
http://s49.yousendit.com/d.aspx?id=33A8OYW1TUJ4O3JFKHFJP2LDM6
par contre y'a un ptit bug à corriger avec le registre (pour le filtre d'extentions).
1 déc. 2005 à 08:18
1 déc. 2005 à 08:00
Par contre je ne sais pas bien comment faire.
Il faut être capable de rapatrier la page consultée dans le le programme et extraire les URls et ce n'est pas évident de prime abord.
J'en profite pour signaler à ceux qui seraient intérêssés qu'il existe un beau programme gratuit, en français, et qui sait ôter des Favoris de IE5 tous les liens morts.Je ne le connaissais pas.
C'est AM-DeadLink 2.7 que l'on trouve facilement avec l'aide de Google.
Je crois avoir trouvé une parade au plantage de mon programme.Je teste et je vais publier une mise à jour.
30 nov. 2005 à 09:17