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
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|