PHOTOS EN PV - DISCUT.NET

Commentaire de ISoKa le 06/12/2007 14:05:21

Bonjour,

Pas super compliqué en effet mais c'est toujours un exemple de plus pour les sockets qui sont toujours trop peu utilisés à mon gout :) surtout que le codage est propre donc j'aime bien.
essaye ptete juste de metre un screen de ce que ca donne ptete.

Commentaire de uaip le 16/12/2007 20:42:45

malheureusement non ^^ les sites ne sont pas tous codés pareil. je suppose que tu veux le même code pour chat-land ^^. si c'est le cas, il faut récupérer les photos en manipulant des binvars (et non directement en .jpg comme ici). je t'aurai bien donné le code (car je le possède pour CL) mais étant donné mes relations [froides] que j'entrenais a la fin de ma période sur CL avec le staff, je ne préfère pas. soit tu le codes toi même, soit en réfléchissant un peu, tu peux le trouver directement :)
préviens moi si tu galères

Commentaire de Benjamin37 le 01/01/2008 05:02:07

Tu ne sais pas si ce code marcherait sur Orange / Voila stplé ?

Merci !

Commentaire de ISoKa le 11/01/2008 14:45:09

pour voila/wanadoo si y a pas eu de changement l'url ou faut recup les infos est de la forme suivante : http://chat10.x-echo.com/profil/profil.php?pseudo=PSEUDO-DU-USER

Commentaire de XyLOng le 20/03/2008 17:45:27

UAIP
ta raison en critiquer Cl car vraiment les axx laba sont pa meriter méme Exagone est depuis 1 ans ou Plus est Animplus
Malgré qu'il est tjrs présent en aide et o staff et sur ces salons d'axx
Vraiment laba c des jeux des de blabla
Moi aussi J'ai quitté ce staff car ca gonfle kan tu trvaille
et tu gagne pa ..ptdrr

Commentaire de uaip le 05/05/2008 15:56:05

Lol, des beugs yen a partout... mais bref, euh, si ça ne vous ennuie pas, ici ce n'est pas un topic pour critiquer chat-land ^^

Commentaire de uaip le 09/05/2008 18:07:20

Osef, ici c'est un topic pour un addon pour DISCUT.


:)

Commentaire de Exagone le 30/07/2009 20:57:36

pour chat-land voilà les récup photos ou profile
http://www.chat-land.org/modules/photos/image_stats.php?nick=
http://www.chat-land.org/vip/getprofile.php?user=  
voilà pour ceux qu'ils veulent mettre les photo en privé sous chat-land

Commentaire de uaip le 25/02/2010 16:58:57

Salut,
C'est une mauvaise idée de recopier ce système pour l'adapter à son site perso. L'intérêt de ce script était justement la "difficulté" à récupérer une photo de membre sur DiscuT. Si je me rappelle bien, il fallait d'abord faire une recherche du membre pour récupérer l'url de sa page (qui contenait des nombres aléatoires), et ensuite seulement pouvoir accéder à sa page et récupérer l'image.

Tandis que toi, d'après ton lien, il suffit simplement de se connecter sur la page du membre et de récupérer la photo.

Commentaire de uaip le 25/02/2010 19:53:01

