Commandes dos dans mirc

Commenter

Contenu du snippet

C'est pas nouveau, je sais ...
Mais voila, j'avais besoin d'un outil permettant d'exécuter n'importe quelle commande DOS via mIRC... ce que les autres applets ne me permettaient pas de faire.

Une interraction avec cmd.exe & mIRC sans dll et sans comopen ...

Enfin voila.
N'hésitez pas à laisser des comentaires ...

Source / Exemple : 


on *:load: { mkdir $mircdircmd }

menu * {
  $iif( $active === @cmd, close,MS-DOS) : action $active
} 

alias -l action window  $iif( ($1 === @cmd), -c, -dek0) @cmd

alias -l xr {

  var %s = $iif(($1), $1,$r(10,15)) 
  while (%s) var %r = $+(%r,$r(a,z)) ,%s = %s - 1

  return %r
} 

alias -l report {  var %report.file = $+($mircdircmd\,$1, .tmp)

  if ($hget(report, $1) < $lines(%report.file)) { 

    if ($hget(zreport, $1)) hdel zreport $1

    var %report.read = $replace($read(%report.file, $hget(report, $1)), $chr(130),é,$chr(255), $chr(32), $chr(138),è, $chr(156), oe)
    hinc -m report $1

    echo @cmd  $iif( (%report.read),%report.read,-) 
  }

  else { 

    if ($hget(zreport, $1-) > 5000) { 

      hdel zreport $1- 
      hdel report $1- 
      return 
    }

    hinc -m zreport $1-
  }

  .timer_report $+ $1 1 0 report $1
}

on *:input:@cmd: { 
  $iif( ($left($1,1) == /), return, echo 9 -at 3*14 Traitement de la commande $qt($1-))

  var %output = $xr
  hinc -m report %output | report %output

  run -n cmd.exe /C $1- > $qt($+($mircdircmd\,%output, .tmp))
}

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