- ;------------------------------------------------------
- ;
- ; -=- 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, ) == $null) { goto re }
- else {
- did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) 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, ) == $null) { goto re }
- else {
- did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) 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, ) == $null) { goto re }
else {
did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) 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, ) == $null) { goto re }
else {
did -a sources 3 $remove($gettok(%pr,5,62),</a,<br, ) 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)
}