Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 838 fois - Téléchargée 33 fois
alias -l MonKitSetup-SiteWeb { if ($1 == 0) return 1 elseif ($1 == 1) { if ($prop == file) return /MonKit/MonKit-Setup.txt else return melnofil.no-ip.com } else return $null } alias -l MonKitSetup-DrawText {; <R> <G> <B> <x> <y> <text> drawtext -nr @MonKit-Setup $rgb($1,$2,$3) Fixedsys 9 $4- } alias -l MonKitSetup-OpenWindow { window -dkpBo @MonKit-Setup -1 -1 400 150 titlebar @MonKit-Setup - Installation de MonKit... setlayer 192 @MonKit-Setup clear @MonKit-Setup var %w $calc($window(@MonKit-Setup).dw - 10), %h $calc($window(@MonKit-Setup).dh - 10) drawrect -nrfd @MonKit-Setup $rgb(235,245,255) 4 4 4 %w %h 25 25 MonKitSetup-DrawText 0 0 0 20 20 Installation de MonKit en cours... } alias -l MonKitSetup-ConnectServer { MonKitSetup-OpenWindow if ($1 <= $MonKitSetup-SiteWeb(0)) { MonKitSetup-DrawText 0 0 255 30 40 * Tentative de contact avec un serveur drawdot @MonKit-Setup .sockopen MonKitSetup $MonKitSetup-SiteWeb($1) 80 .timerMonKitSetup-ConnectServer 1 30 MonKitSetup-ConnectServer $calc($1 + 1) } else { MonKitSetup-DrawText 255 0 0 30 40 - Aucun serveur n'est disponible ! MonKitSetup-DrawText 0 0 255 30 30 * Nouvelle tentative dans 1 minute... drawdot @MonKit-Setup .timerMonKitSetup-ConnectServer 1 30 MonKitSetup-ConnectServer 1 } } alias -l MonKitSetup-Timeout { .sockclose MonKitSetup MonKitSetup-ConnectServer $calc($1 + 1) } alias-l MonKitSetup-Erreur { MonKitSetup-OpenWindow MonKitSetup-DrawText 255 0 0 30 40 * $1- MonKitSetup-DrawText 0 0 0 30 60 Fin anormale de l'installation : MonKitSetup-DrawText 0 0 0 50 75 MonKit risque de ne pas fonctionner MonKitSetup-DrawText 0 0 0 50 90 correctement. drawdot @MonKit-Setup unset %MonKitSetup* .sockclose MonKitSetup .fclose MonKitSetup .unload -rs " $+ $script $+ " halt } alias -l MonKitSetup-Fin { MonKitSetup-OpenWindow MonKitSetup-DrawText 0 0 255 30 40 Installation terminée ! MonKitSetup-DrawText 0 0 0 30 60 Vous pouvez utiliser MonKit =) drawdot @MonKit-Setup unset %MonKitSetup* .sockclose MonKitSetup .unload -rs " $+ $script $+ " halt } alias -l MonKitSetup-SockRead { if (%MonKitSetup == $null) { if ($1- == $null) set %MonKitSetup 1 } elseif (%MonKitSetup == 1) { if ($1- == EOF) { MonKitSetup-Fin } if (/ isin $1-) || (\ isin $1-) || ($chr(124) isin $1-) || ($ isin $1-) || (% isin $1-) $& || ($0 != 2) || ($left($1,1) != -) MonKitSetup-Erreur Le serveur est corrompu ! var %dir $mircdir $+ MonKit\ if (!$exists(%dir)) .mkdir " $+ %dir $+ " .fopen -no MonKitSetup " $+ %dir $+ $2 $+ " if ($fopen(MonKitSetup).err != 0) { MonKitSetup-Erreur Un fichier n'a pas pu être crée ! } set %MonKitSetup $1 } elseif ($1- == ---) { var %file " $+ $fopen(MonKitSetup).fname $+ " .fclose MonKitSetup .load %MonKitSetup %file set %MonKitSetup 1 } else .fwrite MonKitSetup $1- $+ $crlf } #MonKitSetup on alias MonKitSetup-Start { .disable #MonKitSetup MonKitSetup-ConnectServer 1 } #MonKitSetup end on *:start:/MonKitSetup-Start on *:unload:/.remove " $+ $script $+ " on *:sockopen:MonKitSetup:{ unset %MonKitSetup var %n $calc($gettok($timer(MonKitSetup-ConnectServer).com,2,32) - 1) .timerMonKitSetup-ConnectServer off .sockwrite -n MonKitSetup GET $MonKitSetup-SiteWeb(%n).file HTTP/1.1 .sockwrite -n MonKitSetup Host: $MonKitSetup-SiteWeb(%n) .sockwrite -n MonKitSetup $null .timerMonKitSetup-Timeout 1 30 MonKitSetup-Timeout %n MonKitSetup-OpenWindow MonKitSetup-DrawText 0 0 0 30 40 Connection établie avec le serveur MonKitSetup-DrawText 0 0 255 30 30 Téléchargement en cours... drawdot @MonKit-Setup } on *:sockread:MonKitSetup:{ if ($sockerr != 0) { e Erreur ! | return } var %cmd $timer(MonKitSetup-Timeout).com .timerMonKitSetup-Timeout off sockread %MonKitSetup-temp while ($sockbr != 0) { MonKitSetup-SockRead %MonKitSetup-temp | sockread %MonKitSetup-temp } .timerMonKitSetup-Timeout 1 30 %cmd }
Merci de la description ..
Ok on est sur un chan sur irc, y'a le mec qui hébèrge le script (moi) et une personne qui veux le dl.
Le gars tape !MonKit ==> Ca lui envois un fichier d'installation (le code source ci-dessus)
Le send se termine ==> Le mec recoit des notices expliquant très simplement comment loader le script (1 commande à copier) et lancer les routines d'installation (1 clic).
Là une fenetre image s'ouvre qui décrit ou en est le transfert, en faite le script est en train de dler tous les fichiers remote et alias depuis le serveur http (la gestion des serveurs miroirs est incluse).
Dès que le dl se termine, le script d'installation s'auto-détruit.
Voilà
C'est vrai que maintenant que j'y repense j'aurais du mettre un système pour récuperer dans la foulée les dll, jpg, etc. Seulement le probleme c que ca peut pas se faire dans la foulée justement (pas sur le même socket) : il faut les traiter à part.
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.