Pour la socket, je pense que tu as compris le principe (très longtemps que je n'ai pas fait de socket en mIRC);
Par contre, ton url est fausse, une variable mIRC ne doit jamais coller quoi que ce soit (toujours entourée d'espace).
Donc essaye plutôt avec : /url http://Monlien.free.fr/photo/index.php?pseudo=% $+ $nick $+ %27
Ou : $+(/url http://Monlien.free.fr/photo/index.php?pseudo=%,$nick,%27)

$+ et $+() permettent de concaténer 2 chaines : chaine1 $+ chaine2 ou $+(chaine1,chaine2)

Commentaire de snip74 le 25/02/2010 20:17:36

Rheuuu uaip,
Merci encor pour les infos mais je viens de testé avec ton code en copier coller mais toujour rien afff.
aprés dans mon lien je viens de remarquer que j'ai louper le =%27 donc je les corriger mais toujour rien.

Apres mon lien peut se faire de 2 façons comme sa >>

if ($1 == !photo) { //url http://Monlien.free.fr/photo/index.php?pseudo==%27 $+ $nick $+ %27 | halt }

ou

if ($1 == !photo2) { //url http://Monlien.free.fr/photo/index.php?pseudo=' $+ $nick $+ ' | halt }

mais sa marche pas y a vraiment un truc qui m'échappe

Cordialement Stéphane

Commentaire de uaip le 25/02/2010 21:38:18

Désolé pour le double-posting.
Et en fait, aucun de tes 2 codes ne fonctionnent... les syntaxes ne sont pas bonnes =/
Bref, j'attends le lien pour te donner une solution.

Commentaire de uaip le 25/02/2010 22:19:18

Ok, je vois, c'est étrange ces '' autour des paramètres GET.

Bon ben ok, donc http://Monlien.free.fr/photo/index.php?pseudo=' $+ $nick $+ ' fonctionne très bien.
S'il y a une erreur, c'est que $nick n'est pas la bonne variable. Montre le code complet (t'inquiète pas pour le spam).

Entre parenthèse, les // sont utilse seulement si tu tapes le texte dans la barre de saisie, comme je te l'ai dit, mais c'est inutile dans une remote.

Commentaire de uaip le 25/02/2010 22:45:46

Oui, c'est très simple pour toi.
Dans mon cas, j'obtenais une page php. Je devais donc traiter des variables binaires.
Dans ton cas, si tu regardes le code source d'une page membre (comme celle que tu m'as montré), l'image est tout simplement
<img src="url">
Il suffit donc tout bêtement de matcher cette url (dans une regexp ou autre) et tu obtiens directement l'image.
Il y a un excellent tutoriel ici qui traite parfaitement ton cas (tu as juste à suivre et modifier selon ton besoin).
http://www.ircfr.com/tutoriaux/MIRC-SOCKET-TCP-TELECHARGEMENT-IMAGES_119.aspx
D'ailleurs, il est tout moche, là, un beug CodeS-SourceS sans doute... :s

Commentaire de uaip le 28/02/2010 20:52:51

Salut,
Tu diras à ton pote qu'il pouvait trouver la réponse en tapant "/help on open".
L'événement OPEN:? est appelé quand un user ouvre un pv, pas quand toi tu en ouvres un.
C'est pour cette raison que pour ma source, la description contenait ceci :
"- soit la photo s'affiche automatiquement lorsqu'une personne vient vous voir en pv
- soit il faut taper /query pseudo pour que la photo s'affiche si c'est vous qui ouvrez un pv."
Ne pouvant pas nous même déclencher OPEN:?, il fallait forcer l'affichage de la photo par /query (alias que je ré-implémentais, cf la source).

Commentaire de uaip le 28/02/2010 22:25:37

Au pire il existe toujours la DLL pour faire un hook sur l'ouverture de pv... mais bon, c'est dommage de faire une DLL juste pour ça.

Commentaire de uaip le 01/03/2010 15:53:02

Personnellement, je n'ai jamais cliqué sur un pseudo dans la nicklist.
Mais tu peux en effet garder cette méthode d'ouverture de pv. Mais ce n'est qu'une méthode parmi d'autres (comme mon /query finalement). Celà dit, traiter le mouse et /query serait déjà pas mal.

Commentaire de uaip le 03/03/2010 21:08:48

Héhé, dans ce cas, tu as le même problème que j'ai eu.
Comme expliqué plus haut, je devais connecter la socket à la page de recherche des pseudos (profile_search.php dans mon cas), envoyer une requète POST en remplissant virtuellement le champs de recherche (avec le pseudo), récupérer la page de résultats, et récupérer le lien de la page du profil, m'y connecter, et enfin récupérer la photo.

J'en déduis que c'est pas votre site. Mais si c'est le cas, alors vous savez comment sont générés les nombres, et vous devriez mettre en place un système simple pour les récupérer via mIRC.

Commentaire de uaip le 04/03/2010 21:16:33

C'est exactement ce que je dis. Si tu as la possibilité de faire quelque chose de spécial pour mIRC, tant mieux, sinon tu seras obligé de passer par cette recherche de pseudo, si. mIRC ne peut pas deviner quel numéro se cache derrière tel ou tel pseudo.
Pour la dll, ça peut être un moyen de cacher le lien, mais c'est assez inutile selon moi de coder une DLL pour ça. Et puis si tu es capable de coder une DLL contenant une socket, alors tu laisseras vite tomber le mIRC (je me comprends).
Tu peux par exemple faire une page php qui liste tous les pseudos avec le numéro attribué. De cette manière tu matches le pseudo et tu récupère le numéro.

Pour récupérer les informations à un endroit précis, c'est très simple... la variable à sockread n'est rien d'autre que du texte. Un tokenize 32, et hop. Mais dans ce cas, les regexp sont mieux adaptées.

Commentaire de MoiMdr le 05/03/2010 19:35:24

petite restification:

ca serrais pas $gettok(%ma-ligne,2,34) mais $gettok(%ma-ligne,4,34)

après des teste sur cette ligne en fait en supprimant les espaces manuellement si je fais
$gettok(<divstyle="width:400px;text-align:justify;padding:10px10px10px10px;"><img src="../photo/xxxx/thumb_pseudo2010013026.JPG"border="0"alt="pseudo"align="left"style="margin:0px5px5px0px;"/>,2,46)

ca me retournerais bien

/photo/xxxx/thumb_pseudo2010013026

sachant que je teste ma ligne dans l'éditbox avec la touche de tabulation
donc me resterais les $chr32 et les $crlf à savoir comment les utiliser ou un autre code qui pourrait m'aider, pensais aussi au $len

Enfin voila, je crois que je vais quand même essayer un peut tous ca avec les schok et revenir quand j'y serrais arrivé ou le W-E prochain si je n'y arrive pas, car veux pas passer non plus pour un qui veut se faire matcher tous le boulot.
au sujet de mâcher ca me fait pense que je ne suis pas très sur du therme employé souvent " matcher" ca veut dire récupérer ?

En tous cas merci pour ton aide et ta patience UAIP

Commentaire de uaip le 05/03/2010 19:49:38

Oups, je n'avais pas vu ton dernier message (j'étais en train d'écrire le mien :p).
Une rectification pour le mien, la regex fonctionnera uniquement si la source de l'image commence bien par ../
Sinon, il faut que tu expliquer clairement les syntaxes possibles des sources d'images, pour que la regex puisse tout matcher.

Je ne saurais pas te donner la signification exacte de "matcher", ne la trouvant pas sur le net, mais en gros, dans le cas des regex par exemple, tu cherches à récupérer une sous-chaine de caractères qui correspond à une syntaxe définie, appelée modèle (pattern).
Dans ton exemple, la chaine ou l'on cherche est %ma-ligne, et le pattern est /src="\.\.([^"]+)"/
L'identifieur $regex() renvoie alors 1 si le pattern est matché dans la chaine, 0 sinon. Ici matcher signifie donc "trouver".

Pour aller plus loin, tu peux aussi amplifier la recherche de la regex, et lui demander de récupérer toutes les sous-chaines correspondantes au pattern donné. Les sous-chaines retournées sont appelées "occurences matchées". Bref bref...

Commentaire de uaip le 08/03/2010 21:12:44

Salut,
Je me souviens pu très bien de tout ça, hein :p
Mais quelques petites remarques, oui.
Pour commencer, quand tu te connectes à un serveur avec sockopen, si tu fais ensuite un GET pour te déplacer au sein du site, inutile de mettre un chemin absolu (ça peut amener des erreurs si tu changes un bout de code, etc)
Donc, par exemple :
sockopen PVphoto1 ub33.free.fr 80
...
sockwrite -n PVphoto1 GET http://ub33.free.fr/photo/index.php?pseudo=' $+ %photoPV1 $+ '

devient :
sockopen PVphoto1 ub33.free.fr 80
...
sockwrite -n PVphoto1 GET /photo/index.php?pseudo=' $+ %photoPV1 $+ '
(idem pur les autres GET).

Ensuite, tu utilises mal le $iif(). Je précise qu'il n'a rien à voir avec $regex(). Un $iif() sert d'opérateur conditionnel, en gros (cf /help $iif).
Par exemple, si %var == pouet, tu veux affecter "pistache" à %resultat, sinon, tu veux affecter cactus à cette même variable.
Tu peux utiliser un if/else classique :
if (%var == pouet) set %resultat pistache
else set %pistache cactus

Ou bien optimiser avec $iif() :
set %resultat $iif(%var == pouet,pistache,cactus)

Tu constates que $iif() est à utiliser au beau milieu d'une autre instruction (ici /set), il retourne tel ou tel résultat en fonction de la condition.
Mais mettre $iif(...) { ... } n'a aucun sens. Utilise un if normal.

Commentaire de MoiMdr le 10/03/2010 13:09:53

Arfff suis trop bête

pour suprimer les image j'avais le code dans ma remote déja
donc:

on 1:CLOSE:?: .remove Images\imagesUser\ $+ $gettok(%li-im-ps,3,47) | unset %photoPV1 | unset %li-im-ps

tout en enlevant les unset %photoPV1 et  unset %li-im-ps que j'avais déja mis ailleur.

Commentaire de MoiMdr le 11/03/2010 22:52:19

salut UAIP,

oui de ttes façon le return et le break me servent a rien, mais voulais break justement pour arrête la boucle de %temp, mais brefff

Pour le java et bien j'avais bien précisé " peut être " lol et parlais de Applet Java ;)

Par contre là j'ai un truc que je n'arrive pas a comprendre :-s , si je fais un alias comme ca :

alias liens {
  set %photoPV1 coucou
  set %photo $+ %photoPV1 abracadabra
  set %salut %photo $+ %photoPV1
  echo 4 -s %salut
}

ca me créer bien toutes ces variables:

%photoPV1 coucou
%photocoucou abracadabra
%salut coucou

Mais l'écho ca me renvois que coucou et pas abracadabra pourquoi? :-s
on peut creer une variable en %var1 $+ %var2existante ca non créer bien %var1vav2existante mais si on veut créer une set %var3 %var1 $+ %var2existante ca marche pas.

en fait c'est pour mon code:

j'ai un: set %photoPV1 pseudo-de-l'user
et: set %photo $+ %photoPV1 mon-lien-de-mon-image.gif

on 1:CLOSE:?: {
  .remove Images\imagesUser\%photo $+ $target)
}

ca marche pas car en fait ma variable créée est %photopseudo et le pseudo change à chaque user d'ou mon %photo $+ $target

je suis sur que c'est simple en plus mais ca fait deux jours que je me prend la tête avec ca et pas envi de le loger dans un fichier.txt pour le récuperer ensuite avec un $read
le truc c'est que je comprend pas qu'on puisse créer une variable avec set %a $+ %b et par contre qu'on puisse pas la récuperer dans une commande tel que /echo

a+b=c mais il comprend pas que c=a+b
quel prise de tête mdrrrrrrrrrrr

Commentaire de MoiMdr le 12/03/2010 01:18:08

re,

oui vais me pencher plus sur ton code ;)

Mais pour te contre dire et ce qui est en effet pas très logique mais qui m'a embrouillé c'est :

set %photo $+ %photoPV1 abracadabra //Créé une variable nommée "photo" vide à cause de l'erreur de syntaxe $+

et bien non en fait ca me créé la variable " %photocoucou abracadabra "( j'ai testé et pour ca t'ai remis exactement les variable obtenues une fois que je tapais la commande /liens et que pas compris pourkoi ca ne marcherait pas dans les commandes tel que /echo )

%photoPV1 coucou
%photocoucou abracadabra
%salut coucou

j'avais essayé ca: set $+(%photo,%photoPV1) évidement pas mis la , après le % mais j'étais pas loin lol

mais résultat je vais mettre .remove Images\imagesUser\ $+ $gettok(%li-im-ps,3,47)

dans mon on *:sockclose:PVphoto2:
juste qu'il faut que je mette un timer car j'ai peur que ca me la vire avant que je l'ai chargée avec ma connexion 56Ko lol

par contre ton code si je ne m'abuse à la fin ton socket est toujours ouvert dès que tu as affiché ton image non?

alias dpv {
  set %ppvpt $+(ville=&age_min=10&age_max=99&sex=-1&pays=xx&dpt=-1&situation=-1&type_rencontre=-1&orientation=-1&pseudo=,$$1)
  set %ppvpseudo $$1 | sockclose ppv | sockopen ppv www.discut.fr 80
}

on *:sockread:ppv2:{
  if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
  if (%ppvpfid == $false) { sockread %a | if (%a == $null) { set %ppvpfid $true } }
  else {
    sockread &a
    bwrite dphoto.jpg -1 -1 &a
    .timerdpv -m 1 500 dpvaff
  }
}

enfin voila, vais tester et te tiendrais au courant et puis je me suis égarré aussi par moment a tester de changer les boutons de la toolbar sur mIRC6.35 ;) trop cool ces nouvelles option en fait, après faudra que je trouve pour remplacer les raccourcis ALT+R ALT+o par exemple :$

