Newsgroup: it.comp.aiuto
Titolo: Auto task.

 
 
Ciao.
Ho bisogno di una mano: conoscete un programma (che non sia autotask2000)
per compiere delle azioni al computer in un tempo prefissato?
Avrei bisogno di "far schiacciare" automaticamente un tasto (es.N) della
tastiera con regolarità, in un tempo preimpostato (es. ogni 10 minuti).
Grazie a chi mi aiuta.
Thanks
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/



 tastiera con regolarità, in un tempo preimpostato (es. ogni 10 minuti).
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 640 * 1000 ' sleep 10 minute
oShell.SendKeys"N"
Loop
'CTRL+ALT+CANC  e killare wscript per interrompere
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco

 Loop
A parte che non capisco perché 640 * 1000 (forse volevi scrivere 600*1000?), 
io proporrei ti utilizzare anche il metodo .AppActivate per essere sicuri di 
inviare il tasto all'applicazione giusta:
Set oShell = CreateObject("WScript.Shell")
oShell.AppActivate("Titolo della finstra dell'applicazione")
oShell.SendKeys"N"
E poi io eviterei il loop ma utilizzerei le operazioni pianificate di 
Windows, sempre che la precisione non sia un particolare molto importante.
-- 
3st3b4n
www.seber.it
Questo post è stato scritto con bit riciclati 

 A parte che non capisco perché 640 * 1000 (forse volevi scrivere 600*1000?),
Permettimi senza rancore ne '
ROTFL
--
Fosco

 > A parte che non capisco perché 640 * 1000 (forse volevi scrivere 600*1000?),
Uppps svista madornale .. sorry
chissa da do ca**o e' saltato fuori sto' 640  :-)
hai il permesso scritto e sottofirmato da me stesso me medesimo
di ROTFLARE sui miei prossimi 10 post
per le operazioni pianificate penso che sia piu' leggero il
loop nello script ... e l'appactivate concordo ma senza precise
indicazioni dell'OP e' solo una complicazione in piu
 ' esempio pratico di appactivate
set oShell = CreateObject("WScript.Shell")
oShell.run"notepad"
WScript.Sleep 1500
oShell.run"calc"
oShell.AppActivate "Calcolatrice"
WScript.Sleep 1500
oShell.AppActivate "Senza nome - Blocco note"
oShell.SendKeys"N"
--
Fosco

Grazie per l'aiuto.
Ho fatto come mi dite e mi appare un file -script.
L'ho chiamato test.vbs
Dentro ho copiato il codice:
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 600*1000 ' sleep 1 minute
oShell.SendKeys"F3"
Loop
(F3 è per prova).
Ho atteso un minuto e non è successo niente...
Potete aiutarmi?
Grazie

Mentre mi apprestavo a riciclare alcuni bit, *F@* ha scritto:

Al metodo Sleep devi indicare il numero di millisecondi di attesa: 600 * 
1000 = 600.000 millisecondi = 600 minuti = 10 ore.
E' chiaro che dopo un minuto non fosse successo ancora nulla!


 E' chiaro che dopo un minuto non fosse successo ancora nulla!
Errata corrige:
600 * 1000 ms = 600.000 ms = 600 sec = 10 minuti


Mentre mi apprestavo a riciclare alcuni bit, *F@* ha scritto:

Se vuoi simulare la pressione del tasto F3, la stringa da passare a SendKeys 
è "{F3}".
Qui trovi la lista dei tasti: 
http://snipurl.com/SendKeys


Ho atteso un minuto e non è successo niente...
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 60*1000 ' sleep 1minute
oShell.SendKeys"{F3}"
Loop
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
--
Fosco

 --
Grazie mille per l'aiuto.
Purtroppo non mi va: quello che voglio fare è una simulazione del tasto "N"
che mi
permette di "passare" ad una sequanza sucessiva con un programma video.
Se premo fisicamente il tasto N funziona. Nel caso dello script, sembra che
scriva solo... infatti se apro un editor di testo ogni minuto mi appare la
N.
Mi riuscite ad aiutare anche in questo ultimo step?
Grazie mille


 --
Grazie mille per l'aiuto.
Purtroppo non mi va: quello che voglio fare è una simulazione del tasto "N"
che mi
permette di "passare" ad una sequanza sucessiva con un programma video.
Se premo fisicamente il tasto N funziona. Nel caso dello script, sembra che
scriva solo... infatti se apro un editor di testo ogni minuto mi appare la
N.
Mi riuscite ad aiutare anche in questo ultimo step?
Grazie mille
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Mi riuscite ad aiutare anche in questo ultimo step?
hai provato ad inviare sia N che n  ?
N  sulla carta e' un shift+n  (meglio n)
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 60*1000 ' sleep 1minute
oShell.SendKeys"n"
Loop
La xosa migliore sarebbe ;
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 60*1000 ' sleep 1minute
if not oShell.AppActivate("CAPTION") then
oShell.AppActivate("CAPTION")
oShell.SendKeys"n"
Loop
' dove la CAPTION del tuo programma la ottiene con CTRL+ALT+CANC
e copiando ESAttAmEnTe  cosa c'e scritto
ti faccio l'esempio generico con notepad abbassando un po'
i tempi per poter constatare al volo come funziona
set oShell = CreateObject("WScript.Shell")
oShell.run"notepad"
oShell.run"calc"
WScript.Sleep 500
Do
WScript.Sleep 5000
if not oShell.AppActivate("Senza nome - Blocco note") then
oShell.AppActivate("Senza nome - Blocco note")
end if
oShell.SendKeys"n"
Loop
--
Fosco

 Purtroppo non mi va
