Silva, se sei alle prime armi è comprensibile, io farei alrettanto.
Riguardo alla semplicità... il programmino che sto postando è tanto difficile da spiegare quanto facile da usare, credimi.
Per chi ha avuto la pazienza di leggere le puntate precedenti, ecco qua la terza parte.
Salvare lo screenshot direttamente sul web
Rendiamo automatico anche l'ultimo passo che ci consente di condividere le nostre gioie con il resto del mondo. Dopo aver salvato l'immagine, lo script provvederà a fornire un preview full-dimension e si preoccuperà di caricarla sull' host di immagini
ImageShack senza farci perdere tempo a digitare il link del sito e a cercare il file sul disco locale.
Questa è l'interfaccia che vi si presenterà, ripulita dai fastidiosi link e banner pubblicitari lampeggianti. Non solo non li vedrete, ma neppure li scaricherete, con conseguente risparmio di tempo e rottura di p...
Ecco il nuovo codice sorgente, che (ripeto) va copiato ed incollato sul blocco note salvandolo con nome
screenshot.vbs
'-------------------
Option Explicit
Const m1 = "Confirm Screenshot"
Const m2 = "Salvare subito? Il file di default è "
Const nome = "C:\screenshot.jpg" 'scegliere directory e nome del file
Dim ss, risp, ih
ih = "<body bgcolor=#8080C0><form method=post"
ih = ih + " action=http://www.imageshack.us/index.php"
ih = ih + " enctype=multipart/form-data onsubmit=tot.disabled=true>"
ih = ih + "<input type=file name=fileupload size=50><br>"
ih = ih + "<br><input type=submit id=tot value=Invia_a_ImageShack>"
ih = ih + "</form><img src=file://" + nome + "></body>"
Set ss = WScript.CreateObject("WScript.Shell")
ss.Run "mspaint"
WScript.Sleep 500
digita "^e%l10%a10~"
digita "%Mn"
riduzione "75" 'settare la riduzione perc oppure toglierla
risp = ss.PopUp(m2+nome, 0, m1, 36) 'messaggio di conferma
If (risp = 6) Then
digita "+{F12}"
digita nome + "%vj~" 'salva come file jpeg
digita "s"
digita "%{F4}"
WScript.Sleep 1000
ss.Run "iexplore about:" + ih 'apre finestra per ImageShack
WScript.Sleep 1000
ih = "%djavascri" + "pt:document.body.all[1].focus{(}{)}~"
ss.AppActivate "about"
ss.SendKeys ih
WScript.Sleep 500
ss.AppActivate "about"
ss.SendKeys nome
End If
WScript.DisconnectObject ss
WScript.Quit
Sub riduzione(perc)
digita "{ESC}^w%o" + perc + "%v" + perc + "~"
End Sub
Sub digita(tasti)
WScript.Sleep 100
ss.AppActivate "Paint"
ss.SendKeys tasti
End Sub
'-------------------
Ricordo che potete modificare la directory locale di salvataggio, scegliere se ridurre o meno l'immagine, cambiare le temporizzazioni. Quest'ultima operazione potrebbe rendersi necessaria se avete molti processi in corso che rallentano il pc.
L'attivazione dello script è la solita: STAMP seguito dal tasto/gruppo che più vi è simpatico.
2
allegare_immagine.gif 3.81K
117 Download
