begin process at 2010 03 16 09:10:06
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > AFFICHER LES DERNIERES SOURCES DE MIRCSCRIPTSFRFM.COM

AFFICHER LES DERNIERES SOURCES DE MIRCSCRIPTSFRFM.COM


 Information sur la source

Note :
9 / 10 - par 2 personnes
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Réseau & Internet Niveau :Débutant Date de création :25/01/2004 Vu :2 030

Auteur : ReMi34

Ecrire un message privé
Site perso
Commentaire sur cette source (6)
Ajouter un commentaire et/ou une note

 Description

Toujours en sockets (j'vais pas arrêter !!), voici un addon qui permet d'afficher les 50 dernières sources de mircscriptsfrfm.com.

Je me suis inspiré de l'addon de SornDrixer (avec son accord).

Source

  • ;------------------------------------------------------
  • ;
  • ; -=- Dernieres sources de mircscriptfrfm.com -=-
  • ; By Re[M]i_34
  • ;
  • ;------------------------------------------------------
  • dialog sources {
  • title "Dernieres sources de mircscriptsfrfm.com"
  • size -1 -1 194 172
  • option dbu
  • button "Afficher les dernieres sources", 1, 4 5 184 11
  • edit "", 2, 24 26 141 10, center read autohs
  • edit "", 3, 8 38 177 115, multi autohs autovs hsbar vsbar
  • box "Résultats :", 4, 4 18 184 138
  • button "Effacer", 5, 31 159 44 10
  • button "Fermer", 6, 120 159 44 10, ok
  • }
  • menu * {
  • Dernières sources de mircscriptsfrfm.com:dialog -m sources sources
  • }
  • on *:dialog:sources:sclick:*: {
  • if $did == 1 {
  • sockopen site www.mircscriptsfrfm.com 80
  • did -ra sources 2 Connection en Cours...
  • }
  • if $did == 5 { did -r sources 2,3 }
  • }
  • on *:sockopen:site:{
  • sockwrite -n $sockname GET http://www.mircscriptsfrfm.com/cgi-bin/liste.pl?P=tous
  • did -ra sources 2 Connection Effectuée
  • did -a sources 3 -=- Début -=- $CRLF
  • }
  • on *:sockread:site:{
  • :re
  • sockread -f %pr
  • if (checked> isin %pr) { goto re }
  • if (<tr><td bgcolor="#E0A090"> isin %pr) {
  • if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
  • else {
  • did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
  • }
  • }
  • if (<tr><td bgcolor="#DDDDDD"> isin %pr) {
  • if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
  • else {
  • did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
  • }
  • }
  • if ($sockbr > 0) { goto re }
  • if ($sockbr == 0) {
  • .timer986 1 10 sockclose site
  • .timer987 1 10 did -a sources 3 -=- Fin -=-
  • halt
  • }
  • }
  • on *:dialog:sources:init:*:{
  • dll mdx.dll SetMircVersion $version
  • dll mdx.dll MarkDialog $dname
  • dll mdx.dll SetColor $dname 2 text $rgb(255,0,0)
  • dll mdx.dll SetColor $dname 3 text $rgb(0,0,255)
  • dll mdx.dll SetColor $dname 2,3 textbg $rgb(255,255,255)
  • dll mdx.dll SetColor $dname 2 background $rgb(255,255,255)
  • }
;------------------------------------------------------
;
;   -=- Dernieres sources de mircscriptfrfm.com -=-   
;              By Re[M]i_34
;
;------------------------------------------------------

dialog sources {
  title "Dernieres sources de mircscriptsfrfm.com"
  size -1 -1 194 172
  option dbu
  button "Afficher les dernieres sources", 1, 4 5 184 11
  edit "", 2, 24 26 141 10, center read autohs
  edit "", 3, 8 38 177 115, multi autohs autovs hsbar vsbar
  box "Résultats :", 4, 4 18 184 138
  button "Effacer", 5, 31 159 44 10
  button "Fermer", 6, 120 159 44 10, ok
}
menu * {
  Dernières sources de mircscriptsfrfm.com:dialog -m sources sources
}

on *:dialog:sources:sclick:*: {
  if $did == 1 {
    sockopen site www.mircscriptsfrfm.com 80
    did -ra sources 2 Connection en Cours...
  }
  if $did == 5 { did -r sources 2,3 }
}
on *:sockopen:site:{
  sockwrite -n $sockname GET http://www.mircscriptsfrfm.com/cgi-bin/liste.pl?P=tous
  did -ra sources 2 Connection Effectuée
  did -a sources 3 -=- Début -=- $CRLF
}

on *:sockread:site:{
  :re
  sockread -f %pr
  if (checked> isin %pr) { goto re }
  if (<tr><td bgcolor="#E0A090"> isin %pr) {
    if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
    else {
      did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
    }
  }
  if (<tr><td bgcolor="#DDDDDD"> isin %pr) {
    if ($remove($gettok(%pr,5,62),</a,<br,&nbsp;) == $null) { goto re }
    else {
      did -a sources 3 $remove($gettok(%pr,5,62),</a,<br,&nbsp;) http://www.mircscriptsfrfm.com/cgi-bin/ $+ $remove($gettok($gettok(%pr,4,60),1,62),a href=,") $CRLF
    }
  }
  if ($sockbr > 0) { goto re }
  if ($sockbr == 0) {
    .timer986 1 10 sockclose site
    .timer987 1 10 did -a sources 3 -=- Fin -=-
    halt
  }
}

on *:dialog:sources:init:*:{
  dll mdx.dll SetMircVersion $version 
  dll mdx.dll MarkDialog $dname
  dll mdx.dll SetColor $dname 2 text $rgb(255,0,0)
  dll mdx.dll SetColor $dname 3 text $rgb(0,0,255)
  dll mdx.dll SetColor $dname 2,3 textbg $rgb(255,255,255)
  dll mdx.dll SetColor $dname 2 background $rgb(255,255,255)
}

 Conclusion

Voilà !

Dites moi ce que vous en pensez ;)