merci encore à toi, sincèrement

Commentaire de MoiMdr le 13/03/2010 14:38:03

Salut,

Oui j'ai à peut près compris ;) merci pour tes explication,

Bon j'ai testé ce que tu dis au sujet du sockclose et donc essaye de charger d'afficher l'image a mon sockread mais soit ca me met des erreur de background mais m'affiche l'image quand même, soit l'image est incomplète , soit erreur de bwrite, donc l'ai laissé en sockclose et je trouve que ca marche a merveille

D'après moi si je dis pas de bétise le sockclose se fait une fois que la page à été toute lue, pour cela que je voulais arrête la la boucle dès qu'il avait trouver le lien.



finalement j'ai juste viré mon break dans mon code et pour suprimer l'image j'ai rajouté un .remove dans la section on *:sockclose:

Et je pense que je vais en rester là ;)

j'avais d'autres questions sur le $readini mais ca ne concernent plus ce sujet donc je poserais ailleurs si je trouve vraiment pas :D

En tous cas merci encore UAIP

Commentaire de MoiMdr le 13/03/2010 20:13:29

re,

Oui les ON c'est quand l'événement arrive j'avais bien compris ca ;)
Et je comprend aussi ton raisonnement au sujet du sockclose mais je me suis fais des if ou j'integre des sockclose PVphoto1 qui maintenant font arrêter la variable du coup....

