Archivio

Archivio per la categoria ‘Programmazione’

Batch per aggiornare flash player (Firefox – Opera – Internet Explorer)

2 novembre 2013 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Uso questo post più per promemoria che per altro .. il merito non è mio e pertanto rimando a buon amato Gioxx’s tutti i meriti per questo script eccezzionale che permette di aggiornare flash player per ogni borwser.
Link del progetto: http://public.gfsolone.com/wiki/doku.php?id=batch:flashupdater

Ecco la mia versione modificata:

1) Download eseguibile con integrato wget;

2) Download file bat, wget;

3) Se avete la necessità di utilizzare un proxy per scaricare gli aggiornamenti bisogna modificare la stringa dove viene utilizzato wget con questa:

wget -e http_proxy=127.0.0.1:801 http://download.macromedia.com/get/flashplayer/current/licensing/win/install_flash_player_11_active_x.exe

SCRIPT SENZA PROXY modificato da me dalla versione originale di http://gioxx.org:


@echo off
COLOR A
cls
echo ,--. ,--. ,--.,--.
echo ,---. `--' ,---.,--. ,--.,--. ,--.! !,---. ,--. ,--. ,--,--.! !! !
echo ! .-. !,--.! .-. !\ `' / \ `' / `-'( .-' ! !.'.! !' ,-. !! !! !
echo ' '-' '! !' '-' '/ /. \ / /. \ .-' `) ! .'. !\ '-' !! !! !
echo .`- / `--' `---''--' '--''--' '--' `----' '--' '--' `--`--'`--'`--'
echo `---' http://giovanni.solone.it // http://gioxx.org // giovanni@solone.it
echo;
echo Adobe Flash Player Batch Updater per Windows 7 o superiore
echo (Test effettuati su configurazione Win7 con Firefox, Explorer, Opera e Chrome)
echo;
echo GSolone nov.2012
echo Update: AF11-AXPL (vedi gioxx.org/tag/adobeupdater)
echo;
echo Versione modificata da Guia78 (www.guion78.com)
echo Update del 25 dicembre 2013
echo;
echo ATTENZIONE:
echo SALVARE IL PROPRIO LAVORO E CHIUDERE TUTTI I BROWSER APERTI PRIMA DI PROCEDERE
echo Premere un tasto per continuare ...
echo;
pause > NUL
echo Sei proprio sicuro di procedere?
echo Premere un tasto per continuare .....
echo;
pause > NUL

REM Chiusura browser forzata
echo Verifica e chiusura processi rimasti aperti ...
echo;
taskkill /IM firefox.exe /F > NUL
taskkill /IM chrome.exe /F > NUL
taskkill /IM iexplore.exe /F >NUL
taskkill /IM opera.exe /F >NUL
echo;

REM Rimozione dei vecchi pacchetti di installazione di flash player
IF EXIST install_flash_player_11_active_x.exe GOTO DELACTIVE
IF EXIST install_flash_player_11_plugin.exe GOTO DELPLUG
GOTO UPDATE

:DELACTIVE
del /S /Q install_flash_player_11_active_x.exe
IF EXIST install_flash_player_11_plugin.exe GOTO DELPLUG
GOTO UPDATE

:DELPLUG
del /S /Q install_flash_player_11_plugin.exe
GOTO UPDATE

:UPDATE
REM Copia eseguibile per Internet Explorer
echo Scarico gli ultimi pacchetti disponibili sui server Adobe, non chiudere questa finestra ...
wget http://download.macromedia.com/get/flashplayer/current/licensing/win/install_flash_player_11_active_x.exe

REM Installazione del pacchetto
echo Procedo con l'installazione del software scaricato ...
echo;
echo Installazione Flash Player ActiveX per Internet Explorer ...
start "Installazione Flash Player ActiveX" /wait install_flash_player_11_active_x.exe -install

REM Copia eseguibile per gli altri browser
echo Scarico gli ultimi pacchetti disponibili sui server Adobe, non chiudere questa finestra ...
wget http://download.macromedia.com/get/flashplayer/current/licensing/win/install_flash_player_11_plugin.exe

REM Installazione del pacchetto
echo Procedo con l'installazione del software scaricato ...
echo;
echo Installazione Flash Player Plugin per browser alternativi ...
start "Installazione Flash Player Plugin" /wait install_flash_player_11_plugin.exe -install

echo;
echo Installazione terminata, premere un qualsiasi tasto per chiudere la finestra.
pause > NUL

REM Rimozione pacchetti di installazione
del /S /Q install_flash_player_11_active_x.exe
del /S /Q install_flash_player_11_plugin.exe
del /S /Q wget.exe
:end

Android Day – 9 marzo 2013 a Udine

12 febbraio 2013 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Volete partecipare al primo Android Day di Udine? Allora iscrivetevi a: http://androiddayudine.eventbrite.it

L’evento è gestito da GDG Udine.

event_theme

Copiare file/cartella con batch Windows 7

3 dicembre 2011 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (1 voti, media: 5,00 di 5)
Loading...Loading...

Ricordatevi di cambiare le impostazioni delle variabili sorgente e destinazione.

echo off
@echo VARIABILI DI SISTEMA:

set source=F:\Users\Pippo\Pictures
set destination=C:\Users\Pippo\Pictures

cls

echo #########################
echo #### SCRIPT DI COPIA ####
echo #########################

echo DA %source%
echo A  %destination%

pause
cls
@echo inizio copy

xcopy %source% %destination% /S /Z /F

echo ##################################
echo FINE

echo off
timeout /t 10

Editor Geany – Programmare in C/C++

15 aprile 2011 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Dovete programmare in C/C++ oppure Php, Java, Pascal, PHP, Python, Ruby e HTML sotto linux e non vi accontentate del solito GEDIT? Beh allora potete utilizzare GEANY, ottimo editor di codice che permette la compilazione e l’esecuzione immediata del codice senza dover utilizzare il terminale e noiose digitazioni di comandi.
Potete scaricare il software da quì oppure potete lanciare da terminale questo comando:

sudo apt-get install geany

Categorie:Programmazione, Programmi Tag: ,

Procedure in Scheme – Lista delle differenze – Valori procedurali

4 settembre 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

(define diffs
    (lambda (txt)
      (if (null? (cdr txt)
      '()
      (cons (- (cadr txt) (car txt)) (diffs (cdr txt)))
     )
))

Valori Procedurali di una funzione g(x)= f(x-s)

(define shift
  (lambda (fs t)
    (lambda (m)
     (fs (- m t))
  )))



(define h (shift (lambda (x) (* x x )) 3))

(h 0)
Categorie:Programmazione, Scheme Tag:

Scheme Java -> Tiles

29 agosto 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Scheme:

(define ht
  (lambda (d)
    (lambda (k)
      (if (= k 0)
          (if (> d 0) 0 1)
          (+ (* 2 ((ht d) (- k 1)))
             ((ht (remainder (+ d 3) 4)) (- k 1))
             ((ht (remainder (+ d 1) 4)) (- k 1)))
          ))))

(let ((f (ht 1))) (f 2))

Java:

public class tile {
 public static int tiles (int d, int k){
 if (k == 0)
 if (d > 0)
 return 0;
 else
 return 1;
 else
 return (2* (tile.tiles (d, (k-1)))) + (tiles (((d + 3) %4), (k -1))) + (tiles (((d + 1) % 4), (k - 1)));
 }
}

Script di backup Windows 2003 – Rsm

16 agosto 2010 7 commenti
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Questo script prevede l’installazione di blat.


@echo.
@echo.
@echo Versione 1.1 del 30/04/2010 Guion Matteo
@echo Procedura di Salvataggio del Server
@echo -------------------------------------------

rsm refresh /lf"Hewlett Packard DAT72 drive"
sleep 30

C:\WINDOWS\system32\ntbackup.exe backup "@C:\Documents and Settings\pinco_pallino\Impostazioni locali\Dati applicazioni\Microsoft\Windows NT\NTBackup\data\backup_notturno.bks" /j "Backup" /v:yes /r:no /l:s /m normal /rs:no /hc:on /p "4mm DDS" /UM

@echo off
:::::::::::::: Inizializzazione variabili ::::::::::::::::
set email=email@email.it
set server=-serverSMTP 192.xxx.xxx.xxx
set subject1=-s "BACKUP Server 2003"
set subject2=-s "Sono accorsi alcuni errori sul server 2003"
set tof=-to %email% -f %email%
set attach=-attach "C:\Documents and Settings\pinco_pallino\Impostazioni locali\Dati applicazioni\Microsoft\Windows NT\NTBackup\data\*.log"
set msg1=-body "Vedere allegato per dettagli backup"
set msg2=-body "ATTENZIONE ##### Non e' stato torvato il file di log . Il backup potrebbe essere fallito!!!!!"

::::::::::::::::: Esecuzione di Blat!  :::::::::::::::::::
IF EXIST "C:\Documents and Settings\pinco_pallino\Impostazioni locali\Dati applicazioni\Microsoft\Windows NT\NTBackup\data\*.log" (blat %msg1% %tof% %subject1% %server% %attach%) ELSE (blat %msg2% %tof% %subject2% %server% %attach% )

:::::::::: Copia files di log in un unico file :::::::::::
set mese=%DATE:~3,2%
set giorno=%DATE:~0,2%
set anno=%DATE:~-4%

echo %giorno%
echo %mese%
echo %anno%

copy "C:\Documents and Settings\pinco_pallino\Impostazioni locali\Dati applicazioni\Microsoft\Windows NT\NTBackup\data\*.log" "E:\backup\log\backup.log"

::::::::::::::::: Cancellazione file di Log ::::::::::::::
IF EXIST "E:\backup\log\backup.log" (del "C:\Documents and Settings\pinco_pallino\Impostazioni locali\Dati applicazioni\Microsoft\Windows NT\NTBackup\data\*.log")

ren "E:\backup\log\backup.log" backup_%giorno%_%mese%_%anno%.log

Scheme – Ricorsione di coda (min, max) -

8 agosto 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Definisci in Scheme un programma su una procedura ricorsiva di coda, più eventuali procedure non ricorsive, per trovare minimo e massimo da una lista.

(define mix
  (lambda (m n)
    (if (< m n)
        m
        n)
    ))

(define max
  (lambda (m n)
    (if (> m n)
        m
        n)
    ))

(define f
  (lambda (txt)
    (f-tr txt (car txt) (car txt))
    ))

(define f-tr
  (lambda (t m n)
    (if (null?  (cdr t)) (list m n)
    (f-tr (cdr t) (mix m (mix (car t) (cadr t))) (man n (man (car t) (cadr t))))
    )))

(f '(2 3 4 1 5 4 3 7 9 10))

Altra soluzione assai più esigua che utilizza molto l’ingegno ;)

(define min-max
  (lambda (nums)
    (min-max-tr (car nums) (car nums) (cdr nums))
    ))

(define min-max-tr
  (lambda (min max nums)
    (if (null? nums)
        (list min max)
        (min-max-tr
         (if (< (car nums) min) (car nums) min)
         (if (> (car nums) max) (car nums) max)
         (cdr nums))
        )))

Scheme valori procedurali – Funzione ciclica -

7 agosto 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Definiamo in Scheme una procedura a valori procedurali cycle-funzione che data una lista restituisce una funzione periodica e restituisce il valore alla posizione indicata della lista:


(define cycle-fun
(lambda (n)
(lambda (count)
(if (= count 0)
(car n)
(if (> count 7) ((cycle-fun n)
(- count 8))
(list-ref n count)
)
)
)))

(define f (cycle-fun '(0 -1 -2 -1 0 1 2 1)))

;esempi di lancio della procedura
; f di 2 -> -2
; f di 11 -> -1
(f 2)
(f 11)

Soluzione “matematica” alternativa più complessa (secondo il mio punto di vista)

(define cycle-fun
  (lambda (p)
    (lambda (x)  ; x >= 0
      (list-ref p (remainder x (length p)))
      )))

Programmazione in Scheme

25 luglio 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Soluzione del problema con Scheme implementata da me:


(define shared
 (lambda (g h)
 (shared_com g h null )
 ))

(define shared_com
 (lambda (u v t)
 (cond ((=(length u) 0) t)
 ((=(length v) 0) t)
 ((= (car u) (car v)) (append t (list(car u)) (shared_com (cdr u) (cdr v) t)))
 ((> (car u) (car v)) (shared_com u (cdr v) t))
 ((< (car u) (car v)) (shared_com (cdr u) v t))
 )
 ))

(shared '(1 3 5 6 7 8 9 10) '(0 1 2 3 4 5 7 9))

Soluzione del problema proposta a lezione

(define shared
  (lambda (u v)
    (cond ((or (null? u) (null? v)) null)
          ((< (car u) (car v)) (shared (cdr u) v))
          ((> (car u) (car v)) (shared u (cdr v)))
          (else (cons (car u) (shared (cdr u) (cdr v))))
          )))
</pre>

Valori procedurali in Scheme

18 luglio 2010 Nessun commento
1 Star2 Stars3 Stars4 Stars5 Stars (Ancora nessun voto)
Loading...Loading...

Valori procedurali in scheme:


(define tab-fun ; valore: procedura
(lambda (args vals) ; args, vals: liste di uguale lunghezza
(lambda (n)
(if (= n (car args))
(car vals)
((tab-fun (cdr args) (cdr vals)) n)
))
))

(define f (tab-fun '(0 1 2 3 4 5) '(2 3 5 7 11 13)))

(f 2)