News et test jeux video.com

Commenter

Contenu du snippet

Click droit
  • News/test

-

Source / Exemple : 


alias jv {
  sockclose jv
  write -c jv.txt
  sockopen jv www.jeuxvideo.com 80
}
on *:sockopen:jv:{
  sockwrite -n $sockname GET http://www.jeuxvideo.com/tests.htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on *:sockread:jv:{ 
  sockread %a
  if (http://image.jeuxvideo.com/images isin %a) { return }
  if (TEST COMPLET  isin %a) { return }
  if (TEST PS2  isin %a) { return }
  if (TEST xbox  isin %a) { return }
  if (TEST GameCube isin %a) { return }
  if (http://www.jeuxvideo.com/articles/0000/ isin %a) { var %b = $replace($remove(%a,<a,href=,"><span ,class=aclien>,</span>,</a>,>,<br>,<br),",$chr(32)) |   echo -a 7T4est 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7Test1/7Console 1: %b | write jv.txt %b }
  unset %a
}
alias dirjv {
  var %v = $rand(1,$lines(jv.txt))
  /msg $active 7T4est 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7Test1/7Console 1: $read(jv.txt,%v)
}
alias time {
  var %v = $rand(1,$lines(jv.txt))
  /msg %chanel 7T4est 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7Test1/7Console 1: $read(jv.txt,%v)
}
menu channel,query {
  -  
  News/Test
  .Test
  ..Test JV:jv
  ..Dir Test:dirjv
  ..Timer Test (Toutes les 15Minutes):set %chanel $?"Le chanel sur lequel les test vont etres ecrits:" | timertest 0 900 time
  ..Stop Timer Test:set %chanel #chan | timertest off | echo -a Timer Test est aretter .
  .News
  ..News JV:jvn
  ..Dir News:dirjvn
  ..Timer News (Toutes les 15 Minutes):set %channel $?"Le chan sur lequel les news vont etre ecrit ?" | timernews 0 900 timen
  ..Stop Timer News:set %chanel #chan | timernews off | echo -a Timer Test est aretter .
}
alias jvn {
  sockclose jvn
  write -c jvn.txt
  sockopen jvn www.jeuxvideo.com 80
}
on *:sockopen:jvn:{
  sockwrite -n $sockname GET http://www.jeuxvideo.com/news.htm HTTP/1.0
  sockwrite -n $sockname $crlf
}
on *:sockread:jvn:{ 
  sockread %c
  if (http://image.jeuxvideo.com/ isin %c) { return }
  if (</span isin %c) { return }
  if (</font isin %c) { return }
  if (http://www.jeuxvideo.com/news/2005/000 isin %c) { var %d = $replace($remove(%c,<a,href=",>,</a>,</a,<br>,<br),",$chr(32)) | echo -a 7N4ews 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7News1 1: %d | write jvn.txt %d }
  unset %a
}
alias dirjvn {
  var %vi = $rand(1,$lines(jvn.txt))
  msg $active 7N4ews 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7News1  1: $read(jvn.txt,%vi)
}
alias timen {
  var %vi = $rand(1,$lines(jvn.txt))
  msg %chanel 7N4ews 4"JeuxVideo.com"7 B4y 4noss . 7Url1/7News1  1: $read(jvn.txt,%vi)
}

Conclusion :


Voila si ya des bug dites le moi .
Ceci sont les TEST jv et les NEWS :)
-
Merci pour les conseils :)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (nossou13)