[script] n0=;]+[--]+[ n1=;0[o-Lector Log-o]0 n2=;Version 1.0 (c) 2002 DannyBoy n3= n4=alias logs { n5= .window -c @Logs n6= set %log.number $nopath($findfile($logdir,*.log,0)) n7= set %log.num 0 n8= .window -l17Sk @Logs 0 0 630 384 n9= .titlebar @Logs - Bajando logs n10= aline @Logs 4ADS Log 11- 12Chequiado... n11= aline @Logs 1,1. n12= aline @Logs 4Ahora se esta bajando el log... n13= :incl1 n14= inc %log.num n15= .aline -l @Logs $nopath($findfile($logdir,*.log,%log.num)) n16= if (%log.num == %log.number) goto enddafucker n17= goto incl1 n18= :enddafucker n19= aline @Logs 4Logs bajados15:4 %log.number n20= aline @Logs 1,1. n21= aline @Logs Doble click en el log que quieres ver n22= .titlebar @Logs - Esperal n23= n24=} n25= n26=alias asdf { n27= if ($sline(@Logs,1).ln >= 1) { n28= .titlebar @Logs - $sline(@Logs,1) n29= clear @Logs n30= set %logs.temp $logdir $+ $sline(@Logs,1) n31= aline @Logs Ahora puedes ver 15:4 $sline(@Logs,1) n32= aline @Logs Bytes en $sline(@Logs,1) $+ 15:4 $lof(%logs.temp) n33= loadbuf -p @logs $logdir $+ $sline(@Logs,1) n34= } n35=} n36= n37=menu @Logs { n38= dclick asdf n39= Borrar Texto: .clear @Logs | .titlebar @Logs - Waiting | aline @Logs Doble click en el log que quieres ver n40= - n41= Borrar Log: .remove $logdir $+ $sline(@Logs,1) | dline -l @Logs $sline(@Logs,1).ln n42= - n43= Acerca de: dialog -m adb.aceca.log adb.aceca.log n44=} n45= n46=on 1:close:@Logs: { unset %logs.* } n47= n48=dialog adb.aceca.log { n49= title "ADB - Lector Log" n50= size -1 -1 157 125 n51= option pixels n52= button "Aceptar/Salir", 1, 5 94 144 25, ok cancel n53= text "ADB Lector Log", 8, 5 7 109 16 n54= text "v. 1.0", 9, 5 21 50 16 n55= text "By DannyBoy", 11, 5 34 70 16 n56= text "Email: chago38@coqui.net", 12, 5 67 148 16 n57=}