PS: Il vous faut mdx.dll dans la racine de votre mIRC ou Script.


 Sources du même auteur

Source avec Zip JEU DE LETTRES : TROUVEREZ-VOUS LE MOT JUSTE ?
Source avec Zip Source avec une capture MULTISOCK V2.0
Source avec Zip [TUTORIEL] SOCKETS TCP - LES BASES
Source avec Zip LES BOUCLES WHILE
TESTER SA BANDE PASSANTE

 Sources de la même categorie

Source avec une capture QUOTES BASH ET BASHFR par Flyswat
MIRSMAIL CLIENT MIRC POUR LE CHAT DE SMAIL (WWW.SMAIL.FR) par pppaaahhh
Source avec Zip Source avec une capture FIREWALL par Bestdoud
ASPIRATEUR DE GALERIES INTERNET par PaDa
Source avec Zip MSN MESSENGER SUR IRC SCRIPT POUR COMPRENDRE LE FONCTIONEMEN... par synsun

Commentaires et avis

Commentaire de [thomas95 le 25/01/2004 17:49:53

c bien sa mais se serai mieu si c'etait pour ircfr.com :p

Commentaire de SornDrixer le 25/01/2004 18:17:42 administrateur CS

"PS: Il vous faut mdx.dll dans la racine de votre mIRC ou Script."
Tu avais qu'à zipper le tout, et inclure mdx avec le zip :p

[thomas95 : pour ircfr, il y a déjà une source qu'il le fait il me semble, une source de abdoulax.

Commentaire de [thomas95 le 25/01/2004 18:26:33

a ok merci Sorn
je vais voir :)

Commentaire de ReMi34 le 25/01/2004 18:27:46

J'avais prévu d'en faire un aussi pour ircfr.com ;)

Commentaire de vesparo le 25/01/2004 18:43:43

c'est bien :p on en a deja parler 8/10

Commentaire de ReMi34 le 25/01/2004 18:45:37

Lol ^^

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,546 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales