Accueil > > > PHOTOS EN PV - DISCUT.NET
 PHOTOS EN PV - DISCUT.NET
 Information sur la source
 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 du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
débutant....juste un script "répondeu" PV Chat [ par vincefriends ]
bonjour je sui débutant....je laisse le chat de wanadoo allumé toute la journée kan je travaille....je voudré juste avoir un message du genre"je sui p
Notice après fermeture d un PV [ par Chutney ]
voila je voudré ke kan je ferme ma fenetre de query sa envoie une notice o gars concerné een disant : My Query with you has been close; un truc du gen
font pour pv [ par Zzeubi ]
salut tout le monde :) en faite j'aimerai bien qu'il y est la meme font pour tout les pvs , si quelq'un peut me dire c'est vraiment sympa :)SchuSs tou
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) [ par roxorz ]
Comment mettre une image de fond ds les pv et le gen plz? jai tout dé sof sa ds mon script :) Vla LoL :)
commande en pv et /writeini [ par Zioa ]
BonjourTout dabort j'aimerait saoir quelle remote utiliser pour faire executer une commande alias lorsque l'on envoye un message en pv du style:/msg &
comandes en pv [ par Zioa ]
Bonjourquel est le remote pour envoyer des msg en pv qui face des action ex: /msg nick !voice <un_nick> que le remote le reconnaice et execute /
Script qui pv toutes les personnes d'un chan [ par trasher ]
Bonjour, je voudrais savoir si quelqu'un pourrais me faire un script ou si il en existe deja un qui permet de PV toutes les personne d'un chan et leur
Un bot avec plein de truc [ par yoshiyo ]
Tout a d'abord bonjour,Desoler pour le titre qui n'est pas tres explicatif mais je ne savais pas quoi mettre.Je vous explique exactment ce dont j'ai b
Copier en "live", un général dans un pv [ par lhemgui60 ]
BonjourJe ne m'y connais pas très bien en scripting, je connais un peu les trucs de bases (en fait mon truc c'est plutôt VB, mais une fois lancé en sc
PM quelqu'un une fois sur deux [ par trasher ]
Bonjour !Je voudrais savoir comment faire quand quelqu'un rentre sur un chan ba je pv un gars une fois sur deux !!!Ex :Je suis sur le chan #rollerJuli
|
Derniers Blogs
 IMAGINE CUP 2012, MAKE A SIGN EN FINALEIMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg
Voilà qui est fait, la nouvelle est officielle ! L'équipe belge "Make a Sign" va au pays des kangourous défendre son projet dans la catégorie Software Design. http://www.imaginecup.com/CompetitionsContent/Competition/WorldwideFinalists.aspx V...
Cliquez pour lire la suite de l'article par junarnoalg KINECT 1.5 IS OUT !KINECT 1.5 IS OUT ! par Vko
La version 1.5 du Kinect For Microsoft vient tout juste de sortir ! Plein de nouveautés: Tracking de squelette en Near Mode Détection en position assise Détection faciale avec un SDK dédié Documentation et des guideline (enfin) Un out...
Cliquez pour lire la suite de l'article par Vko LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc
Mise à jour des Web API du 14 Mai
Réservez dès maintenant votre journée du 20 juin pour le Windows Azure Dev Camp 2012 à Paris
Mise à jour de Team Foundation Service
MechCommander 2 sur Windows 8
Entity Framework 5 Release Candidate e...
Cliquez pour lire la suite de l'article par richardc REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITERREACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc
Une mauvaise utilisation de rx lors de l'écriture d'une couche d'accès à des services peut conduire à des cas embarassants avec des erreurs mal gérées, des appels qui ne partent lorsqu'ils le devraient, et même des résultats incorrects . le tout nuis...
Cliquez pour lire la suite de l'article par Groc SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVESSHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg
Dernièrement, nous avons migré le site
myTIC
vers un nouveau serveur SharePoint 2010. Dans les contenus que nous vouloins récupérer, nous avions un certain nombre de blogs.
Nous avons utilisé les commandes Power...
Cliquez pour lire la suite de l'article par junarnoalg
Forum
 REMOTE /OPALLREMOTE /OPALL par Aesculus
Cliquez pour lire la suite par Aesculus SHOUTCASTSHOUTCAST par lobas
Cliquez pour lire la suite par lobas PROBLèME CODESPROBLèME CODES par pingoleon100
Cliquez pour lire la suite par pingoleon100
Logiciels
 sDEVIS-FACTURES vlPRO (8.1.0.3)SDEVIS-FACTURES VLPRO (8.1.0.3)sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa... Cliquez pour télécharger sDEVIS-FACTURES vlPRO 974 Application Server (12.2.4.6)974 APPLICATION SERVER (12.2.4.6)Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc... Cliquez pour télécharger 974 Application Server vPicture (1.4.2.1)VPICTURE (1.4.2.1)Avec vPicture, hébergez vos images facilement et rapidement.
vPicture est un utilitaire simple, ... Cliquez pour télécharger vPicture Easy-Planning (2.2.1.6)EASY-PLANNING (2.2.1.6)Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au... Cliquez pour télécharger Easy-Planning COM-BACKUP (2.0)COM-BACKUP (2.0)
COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...
Cliquez pour télécharger COM-BACKUP
|