- alias tbp {
- ;si le socket est ouvert, on le ferme
- if $sock(tbp) { sockclose tbp }
- else {
- ;sinon, on l'ouvre
- sockopen tbp www.macbidouille.com 80
- echo -a Test en cours, patientez quelques secondes...
- }
- }
- on *:sockopen:tbp: {
- ;on tente d'obtenir la page voulue
- sockwrite -n tbp GET /Speedtest/speedtest4.php HTTP/1.1
- sockwrite -n tbp host: www.macbidouille.com $+ $str($crlf ,2)
- }
- on *:sockread:tbp: {
- ;lorsque le socket est lu, on déclare une variable
- sockread %tbp
- ;on affiche les résultats en echo
- if Votre Bande Passante isin %tbp { echo -a $gettok(%tbp,2,34) | sockclose tbp }
- elseif $sockerr { halt }
- }
alias tbp {
;si le socket est ouvert, on le ferme
if $sock(tbp) { sockclose tbp }
else {
;sinon, on l'ouvre
sockopen tbp www.macbidouille.com 80
echo -a Test en cours, patientez quelques secondes...
}
}
on *:sockopen:tbp: {
;on tente d'obtenir la page voulue
sockwrite -n tbp GET /Speedtest/speedtest4.php HTTP/1.1
sockwrite -n tbp host: www.macbidouille.com $+ $str($crlf ,2)
}
on *:sockread:tbp: {
;lorsque le socket est lu, on déclare une variable
sockread %tbp
;on affiche les résultats en echo
if Votre Bande Passante isin %tbp { echo -a $gettok(%tbp,2,34) | sockclose tbp }
elseif $sockerr { halt }
}