PHOTOS EN PV - DISCUT.NET photos, pv, discut, Source N°44927

Information sur la source

Catégorie :Astuces Classé sous : photos, pv, discut Niveau : Débutant Date de création : 05/12/2007 Vu : 3 704

Auteur : uaip

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (13)

Ajouter un commentaire et/ou une note

Description

Un simple addon pour voir les photos en pv sur irc.discut.net (avec le client mIRC).
- 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.
Addon en socket... pas très dur a faire, donc pas détaillé. (je le poste surtout pour ceux qui vont sur ce serveur et dont ca intéresse).
Merci a Sonarca d'avoir passé un peu de temps pour m'aider.

Source

;——————————————————————————————————
; Addon - Photos en pv - par uaip
;——————————————————————————————————
on *:open:?:if ($network == DiscuT) dpv $nick
alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
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
}
alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
alias -l swr sockwrite -n $sockname $1-
on *:sockopen:ppv:{
if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
swr POST /profile_search.php HTTP/1.1
swr Host: discut.fr:80
swr Content-Type: application/x-www-form-urlencoded
swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
swr %ppvpt
}
on *:sockread:ppv:{
sockread %temp
if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
set %ppvphoto $gettok(%temp,2,34)
sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
}
}
on *:sockopen:ppv2:{
.remove dphoto.jpg
set %ppvpfid $false
swr GET / $+ %ppvphoto HTTP/1.1
swr Host: discut.fr:80 $+ $crlf $+ $crlf
}
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
}
}

;——————————————————————————————————
; Addon - Photos en pv - par uaip
;——————————————————————————————————

on *:open:?:if ($network == DiscuT) dpv $nick
alias query { query $$1 | if ($network == DiscuT) dpv $$1 }
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
}
alias -l dpvaff { if (%ppvpfid == $true) { background -p %ppvpseudo dphoto.jpg | unset %ppvp* | unset %temp } }
alias -l swr sockwrite -n $sockname $1-
on *:sockopen:ppv:{
  if ($sockerr) { echo 4 -a ** Erreur ouverture site IP | halt }
  swr POST /profile_search.php HTTP/1.1
  swr Host: discut.fr:80
  swr Content-Type: application/x-www-form-urlencoded
  swr Content-Length: $len(%ppvpt) $+ $crlf $+ $crlf
  swr %ppvpt
}
on *:sockread:ppv:{
  sockread %temp
  if ($+(Photo,$chr(32),de,$chr(32),$gettok(%ppvpt,11,61)) isin %temp) {
    set %ppvphoto $gettok(%temp,2,34)
    sockclose ppv | sockclose ppv2 | sockopen ppv2 www.discut.fr 80
  }
}
on *:sockopen:ppv2:{
  .remove dphoto.jpg
  set %ppvpfid $false
  swr GET / $+ %ppvphoto HTTP/1.1
  swr Host: discut.fr:80 $+ $crlf $+ $crlf
}
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
  }
}

Conclusion

On peut sans doute faire beaucoup mieux, j'attends donc vos commentaires.

(pas besoin de .zip pour une si petite source).

Sources de la même categorie

Toutes les sources de la catégorie Astuces

Sources en rapport avec celle ci

Commentaires

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 Exagone le 16/12/2007 20:04:26

Es que l'on peux la faire pareil pour d'autre server ? , en changant le site non ,
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 uaip le 16/12/2007 20:45:05

<coup de gueule>
je précise, pour mes relations avec CL, que malgré tout ce que j'ai fait pour botman, cet abruti n'a même pas voulu me donner le password pour se connecter via mIRC. donc je te laisse te débrouiller avec cette équipe de bras-cassés :)
</coup de gueule>
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 uaip le 01/01/2008 12:40:33

comme je l'ai dit plus haut, non. ce code ouvre une connexion socket qui va se connecter au site de discut.fr (je sais pas si j'explique assez bien) mais uniquement a ce site. si tu veux le faire pour voila, tu dois observer comment sont "classées" les photos et adapter ton code en fonction de leur site. (sinon le principe doit etre le même oui, peut-etre sans la méthode POST).
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 zarmoz le 13/01/2008 11:54:25

Merci bien pour l'addon ;)
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 archeloga le 05/05/2008 08:01:23

trouve des bugs, t'aurais peut-etre ta chance ;)
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 Exagone le 09/05/2008 12:57:07

Sur chat-land j'ai été retro animateur je ne suis qu'un simple vugaire anim avec un pouvir de helper ( dont pratiquement rien ) et si j'ouvre ma guel je suis del
Commentaire de uaip le 09/05/2008 18:07:20

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

:)