on *:sockread:PVphoto1:{
  sockread %temp
  var %url = $iif($regex(photo,%temp,/src="\.\.([^"]+)"/),$regml(photo,1),%url indéfini)  

  if (%url == $regml(photo,1)) set %li-im-ps %url | unset %temp  
  if (%photoPV1 isin %li-im-ps) {
    unset %temp
    PVphoto2
    sockclose PVphoto1
  }
  if (thumb_defaut isin %li-im-ps) {
    unset %temp
    PVphoto2
    sockclose PVphoto1
  }
  if (/photo/img/carton_rouge.gif isin %li-im-ps) {
    echo 4 -a ** %photoPV1 n'a pas de profil **
    unset %temp
    background -dp $query(%photoPV1) Images\imagesUser\noVIP.gif
    sockclose PVphoto1
    unset %li-im-ps
    unset %photoPV1
  }
}
je n'ai pas réussi a optimiser mieux que ca

Par contre les timer j'avais vu oui et essayé et là je viens de me replonger dedans et ca a l'aire de fonctionner cette fois, je m'emmêlais avec les nom ou pas de nom etc... et aussi j'en avais mis un au bwrite qui foutait la merde aussi ralalalalalala lol

Arff le temps que je t'écrive ca et reteste des trucs du coup ca marche plus maintenant pourtant rien touché dans mes timer, juste essayer d'optimiser mes if :s.......

