Come recuperare il livello di inchiostro delle cartucce a livello di codice (Epson StatusMonitor + Mac OS X)?

StackOverflow https://stackoverflow.com/questions/314054

  •  10-07-2019
  •  | 
  •  

Domanda

Sto cercando un modo per interrogare il livello di inchiostro per il mio Epson DX 4050 su Mac OS X. Esiste un'interfaccia utente chiamata EPSON StatusMonitor per visualizzare graficamente i livelli delle cartucce, ma mi piacerebbe ottenerlo dal comando- linea in modo che possa alimentare un robot.

Qualche idea?

È stato utile?

Soluzione

Sarà un'impresa. Ingegnere all'indietro l'applicazione StatusMonitor per scoprire come richiede ai driver di trovare il livello di inchiostro o cercare della documentazione per esso. Potrebbe essere possibile infiltrarsi nell'applicazione StatusMonitor per scoprire i valori interni per i suoi widget (una cosa del genere è possibile con Windows, anche se hacky), ma è probabile che l'intero processo sia un pozzo per il tempo :(

Altri suggerimenti

Se la stampante supporta SNMP, potresti essere fortunato a eseguire query con qualsiasi strumento da riga di comando SNMP. Esistono definizioni standard per stampanti e contengono API per interrogare i livelli di inchiostro corrente e massimo.

Ecco come lo faccio con semplici comandi shell unix (richiede net-snmp installato). Questo non è strettamente Mac ma dovresti avere un'idea.

#!/bin/sh

me="${0##*/}"

host="${1:-wp4535}"

base=1.3.6.1.2.1.43.11.1.1

name="WP-4535"

type=$(snmpget -v1 -c public ${host} SNMPv2-MIB::sysDescr.0)

case "$type" in
"SNMPv2-MIB::sysDescr.0 = STRING: EPSON"*)
    type=epson
    ofs=1
;;
*)
    echo "! unknown printer type" 1>&2
    exit 1
;;
esac
echo "# $host $type $name"

# get current ink levels
eval $(snmpwalk -v1 -Ov -OQ -c public ${host} ${base}.6.${ofs} |
perl -ne 'print "c[",++$c,"]=$1\n" if(m!"(\w+) ink!i);')

# get max ink level per cartridge
eval $(snmpwalk -v1 -Ov -OQ -c public ${host} ${base}.8.${ofs} |
perl -ne 'print "max[",++$c,"]=$1\n" if(m!(\d+)!i);')

snmpwalk -v1 -Ov -OQ -c public ${host} ${base}.9.${ofs} |
perl -ne '
    my @c=("","'${c[1]}'","'${c[2]}'","'${c[3]}'","'${c[4]}'");
    my @max=("","'${max[1]}'","'${max[2]}'","'${max[3]}'","'${max[4]}'");
    my $v=$c[++$c];
    printf"# $v=$1 (%.0f)\n",$1/$max[$c]*100 if(m!(\d+)!i);'
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow
scroll top