Comment faire un installateur en scripting? :d

Commenter

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

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 (Evrae)