Discussion :

[zouzoukha]

Bonsoir les amis!

Depuis près d'une heure je peine sur l'utilisation de la fonction de Proxy()

Je souhaite tester une liste de proxy sur un site (exple : www.yahoo.fr)
le code source de la page atteinte contient <title>Yahoo! France</title>

Ma liste de proxy est sous la forme xxx.xxx.xxx.xxxxxx

pour cela j'utilise le code ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sUneListe,sUneLigne,sUrl sont des chaînes
 
HTTPTimeOut(20000)
POUR TOUTE CHAINE sUneLigne DE sUneListe SEPAREE PAR RC
	Multitâche(-1)
	sUneLigne=Remplace(sUneLigne,":",",")
	Proxy(sUneLigne)
	ResLancement est un booléen = HTTPRequête("www.yahoo.fr")
	SI ResLancement = Vrai ALORS
		sUrl=HTTPDonneRésultat(HTTPEntête)
		SI ChaîneOccurrence(sUrl,"Yahoo! France")>0 ALORS
			Info("ip ok : " + sUneLigne)
		FIN
	FIN
	MultitâcheRepeint()
FIN

1°) La boucle s'execute très lentement comparativement à d'autres utilitaires du genre

2°) Je n'obtiens rien alors que la même liste contient beaucoup de proxy valides sur yahoo avec d'autres utilitaires

3°) j'ai tenté avec sUrl=HTTPDonneRésultat(HTTPRésultat) sans succes

Merci d'avance

[frenchsting]

là j'ai un doute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sUneLigne=Remplace(sUneLigne,":",",")
Proxy(sUneLigne)

je ferais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sAdresseIp,sPort sont des chaines
sUneLigne=Remplace(sUneLigne,":",",")
sAdresseIp = extraitchaine(uneligne,":",1),
sPort = extraitchaine(uneligne,":",2))
Proxy(sUneLigne,sAdresseIp,sPort)

A tester bien sûr...

[zouzoukha]

Salut FrenchSting et merci pour l'aide,

Malheuresement cela ne fonctionne pas!

D'ailleurs ce n'est pas la syntaxe de Proxy() - j'ai une erreur de syntaxe WD

Proxy()

Merci en tout cas

[Lo²]

Bonjour,

A mon avis, il s'agit d'un mauvais copier-coller de Frenchsting :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Proxy(sAdresseIp,sPort)

La syntaxe que tu utilises dans le post initial correspondrait plus à de la compilation dynamique mais je n'y vois pas trop d'intérêt dans ce cas de figure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sChaine est chaine = "Proxy(" + sUneLigne + ")"
Compile("Proc_dynamique", sChaine)
ExécuteTraitement("Proc_dynamique", trtProcedure)

[frenchsting]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
sAdresseIp,sPort sont des chaines
sUneLigne=Remplace(sUneLigne,":",",")
sAdresseIp = extraitchaine(sUneLigne,":",1)
sPort = extraitchaine(sUneLigne,":",2))
Proxy(sAdresseIp,sPort)

Exact, j'ai laissé une virgule et un sUneLigne mal placé . Ca m'apprendra à aller trop vite. J'ai corrigé mes erreurs dans le code ci-dessus.

La syntaxe est bien comme le dit Lo² :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Proxy(sAdresseIp,sPort)

Toi tu fais en fait un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Proxy(sAdresseIp)

avec un sAdresse de la forme 999.999.999.999:999.

[zouzoukha]

Salut et merci,

Je maintiens, dsl Frenchsting

J'ai bien corrigé tout cela, mais la syntaxe de Extraitchaine() ne donne pas!
Malgré tout c'est toujour Proxy() qui pose problème

Ci-joint la capture

Je vais tester la compil dynamique de Lo²

[Lo²]

Il faut que le port soit un entier et non une chaîne.

[zouzoukha]

Salut!

en fait sPort doit être de type numérique!

Là ca a l'air de fonctionner mais d'une lenteur

Merci

A suivre ...

Edit : Lo² t'es Lucky Luke ou c'est moi qui suit long à la détente

[frenchsting]

Il faut que le port soit un entier et non une chaîne.

Enfer et damnation !!!!

Essaye alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sAdresseIp,sPort sont des chaines
nPort est entier
sUneLigne=Remplace(sUneLigne,":",",")
sAdresseIp = extraitchaine(sUneLigne,":",1)
sPort = extraitchaine(sUneLigne,":",2))
nport = val(sPort)
Proxy(sAdresseIp,nPort)

Ce coup-ci, ça devrait être mon dernier mot jean-pierre

[Lo²]

les 2 ...

Ici, tu as un exemple de test de proxy mais je n'ai pas testé :
http://doc.pcsoft.fr/fr-FR/?3043002&name=proxy-fonction

Ca devrait donner quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SocketConnecte("monTest",iPort, sAdresseIP)

Attention, le port est aussi un entier.

[zouzoukha]

Salut Frenchsting

c'est bon chez moi maintenant!
mais je crois que ce sont tes ExtraitChaine() qui posent souci syntaxe :

Je pense que 1 est le rang et doit être placé avant la chaine à rechercher.

[zouzoukha]

Hello

Ca a l'air de fonctionner mais 100 x plus lent que les autres outils du genre

Je lance la boucle dans un thread, y aurait - il la possibilité de lancer plusieurs threads? Je n'ai aucune idée du comment

Merci encore

[frenchsting]

Salut Frenchsting

c'est bon chez moi maintenant!
mais je crois que ce sont tes ExtraitChaine() qui posent souci syntaxe :

Je pense que 1 est le rang et doit être placé avant la chaine à rechercher.

Quand ça veut pas, ça veut pas... Oui, c'est à l'envers. Re :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sAdresseIp,sPort sont des chaines
nPort est entier
sUneLigne=Remplace(sUneLigne,":",",")
sAdresseIp = extraitchaine(sUneLigne,1,":")
sPort = extraitchaine(sUneLigne,2,":"))
nport = val(sPort)
Proxy(sAdresseIp,nPort)

Pour les threads :
Normalement, tu peux faire plusieurs threads. Nénamoins, je ne suis pas sûr que cela fonctionne. Le retour sera t'il dans le bon thread ?

Il y a des exemples de fonctionnement dans l'aide.