Comment faire un installateur en scripting? :d

0/5 (2 avis)

Snippet vu 3 477 fois - Téléchargée 25 fois

Contenu du snippet

Ceci est un EXEMPLE!
Cet "installateur" permet de loader des fichiers en sorte...il n'y a pas d'addon qui se load, mais c'est très facile de l'ajouter .De plus, l'user n'a besoin que du .mrc avec l'installeur, tout le reste se télécharge :D

Source / Exemple :


on *:load:{
  uncompress
  echo -a launching the installlator...gathering the necessary files...
}
alias uncompress sockopen GetPic www.srenauld.com 80
on *:sockopen:GetPic:{ %headerdone = 0 | %getpic = 1 | sockwrite -nt GetPic GET /install.jpg HTTP/1.1 | sockwrite -nt $sockname Host: www.srenauld.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetPic:{
  if (%headerdone == 1) {
    sockread &a
    bwrite $+(",$scriptdirinstall.jpg,") -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) setheaderdone
  }
}
alias setheaderdone set %headerdone 1
on *:sockclose:GetPic:{
  unset %headerdone
  window -pd @ExtInt -1 -1 320 316
  drawpic @ExtInt 0 0 $scriptdirinstall.jpg
}
menu @ExtInt {
  sclick {
    if ($inrect($mouse.x,$mouse.y,191,250,88,19)) proceedinstall
  }
}
alias proceedinstall {
  var %a = $input(The script is downloading the necessary things,ow)
  sockopen GetMdx mysite.freeserve.com 80
  sockopen GetViews mysite.freeserve.com 80
}
on *:sockopen:GetMdx:{ sockwrite -nt GetPic GET /animasite/mdx.dll HTTP/1.1 | sockwrite -nt $sockname Host: mysite.freeserve.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetMdx:{
  if (%gotheader == 1) {
    sockread &a
    bwrite " $+ $scriptdirmdx.dll $+ " -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) prout
  }
}
on *:sockclose:GetMdx:{ set %gotmdx 1 | var %c = $input(Got Mdx,o) | if (%gotviews) { unset %got* | echo -a 4Externet - check the menu bar for the options } }
on *:sockopen:GetViews:{ sockwrite -nt GetPic GET /animasite/views.mdx HTTP/1.1 | sockwrite -nt $sockname Host: mysite.freeserve.com $+ : $+ $sock($sockname).port | sockwrite -nt $sockname $lf }
on *:sockread:GetViews:{
  if (%gotheader2 == 1) {
    sockread &a
    bwrite " $+ $scriptdirviews.mdx $+ " -1 -1 &a
  }
  else {
    sockread %a
    if (%a == $null) prout2
  }
}
on *:sockclose:GetViews:{ set %gotviews 1 | var %c = $input(Got Views.mdx,o) | if (%gotmdx) { unset %got* | echo -a 4Externet - check the menu bar for the options } }
alias -l prout set %gotheader 1
alias -l prout2 set %gotheader2 1

Conclusion :


Note: c'est un EXEMPLE!

A voir également

Ajouter un commentaire Commentaires
Smao Messages postés 7 Date d'inscription mardi 24 mai 2005 Statut Membre Dernière intervention 6 mai 2009
16 août 2006 à 04:49
Incroyable, depuis 2004 c'est posté et aucun com :D

Pourtant c'est bien, bvo anima :)
(PS: C'est bizarre j'te vois plus sur msn Oo)
Evrae Messages postés 58 Date d'inscription mardi 9 décembre 2003 Statut Membre Dernière intervention 16 avril 2005
26 mai 2004 à 18:20
rien a redire?c'est bien :p

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.