Tema: [ CONSULTA ] Programa controlar tarjeta Dual
Ver Mensaje Individual
  #10  
Viejo 11/02/10, 18:20:38
Avatar de xiho
xiho xiho no está en línea
Usuario novato en la web
Mensajes: 3
 
Fecha de registro: sep 2008
Mensajes: 3
Mencionado: 0 comentarios
Tagged: 0 hilos
solucion

Hola yo me hecho un script con el mortscript que te pide la linea y el solo pone el pin

necesitas tener instalado

el mortscript version 4.2 (la 4.3 a mi me da problemas pero para esto puede que funcione)
http://www.sto-helit.de/index.php?mo...=list&entry=18

y el VJVolubilis para apagar y encender la radio
instalado en la memoria interna

http://www.vijay555.com/?Releases:VJVolubilis

y este script lo copias y lo guardas en un archivo
con extension .mscr

-------------------------------------------------------------------------
Cita:
SetChoiceEntryFormat( 30 , 20 , "Tahoma" )

RegReadDWord HKLM,System\State\Phone,Radio Ready State,radio
#message(radio)
if (radio <= 3)
Run("\Archivos de programa\vijay555\VJVolubilis\VJVolubilis.exe","-radioon")
Sleep(2500)
Run("\windows\ctlpnl.exe","cplmain.cpl,20,3")

respuesta = Choice( "Cambiar Linea","SIN SERVICIO",3,15,"Empresa","Particular","Salir" )
else

operador = RegRead( HKLM,"\System\State\Phone","Current Operator Name" )
#Message (operador)
respuesta = Choice( "Cambiar Linea","LINEA "&operador,3,15,"Empresa","Particular","Salir" )
endif

If(NOT (respuesta =3) )


Run("\Archivos de programa\vijay555\VJVolubilis\VJVolubilis.exe","-radiooff")
Sleep(1500)
Run("\Archivos de programa\vijay555\VJVolubilis\VJVolubilis.exe","-radioon")
Sleep(2500)
Run("\windows\ctlpnl.exe","cplmain.cpl,20,3")
If( respuesta =1 )
WaitForActive( "Teléfono",60 )
Sleep(1000)


#ESTE ES EL PIN DEL NUMERO DE EMPRESA "1234"

SendKeys( "1" )
Sleep(100)

SendKeys( "2" )
Sleep(100)

SendKeys( "3" )
Sleep(100)

SendKeys( "4" )
Sleep(500)
#FINAL PIN NUMERO EMPRESA



SendCR
EndIf

If( respuesta =2 )
WaitForActive( "Teléfono",60 )
RegWriteString HKCU, Software\xiho, linea, "Particular"

#ESTE ES EL PIN DEL NUMERO PARTICULAR "4567"

Sleep(1000)
SendKeys( "4" )
Sleep(100)

SendKeys( "5" )
Sleep(100)

SendKeys( "6" )
Sleep(100)

SendKeys( "7" )
Sleep(500)
#FINAL PIN NUMERO EMPRESA


SendCR
EndIf


Sleep(1000)
Minimize( "Teléfono")


EndIf
#SI USAS S2U2 LA SIGUIENTE LINEA LO ACTIVA CON PASSWORD

#Run("\Archivos de programa\S2U2\ilock2.exe","-password -slide")
--------------------------------------------------------------------------

Ya me cuentas si te va bien
Responder Con Cita