Newsgroup: it.comp.hardware.modem
Titolo: Autorisposta con win98

Devo fare un collegamento punto-punto fra due PC con 2 modem analogici
e windows 98.
Come setto l'autoanswer in uno dei 2 modem?
Ho provato in modem, proprieta', connessione, avanzate, altre
impostazioni e ho messo ATS0=1
Purtroppo non risponde.
Cosa posso fare?
Grazie

 Cosa posso fare?
Sono riuscito nell'intento, ma solo utilizzando Hyper Terminal di win98, e
solo per quella sessione.
Appena chiudo il programma, il parametro S0 torna a 0.
Cosa posso fare per variarlo come e quando voglio, con pochi click?
Grazie

 Appena chiudo il programma, il parametro S0 torna a 0.
devi salvarlo con un comando AT nella config del modem...sennò tornerà
sempre a 0 dopo un atz  o uno spegnimento
--
---
Giacomo D'Orsogna
E-Mail: 
dors...@iol.it
Web: 
www.dorsogna.tk
Icq#: 36225050

 sempre a 0 dopo un atz  o uno spegnimento
Yes, ma se volessi abilitare e disabilitare questo registro con un click o una
macro?
Non e' che mi serva sempre.
Tanto vale allora aprire HypTerm per metterlo ad 1, e poi normalmente lasciarlo
a zero.
grazie

 con un click o unamacro?
'*.vbs (dove xxxxxxxx e' il comando AT che desideri inserire)
Set Shell = WScript.CreateObject ("Shell.Application")
set shShell = CreateObject("WScript.Shell")
Shell.ControlPanelItem"Modem.cpl"
WScript.Sleep 1000
shShell.SendKeys"{TAB 3}"
WScript.Sleep 100
shShell.SendKeys"~"
WScript.Sleep 100
shShell.SendKeys"+{TAB}{RIGHT}"
WScript.Sleep 100
shShell.SendKeys"+{TAB 3}"
WScript.Sleep 100
shShell.SendKeys"~"
shShell.SendKeys"+{TAB 5}"
WScript.Sleep 200
shShell.SendKeys"xxxxxxxxxx"
WScript.Sleep 200
shShell.SendKeys"+{TAB 3}"
shShell.SendKeys"~"
shShell.SendKeys"{ESC}"
WScript.Sleep 500
shShell.SendKeys"{ESC}"
Copia incolla su notepad e salva con estensione .vbs
tutti i file (*.*)  poi ci clicchi sopra. (per esempio Modem.vbs)
--
Fosco

 '*.vbs (dove xxxxxxxx e' il comando AT che desideri inserire)
WOW!
Grazie.
Me ne faresti anche uno per rimettere il parametro a zero?
Credo che servira' in furuo anche a molte persone che lo cercheranno
con google...
Grazie ancora.

 Me ne faresti anche uno per rimettere il parametro a zero?
Basta sostituire questa stringa
shShell.SendKeys"xxxxxxxxxx"   con
shShell.SendKeys"{DEL}"   '(mette tutta la stringa a zero)
alternativamente basta sostituire "xxxxxxxx" con quello che si
desidera per esempio :
shShell.SendKeys"ATX3"
Questo sotto e' l'help del WSH (vbs)con numerosi esempi ( sopra il mega)
http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe
(tuttosuunarigasenononfungecopiaincollaunpezzopervolta)
Pero' rifacendo alcune prove ho scoperto che alle volte si comporta
in maniera anomala e l'ho modificato cosi' e' piu stabile:
Sono tutti e due in uno script solo (abilita/disabilita) basta, a seconda
di quello che si vuole fare, mettere e togliere gli  '''''''' davanti
 a shShell.SendKeys"XXXXXXXXXXX" (inserire stringa)
o  shShell.SendKeys"{DEL}"  (disinserire "mettere a bianco" stringa)
Gli ''''''' sono fatti col tasto a fianco dello 0 (zero) quello col  ?
Si possono fare anche 2 script uno con inserire ed uno col disinserire
e cosi' basta un solo click su uno dei due alternanivamente
Si puo anche mettere un collegamento a questi in  c:\windows o
sottodirectory e cosi' assegnargli anche dei tasti di scelta rapida
per esempio CTRL+ALT+I (inserire)  e CTRL+ALT+D (disinserire)
'inizio
Set Shell = WScript.CreateObject ("Shell.Application")
set shShell = CreateObject("WScript.Shell")
Shell.ControlPanelItem"Modem.cpl"
WScript.Sleep 1000
shShell.SendKeys"{TAB 3}"
WScript.Sleep 100
shShell.SendKeys"~"
WScript.Sleep 100
shShell.SendKeys"+{TAB}{RIGHT}"
WScript.Sleep 100
shShell.SendKeys"+{TAB 3}"
WScript.Sleep 100
shShell.SendKeys"~"
shShell.SendKeys"+{TAB 5}"
WScript.Sleep 200
shShell.SendKeys"XXXXXXXXXXX" 'inserire
'''''''' shShell.SendKeys"{DEL}" 'disinserire (cancellare)
WScript.Sleep 200
shShell.SendKeys"{TAB 3}"
shShell.SendKeys"~"
WScript.Sleep 500
shShell.SendKeys"{TAB}~"
WScript.Sleep 200
shShell.SendKeys"{TAB 2}"
WScript.Sleep 200
shShell.SendKeys"~"
'fine
Copia incolla su notepad e salva con estensione .vbs
tutti i file (*.*)  poi ci clicchi sopra. (per esempio Stringhe.vbs)
--
Fosco

 > Me ne faresti anche uno per rimettere il parametro a zero?
Grazie

 Grazie
Siccome con Libero non vedo il 50% dei post che spedisco
spero che sia un rigraziamento perche il post e' arrivato
e non la richiesta di come fare a mettere a zero...
--
Fosco