Newsgroup: it.comp.aiuto
Titolo: Esec. automatica di piu' routine nello stesso progr.

Ho intenzione di registrare un programma in automatico dalla radio a un 
certo orario, orario in cui non sono in casa.
Il primo prob. dell'accensione del pc tramite squillo telefonico è risolto.
Il secondo prob. dell' esecuzione automatica di "Audacity1.2.3" sarebbe 
risolto.
Il terzo prob. di avviare la "registrazione da ingresso analogico"  nel 
programma stesso, no; se io  fossi presente si potrebbe fare col tasto R o 
altro (è configurabile anche caricando *.xml) , ma siccome non ci sono, con 
che comando softw. potrei impartire il tutto ?
Grazie
Ciao

 non ci sono, con che comando softw. potrei impartire il tutto ?
E' sufficiente uno script temporizzato, non ti serve nemmeno lo squillo!
Fa una ricerca sugli script di windows, se non ci riesci fischia forte!
-- 
 Divino
SEDENTARIO: Odontotecnico dubbioso 

 Fa una ricerca sugli script di windows, se non ci riesci fischia forte!
Lo squillo del telefono mi serviva per accendere il pc in standby...cmq io 
sono fermo al quikbasic...non ci capisco molto di vsbscipt...se hai voglia 
di aiutarmi o indirizzarmi su di un ng piů specifico ben venga!
Grazie
Ciao

 specifico ben venga!
E' semplicissimo:
set WshShell = CreateObject("WScript.Shell")
WshShell.Run"C:\PROGRA~1\XXXXXXXXXX.EXE" , 3, false   'IL TUO PROGRAMMA
WScript.Sleep 30000  'ATTENDI 30 SECONDI
WshShell.SendKeys "r"  'INVII UNA R
-- 
 Divino
TOPOGRAFIA: Scrittura di roditore 

 che comando softw. potrei impartire il tutto ?
Metti i percorsi e la caption del tuo audacity come spiegato nelle 3 righe sotto
' oShell.run"percorso completoAudacity1.2.3.exe"
'Do Until oShell.AppActivate("CAPTION ESATTA DI Audacity") '[1]
'oShell.AppActivate("CAPTION ESATTA DI Audacity")
'esempio generico col Notepad
set oShell = CreateObject("WScript.Shell")
oShell.run"Notepad"
Do Until oShell.AppActivate("Senza nome - Blocco note")
  wscript.sleep 200
Loop
oShell.AppActivate("Senza nome - Blocco note")
oShell.SendKeys"R"
'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
[1]
La CAPTION ESATTA  che e' CaSe SenSiTivE la puoi ottenere
facilmante lanciando Audacity   >>> Ctrl+ALT+CANC e copiandolo da li
per questo tipo di cose sarebbe piu' adatto autoit3
http://www.hiddensoft.com/autoit3/
  Run("notepad.exe","", 3)
 sleep(500)
   AutoItSetOption("WinTitleMatchMode", 4)
 WinWaitActive( "Senza nome - Blocco note", "", 5 )
  ControlFocus ( "Senza nome - Blocco note","" , "Edit1" )
ControlSend ( "Senza nome - Blocco note", "", "Edit1", "R"  )
  Run("calc.exe")
WinActivate ( "calcolatrice" )
 sleep(500)
ControlSend ( "Senza nome - Blocco note", "", "Edit1", "R2"  )
;si nota che anche se il Notepad perde il focus il ControlSend
;non ha problemi mentre il sendkeys del WSH si
--
Fosco

Grazie...provo e vi faccio sapere
Ciao 

 ho dovuto mettere il programma  in c:\windows\system32\
aggiungendo queste righe lo fermo dopo 2 ore:
wscript.sleep 7200000   '120000=2min di durata rec. 120000*60=2h
oShell.AppActivate("Audacity")
oShell.SendKeys"s"
Purtroppo accendere il pc tramite modem 56k alla linea telefonica può
capitare che arrivi una telefonata estranea e quindi si accenda in un
orario non voluto...bisognerebbe agire forse sul "bios power managment" per
farlo accendere in modo pianificato...?
Ciao.

 farlo accendere in modo pianificato...?
e' un po macchinoso quello che fai per le due ore ma se hai deciso
di fare cosi adopera il .Exec ti facci sempre l'esempio col notepad :
set oShell = WScript.CreateObject("WScript.Shell")
set oExec = oShell.Exec("Notepad")
WScript.Sleep 500
'WShell.SendKeys"Notepad si chiudera' tra 5 secondi"
oShell.Popup "Notepad si chiudera' tra 5 secondi",3
WScript.Sleep 5000
oExec.Terminate()
' se hai problemi col modem fai tutto con le operazioni pianificate
di windows o con lo script stesso
sempre un esempio generico di come interagire con data ed ora
' Doesn't care about AM/PM or 24-hour display
MyHour = Left(FormatDateTime(Now, vbShortTime), 2)
' Run program between 5:00 P.M. and 9:00 A.M
If MyHour > 16 Or MyHour < 9 Then
  Set oShell = CreateObject("WScript.Shell")
  oShell.Run "notepad.exe", 1, True
End If
' se ci metti If MyHour > 16    oppure if MyHour = 16
e poi la routine dello script  ci sei
PS:
rileggendo hai detto che hai il pc spento ed il sopra non funzionerebbe
ovviamente
--
Fosco

"Fosco"  ha scritto nel messaggio :

Grazie ancora dell'aiuto...si , il pc è spento, non del tutto(rimane una 
spia rossa accesa sulla mobo), in attesa di un evento dalla linea telefonica 
del modem 56k...non sono riuscito a pianificare ne dal bios ne da 
windows(quest'ultimo per via di restrizioni utente/password).
Ciao.
Lucio. 

 windows(quest'ultimo per via di restrizioni utente/password).
Mai avuto bisogno ... io cercherei  :
http://www.google.it/search?hl=it&q=wake+on+ring&btnG=Cerca+con+Google&meta=
http://www.google.it/search?hl=it&q=wake+on+modem&btnG=Cerca&meta=
--
Fosco

 Mai avuto bisogno ... io cercherei  :
Oppure se gli orari sono fia' prestabiliti puoi fare
tutto con Task (operazioni pianificate)
in un win9x sono qui :
C:\WINDOWS\Tasks
F1 sul desktop  e cerca >>>>>  operazioni pianificate
e/o
http://www.google.it/search?hl=it&q=operazioni+pianificate&meta=
--
Fosco

"Fosco"
anzi sono sicuro rileggendo un po tutto il thread che lo strumento
che fa' per te' e' proprio operazioni pianificate
--
Fosco

 tutto con Task (operazioni pianificate)
Ehm:


 pannello di controllo) permettono l'uscita dallo stand-by..."
Uppss .. hai ragione me l'ero perso ..
--
Fosco


 Ho XPhome+sp2 e le operazioni pianificate non vanno...mi chiede la passw.
Cmq mi avete gią aiutato abbastanza risolvendo, GRAZIE.
Ciao
Lucio 

 Cmq mi avete gią aiutato abbastanza risolvendo, GRAZIE.
Prova a domandare qui se ti interessa :
news:it.comp.os.win.xp        (it.comp.os.win.xp)
--
Fosco