on *:sockread:PVphoto2:{
  sockread &a
  bwrite Images\imagesUser\ $+ $gettok(%li-im-ps,3,47) -1 -1 &a
  .timerbackground 1 30 /background -dp $query(%photoPV1) Images\imagesUser\ $+ $gettok(%li-im-ps,3,47)
  .timerremove 1 10 /.remove Images\imagesUser\ $+ $gettok(%li-im-ps,3,47) | unset %li-im-ps | unset %photoPV1
}

bon vais rester comme avant car mes sockclose dans mes if font que ca marchait très bien en fait.
2h00 que j'écris ce Post mdrrrrrrrrr

Sinon pour mon autre question en fait j'ai trouvé la solution mais j'ai un autre problem pour me faire un menu popup en récuperant des item dans mirc.ini

alias salonsFavo {
  var %x = 0
  :next
  set %popo $readini(mirc.ini,chanfolder, $+(n,%x))
  echo 4 -s %popo
  inc %x
  if (%x < $ini(mirc.ini,chanfolder,0)) goto next
}

menu @SalonsFavoris {
  menus
  $salonsFavo
}

mon echo 4 -s %popo m'éffiche bien ce que je veux mais j'arrive pas a trouver comment mettre les résultats dans mon menu popup, c'est pour remplacer celui du mirc par défaut de la toolbar en fait, je test et ca pourras me servir pour faire d'autres menus par la suite.

Je voulais aussi faire un code pour remplacer la fonction Alt+R genre mais trouve pas et sais pas si c'est possible, en alias ca marche pas ou alors il me faut le code ascii du Alt si il existe mais pas trouvé non plus.

Enfin voila, lol
merci encore pour tous ;)

Commentaire de MoiMdr le 14/03/2010 20:40:35

Salut,

Alors ne soit pas désolé car en fait le sockclose ne marche pas si on le met dans le sockread, enfin si il marche mais il stope le telechargment avant qu'il soit fini en fait et me retrouve avec le même probleme que mes timer et de plus après l'événement on *:sockclose: ne réagit pas avec la commande /sockclose,
résultat je pense que le socket se ferme tous seul quand il a fini de telecharger l'image, , mais je vais le mettre quand même avec un timer le /sockclose dans le on *:sockread: ;)

l'aide dit bien:

on 1:sockclose:nom:commandes

L'évènement sockclose est déclenché quand une connexion est fermée par la connexion remote (pas vous).

Enfin voila, je verrais avec le temps si ca déconne ou pas de ttes façons, et aviserais de comment je corrige le beug si il y a ;)

Pour le $submenu oui merci en fait j'aurais du le voir dans l'aide car j'ai regardé plusieurs fois la page :bete:, j'ai tester deux trois truc mais pas concluant, je maitrise pas assé les variable je crois, vais continuer ;)

Merci encore UAIP pour tous ;)