PS:
ma come ho gia' consigliato qui se vuoi fare un lavoro
sicuro ed affidabile e' meglio scaricare
http://www.hiddensoft.com/autoit3/
e vai subito a vedere con  C:\Programmi\Autoit3\AU3_Spy.exe
che proprieta' ha il tuo programma
Se decidi cosi magari ci spostiamo su it.test  tu mi dai i parametri
che ti chiedero ed io ti faccio lo script
;ecco un esempio di come si puo interagire con il menu '
;(e' fatto per un wi9x .. funziona parzialmente su un XP)
 Run("notepad.exe","", 3)
 sleep(500)
   AutoItSetOption("WinTitleMatchMode", 4)
 WinWaitActive( "Senza nome - Blocco note", "", 5 )
WinMenuSelectItem("Senza nome - Blocco note","","&File", "&Salva")
WinWaitActive( "Salva con nome", "", 3 )
ControlFocus ( "Salva con nome","" , "ComboBox2" )
;interagisci col combo
$a =ControlGetText ( "Salva con nome", "", "ComboBox2" )
  MsgBox(0, "", $a)
ControlSend ( "Salva con nome", "", "ComboBox2", "T" )
$b =ControlGetText ( "Salva con nome", "", "ComboBox2" )
  MsgBox(0, "", $b)
; e qui un esempio di come si puo' interagire con le classi
;(Edit1 dle notepad in questo caso)
Run("notepad.exe")
 sleep(500)
   AutoItSetOption("WinTitleMatchMode", 4)
WinWaitActive( "Senza nome - Blocco note", "", 5 )
ControlSend("Senza nome - Blocco note", "", "Edit1", "n")
--
Fosco

 > --
Per 3st3b4n e Fosco:
Grazie mille per l'aiuto.
Purtroppo non mi va: quello che voglio fare č una simulazione del tasto "N"


 Se premo fisicamente il tasto N funziona.
Forse ho capito .. prova a fare manualmente TUTTO con la keyboard
SENZA usare il mouse ... probabilmente serve un TAB o shift+TAB
Se cosi fosse conta i tab che ti servono e poi li implementi cosi ':
Set oShell = CreateObject("WScript.Shell")
oShell.run"notepad"
WScript.Sleep 300
if not oShell.AppActivate("Senza nome - Blocco note") then
oShell.AppActivate("Senza nome - Blocco note")
end if
oShell.SendKeys"{TAB}"
oShell.SendKeys"n"
' ecco come implementare piu TAB
oShell.SendKeys"{TAB 3}"
oShell.SendKeys"n"
--
Fosco

"Fosco"
cioe in parole povere prova ad aprire il programma e clicca
invio o N  senza usare il mouse e vedi cosa succede
La stessa cosa succede con lo script
--
Fosco

"tec.hw"
adesso mi scade la connessione .. se non risolvi domani posta su
news:it.test
Se decidi di scaricare 
http://www.hiddensoft.com/autoit3/
apri il tuo programma  apri C:\Programmi\Autoit3\AU3_Spy.exe
posizionati sull programma che vuoi automatizzare e spostati
col mouse sul tasto N che vuoi premere  CTRL+ALT+F per
bloccare AU3_Spy  e copi incolli e me lo posti
Prova intanto abbinato ai TAB un invio al posto di N
oShell.SendKeys"{ENTER}"
--
Fosco

                    Il 24 Feb 2006, 08:48, "Fosco" <fa...@fake.invalid> ha scritto:
Ciao Fosco.
Ho scaricato il programma però non ho l'eseguibile chiamato AU3_Spy.exe
bensì, nella
cartella C:\Programmi\AutoIt3\Aut2Exe\ ho il file omonimo (Aut2Exe.exe).
Lo eseguo e mi chiede
Files:
- Source (autolt.au3 file)
- Destination
Options:
- Custom ico
- Allow decompilation (casella di spunta)
- Passphrase
- Verify Passphrase
Non vorrei aver sbagliato "versione": Questo ha come nome sulla barra:
Autoit Script to exe converter.
Grazie per l'aiuto che mi stai dando.
Fabio



 Loop
'qui sopra c'e comunque una SVISTA mia (azz sempre testare prima)
'.. dovrebbe essere :
Set oShell = CreateObject("WScript.Shell")
Do
WScript.Sleep 60*1000 ' sleep 1minute
if not oShell.AppActivate("CAPTION") then
oShell.AppActivate("CAPTION")


 bensě, nella cartella C:\Programmi\AutoIt3\Aut2Exe\ ho il file omonimo
scarica questo :
http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3.zip
sottoscrivi  news:it.test  e continuamo li
siccome ci sono una marea di post mettici il soggetto che hai adoperato
qui ..   >>  Auto task.       lasciaci anche il punto finale
visto che abbiamo orari differenti poi sia io che tu lo
possiamo trovare facilmente anche su google  in questa maniera :
http://snipurl.com/mx1k
ahh ho appena scaricato quello copra adesso sii chiama AU3Info.exe
e non piu spy .. fai lo stesso lavoro con quello  apri il tuo programma
apri AU3Info.exe  posizionati col mouse esattamnete sul tasto che vuoi cliccare
NON muoverlo piu e CTRL+ALT+F  blocchi la finestra di AU3Info.exe
e copi incolli e mi posti TUTTO il contenuto
STAI sotto le 60 righe che ho messo un filtro su OE e se sono di piu NON
mi scarica il post ... per qui visto il tuo ultimo post qui dai prima uno sguardo qui :
http://digilander.iol.it/ifst/html/Quoting.html
--
Fosco

 sottoscrivi  news:it.test  e continuamo li
Ahh magari dimmi anche che programma che e' .. se non
e' troppo pesente me lo scarico e provo sul campo
--
Fosco