Pioneer NavGate AVIC F-Italia

AVIC NET 2.1 MULTILANGUAGE - Aggiornamento di winCE e del firmware alla versione 4.001000, Immagine completa del sistema per modelli F500-900BT e simili + iGo Primo, TomTom, Garmin, Internet, OBDII ELM327

« Older   Newer »
  Share  
vampirello
view post Posted on 10/6/2011, 21:30




ciao
Intendevo dire che per il Garmin e solo per quello,non serve fare la procedura che hai descritto,ma anzi l'audio si sente da subito ed anche insieme alla radio

Vamp
 
Top
Gheroppa
view post Posted on 11/6/2011, 10:24




Vampirello, allora ho capito tutto...in un paio di post primalamentavo che mi era morto l'audio sul TT, in verità, avevo usato solo garmin per parte del viaggio, audio perfetto e ascoltavo la radio, poi sono passato a TT, che solo con la radio evidentemente non va.....per questo mi era parso strano....
Oggi se ho tempo provo, solo che c'è la fiera del paese e ho la merce esposta fuori, qui se ti giri tiportano via anche i tavolini :) percui devo avere sempre 3 occhi aperti....
COMPRATE GENTE COMPRATE CHE SE NO LA M3 QUANDO MELA COMPRO? Ufffffffff ;)

BUG LIST in progress sotto spoiler
1)Sezione tel in chimata;Qualcuno lamenta il problema in caso di chiamate per la modalita di trasparenza delle scritte, risolvibile ripristinando il tel.exe (nella cartella MyFlashDisk/APL) della vecchia installazione (Qui mettero un link a tale file compresso e uppato per chi non avesse un back up sotto mano), va altrsi detto che serve per rimanere nella schermata dove ci troviamo quando si riceve una telefonata, in pratica evita di essere trasportati obbligatoriamente sulla schermata mappa, non un BUG vero e proprio.

2)OziExplorer; Non risulta difatto utilizzabile la finestra per il caricamneto di; mappe waypoint tracce,e ctct, a causa della sua errata dimensione che non permette di accedere al dialogo di esplorazione dei file.

3)SoftButtun, il preziosissimo tasto SoftButtun, che funziona come il TAB su Windows, permettendo quindi di muoversi fra le applicazioni aperte, presente il problema di perdersi la parte grafica (Il disegno del bottoncino blu) sparendo a volte cosi dalle schermate, sarebbe meraviglioso fosse fisso in una data poszione, in merito a questo problema riporto una nota a margine di Bagua:"P.S.= A proposito di programmi che si avviano in automatico... di default ho disattivato anche Hot Buttom ma è attivabile da apposito menù. In pratica è un tasto che (dopo il riavvio necessario) apparirà in alto sul menù principale e collegherà direttamente ad un menù a scelta dell'utente." assai interessante ma che motivi di demenza senile precoce mi scordo sempre di testare :)

4)ICO sezione Source; le icone nelal sezione di selezione delle fonti (USB SINTO CD I-pod) risultano tutte illuminate fisse,dovrebbero in realta illuminarsi solo se presente una fonte utilizzabile).

5)Coordinate su IGO; Su IGO normale, chiamiamolo cosi, appaiono le coordinate geografiche in LAT LONGfisse sullo schermo nella parte centrale appena sopra la linea di mezzeria, le togliamo oppure le lasciamo tanto non danno tutta sta noia?
P.S. Nota personale non so se condivisa da tutti, IMHO toglierei la versione base di Igo (8,3) present edi default con l'AVIC per lasciare solo Primo, magari se è fattibile settato di default proprio al posto del 8,3.

6)Rallentamento sia in sede di avvio (Splash screen) che durante le funzioni pesanti, come il calcolo il ricalcolo al volo ecttcc, del tutto normale dato cosa si deve sobbarcare il NAV masopratutto perchè PER ORA è tutto o quasi su SD, nella versione Finale è possibile che si decida di spostare tutto sulla memoria interna dell'AVIC, avendo cosi un netto migioramento delle prestazioni.

7)Cam per la retro; Se si sta usando Igo primo e si inserisce la retromarcia (avendo la telecamera posteriore) il navigatore esce dalla mappa e torna nella schermata principale di selezione dei Navigatori...quindi bisogna riselezionare Igo e si riparte, da controllare.

8)Segnale radio; sono stati lamentati dei problemi nella ricezione di segnali radio deboli, da parte mia tutto normale, se altri lo segnaleranno si vedra come approfondire.


9)Simbolo Onde del sinto; Non appare il simbolo delle onde di lato all'antennino che indica la presenza del segnale.

10)AUDIO, per ora forse il vero unico BIG BUG che abbiamo, sono stati fatti progressi importanti da Vampirello, che smanettando sul LeetLaunch è riuscito a rendere independende, per ora, solo TT dall'obbligo di far partire primauna traccia audio, Garmin pare funzionare in modo indipendende anche.


Note personali: per forza di cose per redarre qusta micro lista di bug e presunti tali, ho dovuto riportare testo di altri utenti, spero che questi non disturbi nessuno, la lista è ad oggi 11 Giugno 2011 un abbozzo, passibili quindi di cambiamenti aggiunte sottrazioni, siete tutti invitati a partecipare alal sua stesura in forma definitiva.
Se trovate errori ortografici avvisate che ho scritto alal veloce su un microbook da 10" mentre lavoro in negozio :)


Edited by Gheroppa - 21/6/2011, 12:11
 
Top
bagua
view post Posted on 11/6/2011, 12:11




Ragazzi scusate la latitanza ma penso possiate capire...
Ho letto tutto e vi dico solo che siete veramente dei grandi... continuiamo così che siamo sulla buona strada ;)
Grazie vamp e grazie gheroppa... sapete già per cosa :D
In questo fine settimana provo ad attivarmi anch'io però la mia Q2 (con l'avic al suo interno) è dal meccanico... quindi non posso testare le eventuali modifiche :(

P.S.= enzuccio se vuoi mettere la mappa del TomTom su MFD devi semplicemente creare una cartella MyFlashDisk/Map e mettere i file mappa al suo interno. Comunque sappi che basta avviare il software da MFD per avere i miglioramenti sul piano della velocità... le mappe possono essere tenute tranquillamente su SD senza inficiare sulle prestazioni. Per il TomTom e per Garmin è già possibile farlo... su Primo devo fare dei test.
 
Top
Gheroppa
view post Posted on 11/6/2011, 21:32




CITAZIONE (bagua @ 11/6/2011, 13:11) 
Ragazzi scusate la latitanza ma penso possiate capire...
Ho letto tutto e vi dico solo che siete veramente dei grandi... continuiamo così che siamo sulla buona strada ;)
Grazie vamp e grazie gheroppa... sapete già per cosa :D
In questo fine settimana provo ad attivarmi anch'io però la mia Q2 (con l'avic al suo interno) è dal meccanico... quindi non posso testare le eventuali modifiche :(

P.S.= enzuccio se vuoi mettere la mappa del TomTom su MFD devi semplicemente creare una cartella MyFlashDisk/Map e mettere i file mappa al suo interno. Comunque sappi che basta avviare il software da MFD per avere i miglioramenti sul piano della velocità... le mappe possono essere tenute tranquillamente su SD senza inficiare sulle prestazioni. Per il TomTom e per Garmin è già possibile farlo... su Primo devo fare dei test.

Bagua, se e quando avrai tempo se vuoi verificare la lista dei BUG che ho messo in spoiler sopra cosi la iniziamo a sistemare a dovere!!

P.S. end OT Quandè che mettiamo le mani sulla Q2? Che ne so..iniziamo con un monoblocco Stroler per portarla a 2.300cc poi serve un nuovo albero a camme per sfruttare il propulsore, di conseguenza mettiamo le punterie a rullo, poi camme pistoni stampati alleggeriti bilanciati, testata Consworth passata al CNC..per iniziare ;)
Scherzi a parte sto autobloccante rende? Io ho avuto modo di metterne sotot test solo una in un track day a Nardo, sono riuscito a mandarla sottosterzo senza grossi problemi anche con l'autobloccante hihihi ;)
 
Top
bagua
view post Posted on 12/6/2011, 10:50




Ciao gheroppa,
il ringraziamento di cui parlavo nel mio ultimo post era proprio per esserti preso la briga di redarre una lista dei problemi a cui possiamo attingere e cercare una soluzione... ti confermo che è correttezza e redatta veramente bene ;)
Comunque io mi sono già messo all'opera sull'audio castrato e credo proprio di aver capito come richiamare/attivare l'audio quando lanciamo una qualsiasi applicazione da winCE. Purtroppo adesso mi manca solo di testare il tutto sul mio F900BT, che al momento non ho sottomano... però sono molto fiducioso :D
Questo mi porta al discorso Q2 e autobloccante... cioè la parte meccanica a cui sono più affezionato :lol:
Ad essere sincero, chiaramente parlando di guida in modalità sgommino, all'inizio ho avuto qualche difficoltà e in pratica ho dovuto quasi rimparare a guidare o meglio, ho dovuto cambiare stile di guida in modo da adattarmi a lui e alle sue reazioni, sicuramente molto diverse da autovetture prive di autobloccante... dalle quali provenivo.
Comunque per farla breve una volta che hai imparato ad usarlo non puoi più farne a meno, è veramente uno spettacolo :woot:

Edited by bagua - 12/6/2011, 12:08
 
Top
Gheroppa
view post Posted on 12/6/2011, 13:37




Bagua, direi che ci hai dato una notizia da urlo :) cmq aspettiamo e vediamo, ma sono sicuro fin da quando ho visto le prime foto del test russo che sarà il futuro dei nostri AVIC questo!
Per la guida, è una cavolata, a me spiace non potervi essere d'aiuto in altro modo, quindi faccio cosa posso e cosa so fare.

Per l'autobloccante...siamo un OT, mea culpa ehhe, si potrebbe approfondire nella sezione off topic ;) cmq io ho guidato con l'autobloccante dai tempi dei R5 turbo preparati nel garage sotto casa SPORCHI, per regolamento non si poteva avere, all'epoca, autobloccante ne idrualico al posteriore sugli N, cosa riservata agli A, ma difatto tutti o quasi lo avevamo, altrimenti col rapporto di sterzo ridotto e l'assetto rigido non facevi 2km di PS :) poi quando correvo in coppa Clio ho fatto una stagione con un ibrido elettronico/meccanico, ma li è pista ben diverso, era davvero notevole, decidevi con un manettino in 6 posizioni il grado di intervento, gia a 5 ti sfasciava le braccia però....su quella che ho ora ne ho 3 :) anteriore posteriore centrale, solo quello centrale sbloccabile, sulle 4x4 cambia e di molto, non hai la sensazione a pelle del sentire che "ti tira dentro l'auto" ma piu che altro senti la linearita di fare le traiettorie con la massima precisione, essendo un'auto prettamente di serie ;) ;) ;) :D :ph34r: con rapporto dello sterzo normale non ti spacca le braccia e la può guidare anche la compagna, IMHO invece di investire in diavolerie elettroniche e putt... varie in temadi sicurezza attiva a volte basterebbe un autobloccante per cambiare il modo di guidare.
P.S. Sulla tua dovresti provare delle semislick estreme, tipo Toyo R888 o Yoko D08, ti fai 2 3 secondi di guadagni a giro in track day, immagina cosa sia andare per strada ;).
Ri P.S. Esco ora per trovarmi con amici:
Lotus Elise
Lotus Exige
VTR Touscan
La mia bimba :)

Fine OT ehehe
 
Top
vampirello
view post Posted on 13/6/2011, 01:26




x Bagua :
Cortesemente,sapresti dirmi che cosa succede nel momento in cui appare la schermata " avic net,inizializzazione in corso,riavvio del sistema... " ???
Cosa viene scritto o modificato...e dove ?

Grazie,Vamp
 
Top
CQ7
view post Posted on 13/6/2011, 08:21




@Gheroppa

solo per correttezza, hai inserito nella bug list la possibilità di eliminare la trasparenza sostituendo il file tel.exe, purtroppo io l'ho fatto ma resta tutto invariato, se qualcun altro vuole provare e postare il feedback sarà a vantaggio di tutti ;)
 
Top
Gheroppa
view post Posted on 13/6/2011, 15:37




Vampirello, io ero andato dietro a cosa ci aveva detto Bagua, forse serve anche fare qualche modifica in qualche file di configurazione? Cmq modifico la Bug List

Io oggi sono in scooter l'auto è a casa...semmai stasera provo! Se non crollo addormentato che è stato un luuungoo weekend.

BUG LIST in progress sotto spoiler
1)Sezione tel in chimata;Qualcuno lamenta il problema in caso di chiamate per la modalita di trasparenza delle scritte, risolvibile ripristinando il tel.exe (nella cartella MyFlashDisk/APL) della vecchia installazione (Qui mettero un link a tale file compresso e uppato per chi non avesse un back up sotto mano), va altrsi detto che serve per rimanere nella schermata dove ci troviamo quando si riceve una telefonata, in pratica evita di essere trasportati obbligatoriamente sulla schermata mappa, non un BUG vero e proprio.

2)OziExplorer; Non risulta difatto utilizzabile la finestra per il caricamneto di; mappe waypoint tracce,e ctct, a causa della sua errata dimensione che non permette di accedere al dialogo di esplorazione dei file.

3)SoftButtun, il preziosissimo tasto SoftButtun, che funziona come il TAB su Windows, permettendo quindi di muoversi fra le applicazioni aperte, presente il problema di perdersi la parte grafica (Il disegno del bottoncino blu) sparendo a volte cosi dalle schermate, sarebbe meraviglioso fosse fisso in una data poszione, in merito a questo problema riporto una nota a margine di Bagua:"P.S.= A proposito di programmi che si avviano in automatico... di default ho disattivato anche Hot Buttom ma è attivabile da apposito menù. In pratica è un tasto che (dopo il riavvio necessario) apparirà in alto sul menù principale e collegherà direttamente ad un menù a scelta dell'utente." assai interessante ma che motivi di demenza senile precoce mi scordo sempre di testare :)

4)ICO sezione Source; le icone nelal sezione di selezione delle fonti (USB SINTO CD I-pod) risultano tutte illuminate fisse,dovrebbero in realta illuminarsi solo se presente una fonte utilizzabile).

5)Coordinate su IGO; Su IGO normale, chiamiamolo cosi, appaiono le coordinate geografiche in LAT LONGfisse sullo schermo nella parte centrale appena sopra la linea di mezzeria, le togliamo oppure le lasciamo tanto non danno tutta sta noia?
P.S. Nota personale non so se condivisa da tutti, IMHO toglierei la versione base di Igo (8,3) present edi default con l'AVIC per lasciare solo Primo, magari se è fattibile settato di default proprio al posto del 8,3.

6)Rallentamento sia in sede di avvio (Splash screen) che durante le funzioni pesanti, come il calcolo il ricalcolo al volo ecttcc, del tutto normale dato cosa si deve sobbarcare il NAV masopratutto perchè PER ORA è tutto o quasi su SD, nella versione Finale è possibile che si decida di spostare tutto sulla memoria interna dell'AVIC, avendo cosi un netto migioramento delle prestazioni.

7)Cam per la retro; Se si sta usando Igo primo e si inserisce la retromarcia (avendo la telecamera posteriore) il navigatore esce dalla mappa e torna nella schermata principale di selezione dei Navigatori...quindi bisogna riselezionare Igo e si riparte, da controllare.

8)Segnale radio; sono stati lamentati dei problemi nella ricezione di segnali radio deboli, da parte mia tutto normale, se altri lo segnaleranno si vedra come approfondire.

9)Simbolo Onde del sinto; Non appare il simbolo delle onde di lato all'antennino che indica la presenza del segnale.

10)AUDIO, per ora forse il vero unico BIG BUG che abbiamo, sono stati fatti progressi importanti da Vampirello, che smanettando sul LeetLaunch è riuscito a rendere independende, per ora, solo TT dall'obbligo di far partire primauna traccia audio, Garmin pare funzionare in modo indipendende anche.


Note personali: per forza di cose per redarre qusta micro lista di bug e presunti tali, ho dovuto riportare testo di altri utenti, spero che questi non disturbi nessuno, la lista è ad oggi 11 Giugno 2011 un abbozzo, passibili quindi di cambiamenti aggiunte sottrazioni, siete tutti invitati a partecipare alal sua stesura in forma definitiva.
Se trovate errori ortografici avvisate che ho scritto alal veloce su un microbook da 10" mentre lavoro in negozio :)


Edited by Gheroppa - 13/6/2011, 18:08
 
Top
bagua
view post Posted on 13/6/2011, 21:00




CITAZIONE (vampirello @ 13/6/2011, 02:26) 
x Bagua :
Cortesemente,sapresti dirmi che cosa succede nel momento in cui appare la schermata " avic net,inizializzazione in corso,riavvio del sistema... " ???
Cosa viene scritto o modificato...e dove ?

Grazie,Vamp

In pratica non viene installato niente, infatti ho usato il termine "inizializzazione":
Comunque ecco qui:
# Avic_Net v2.0
Errorlevel("warn")
folder=SystemPath("ScriptPath")
user_path="\My Flash Disk\USER\UserData"
txtfile="\My Flash Disk\APL2\iGo\sys.txt"
If(FileExists(txtfile) && IniRead(txtfile,"folders","data") ne "")
txt_path=IniRead(txtfile,"folders","data")\"save\userlists"
Else
txt_path=user_path\"iGo\save\userlists"
EndIf

#Check inifile
If(NOT FileExists("\Windows\_reset"))
#Copy system files
CallFunction("SafeXCopy",err,folder\"CE5\*.*","\Windows","OVER",TRUE)
If(err=-1)
SleepMessage(3,"Not enough place for copying of system files","Error")
Exit
ElseIf(err=1)
SleepMessage(3,"Not found of system files directory (CE5)","Error")
Exit
EndIf
EndIf
reset=ReadFile("\Windows\_reset",1)

#Check regkey
If(NOT RegKeyExists("HKCR","MortScript"))
Run(folder\"Menu\InitLogo\on.exe")

#Set registry keys
ForEach file in files(folder\"Registry\*.reg")
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndForEach
If(DirExists("\My Flash Disk\APL4\Registry"))
ForEach file in files("\My Flash Disk\APL4\Registry\*.reg")
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndForEach
EndIf

#Set default keyboard
RunWait(folder\"Keyboard\Resco\setsip.exe")
RegDeleteKey("HKCR","CLSID\{42429667-ae04-11d0-a4f8-00aa00a749b9}",TRUE,TRUE)

#Set bluetooth registry
file=user_path\"btdata.reg"
If(FileExists(file))
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndIf

#Init dialup.ini
inifile=user_path\"dialup.ini"
If(FileExists("\Storage Card\APL4\dialup.ini"))
Copy("\Storage Card\APL4\dialup.ini",inifile,TRUE)
ElseIf(FileExists("\USB Disk\APL4\dialup.ini"))
Copy("\USB Disk\APL4\dialup.ini",inifile,TRUE)
ElseIf(NOT FileExists(inifile))
IniWrite(inifile,"DialUp","Name","")
IniWrite(inifile,"DialUp","Phone","*99#")
IniWrite(inifile,"DialUp","Login","login")
IniWrite(inifile,"DialUp","Pass","pass")
IniWrite(inifile,"DialUp","Modem","USB modem")
IniWrite(inifile,"DialUp","Settings","")
IniWrite(inifile,"DialUp","Auto","0")
EndIf

#Init dialup_ini.txt
txtfile=txt_path\"dialup_ini.txt"
name=IniRead(inifile,"DialUp","Name")
data[1]=IniRead(inifile,"DialUp","Phone")
data[2]=IniRead(inifile,"DialUp","Login")
data[3]=IniRead(inifile,"DialUp","Pass")
data[4]=IniRead(inifile,"DialUp","Modem")
data[5]=IniRead(inifile,"DialUp","Settings")
data[6]=IniRead(inifile,"DialUp","Auto")
If(data[6] eq "" || data[6] eq "no" || data[6] eq "0")
data[6]="0"
Else
data[6]="1"
EndIf
i=1
ForEach str in array(data)
data[i]=Replace(str,";","\;")
i=i+1
EndForEach
WriteFile(txtfile,Join(data,";"),FALSE,"unicode-prefix")

txtfile=txt_path\"connect_list.txt"
#Update connect_list.txt
If(name ne "")
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
EndIf

name1=name
conClose=ReadFile("\My Flash Disk\System\conclose.txt",0)
ForEach con in split(conClose,"^CR^",TRUE)
If(ToUpper(name) eq ToUpper(con))
name1=name&"_"
Break
EndIf
EndForEach

skip=0
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Read_connect_list",list,line)
If(ToUpper(name1) eq ToUpper(list[8]))
txtData=Replace(txtData,line,name&";"&Join(data,";")&";"&name1&";-p -m -e"&name1)
skip=1
Break
EndIf
EndForEach
If(skip=0)
txtData=txtData&name&";"&Join(data,";")&";"&name1&";-p -m -e"&name1&"^NL^"
EndIf
If(data[6] eq "1")
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Read_connect_list",list,line)
If(ToUpper(name1) ne ToUpper(list[8]) && list[7] eq "1")
list[7]="0"
txtData=Replace(txtData,line,Join(list,";"))
EndIf
EndForEach
EndIf
WriteFile(txtfile,txtData,FALSE,"unicode-prefix")
EndIf

#Init dialup params
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Init_connect_list",list,line)
Call("InitDialup",list)
EndForEach
EndIf

#Init avic_ini.txt
txtfile=txt_path\"avic_ini.txt"
If(FileExists(txtfile))
start=Part(ReadFile(txtfile,0),";",3)
Else
start=0
EndIf
port=5
If(start=0 || start eq "")
If(FileExists("\My Flash Disk\APL2\iGo\sys.txt"))
portigo=IniRead("\My Flash Disk\APL2\iGo\sys.txt","gps","port")
If(portigo=port)
IniWrite("\My Flash Disk\APL2\iGo\sys.txt","gps","port","7")
EndIf
EndIf
Else
If(FileExists("\My Flash Disk\APL2\iGo\sys.txt"))
IniWrite("\My Flash Disk\APL2\iGo\sys.txt","gps","port",port)
EndIf
#Init portsplitter
#
EndIf

#Reset
RunWait(folder\"qsoftreset.exe")
Else

#Init 2
If(reset ne "1")
WriteFile("\Windows\_reset","1")
EndIf

#PortSplitter
txtfile=txt_path\"avic_ini.txt"
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
EndIf
start=Part(txtData,";",7)
If(start ne "" && start ne "0")
Run(folder\"portsplitter.exe")
EndIf

#HotButton
start=Part(txtData,";",3)
If(start ne "" && start ne "0")
Run(folder\"Menu\menu.exe")
EndIf

#Show active windows
delay=Part(txtData,";",8)
Sleep(delay&"000")
MouseClick(0,0)

#End sound
start=Part(txtData,";",9)
If(start ne "" && start ne "0")
Run("\My Flash Disk\System\other_pioneer.exe","sc_sound")
EndIf

EndIf


#-----------------------------------------------------------------------------
Sub Read_connect_list
Local()
conStr=argv[1]

ind=1
For i=1 to 9 step 1
list[i]=Part(conStr,";",ind)
While(list[i] ne "" && ReverseFind(list[i],"\")=Length(list[i]))
ind=ind+1
list[i]=list[i]&";"&Part(conStr,";",ind)
EndWhile
ind=ind+1
Next
Return(list)
EndSub

Sub Init_connect_list
Local()
conStr=argv[1]

ind=1
For i=1 to 9 step 1
list[i]=Part(conStr,";",ind)
While(list[i] ne "" && ReverseFind(list[i],"\")=Length(list[i]))
ind=ind+1
list[i]=SubStr(list[i],1,Length(list[i])-1)&";"&Part(conStr,";",ind)
EndWhile
ind=ind+1
Next
i=1
ForEach str in array(list)
list[i]=Replace(list[i],"\","")
list[i]=Replace(list[i],"'","""")
i=i+1
EndForEach
Return(list)
EndSub


Sub InitDialup
Local()
data=argv[1]

#Init Dialup params
name=data[8]
If(name ne "")
#init connection
DevCfg="30000000780000001001000000C20100000008000000"
devcfg1="0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
Entry ="080240000000000001000000340032003500000090190e00000010c010000000ac01"
entry1="300000000000000000000000000000000000f442f80244890e00000000000000000000000000fce90424000000000000000098b5000000000000f0f000000000000000000000010000000100000000000000000000007cd1f702000000000000ff002c819e0800000000106bf70290190e005cee042400000000820000000000000044890e00a8ed0424040000000000000020ec04247cd1f70244890e0080f5f7022c819e0800000000000000000000ff00a0809e08ab010000106bf70290190e00110000003a0000000000000000000000000000003a0000001100000090170e000000000038730b000000000000000000000000003a00000011000000a424f902000000000000000000000000000000000000000000000000010000006d006f00640065006d00000018eb0424000000000100000001000000000000000000"
entry2="2D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000fa010000ad01000000000000ae01000078d205003044f8023217bf971a00000000000000000010c0100000000100000000000000d8eb0424dc27f702b08ba10808000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000b08ba10818f30800070707000000000044890e00dc27f7020100000000000000000000000000000000000000010000000000000000000000000000001c5bf702000000002c819e0884ed042460b40f006cec04241cd5f80200000000000000000000000040d4f8020000000090170e009ced0424000000008cf908000000000000000000c84bb902a843050084ed042400000000e0f6017c0a0000000a0000000000000078ed0424d4ec0424a84cb902e0f6017cebffffff0000000028ee042401000000fc5301003854010003000150c054010054a6050000000000947d08004001027cf0000000c87d0800000000000a0000000d00000078fa010050ed042454ed042414d407000d0000000000000028ee0424a0fb017c00000000000000000400020054ed04244ced0424080000000000000328ee0424000000009a8f423b947d0800f000000000000000000000004001027c000000000000000088ed042408ff01004001027c00000000000000000400020028ee042400000000f0cb017c0000000000000000000000009a8f423b00000000947d0800000000004001027c00000000000000000000000030000000f00000004001027c00000000f0cb017c000000000000000000000000f0cb017c01000000c8bb0100f0000000f0cb017cf000000050bc010000000000000000000000000000000000000000001058050000000024c82e8b9b0f00000000000000b4f61a962032418e00c4dc9ac82e8b9b0f00000038fe00f080ee04243007c19b0f00000010580500c4b300f00000000064f004240000000000000000e0f6017c54ef042474dbc09bf1ecffff0000000000000000"
#set phone
phstr=data[2]
If(phstr ne "")
len=Length(phstr)
If(len>7)
len=7
EndIf
For i=1 to len
ch=SubStr(phstr,i,1)
phone=phone&NumberToHex(UcValue(ch))&"00"
Next
phone=phone&"0000"
Entry=Entry&phone&SubStr(entry1,Length(phone)+1,Length(entry1)-Length(phone))
Else
Entry=Entry&entry1
EndIf
#set modem
mstr=data[5]
If(mstr ne "")
len=Length(mstr)
If(len>23)
len=23
EndIf
For i=1 to len
ch=SubStr(mstr,i,1)
modem=modem&NumberToHex(UcValue(ch))&"00"
Next
modem=modem&"0000"
Entry=Entry&modem&SubStr(entry2,Length(modem)+1,Length(entry2)-Length(modem))
Else
Entry=Entry&entry2
EndIf
#set settings
setstr=data[6]
If(setstr ne "")
For i=1 to Length(setstr)
ch=SubStr(setstr,i,1)
params=params&NumberToHex(UcValue(ch))&"00"
Next
params=params&"0000"
DevCfg=DevCfg&params&SubStr(devcfg1,Length(params)+1,Length(devcfg1)-Length(params))
Else
DevCfg=DevCfg&devcfg1
EndIf
#init regkeys
del=TRUE
If(RegKeyExists("HKCU","Comm\RasBook\"&name))
del=FALSE
Run("\Windows\rnaapp.exe","-n -e"&""""&name&"""")
Sleep(100)
WaitFor("Dial-Up Connection",2)
i=1
ext=0
While(ext=0)
If(WndActive("Dial-Up Connection"))
if(i<8)
SendTab("Dial-Up Connection")
SendBackspace("Dial-Up Connection")
i=i+1
elseif(i=8)
SendCR("Dial-Up Connection")
i=i+1
else
ext=1
endif
Else
Show("Dial-Up Connection")
EndIf
EndWhile
Call("WaitCloseDialup",name&" Status")
RegDeleteKey("HKCU","Comm\RasBook\"&name,TRUE,TRUE)
auto=RegRead("HKLM","Comm\Autoras","RasEntry")
If(auto eq name)
RegWriteString("HKLM","Comm\Autoras","RasEntry",""
EndIf
EndIf
RegWriteBinary("HKCU","Comm\RasBook\"&name,"DevCfg",DevCfg)
RegWriteBinary("HKCU","Comm\RasBook\"&name,"Entry",Entry)
auto=data[7]
If(auto ne "" && auto ne "no" && auto ne "0")
RegWriteString("HKLM","Comm\Autoras","RasEntry",name)
EndIf
#set password
login=data[3]
pass=data[4]
Run("\Windows\rnaapp.exe","-n -e"&""""&name&"""")
Sleep(100)
WaitFor("Dial-Up Connection",2)
i=1
ext=0
While(ext=0)
If(WndActive("Dial-Up Connection"))
if(i=1)
SendKeys("Dial-Up Connection",login)
i=i+1
elseif(i=2)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=3)
SendKeys("Dial-Up Connection",pass)
i=i+1
elseif(i<6)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=6)
If(del)
SendSpace("Dial-Up Connection")
EndIf
i=i+1
elseif(i<9)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=9)
SendCR("Dial-Up Connection")
i=i+1
else
ext=1
endif
Else
Show("Dial-Up Connection")
EndIf
EndWhile
Call("WaitCloseDialup",name&" Status")
EndIf
EndSub


Sub WaitCloseDialup
Local()
name=argv[1]
i=1
While(WndExists(name))
i=i+1
If(i>700)
If(WndExists(name))
Close(name)
EndIf
Break
EndIf
EndWhile
Sleep(300)
EndSub


Sub SafeXCopy
Local()
source_files=argv[1]
target_folder=argv[2]
mode=argv[3]
subdirs=argv[4]
backup=argv[5]
source_folder=FilePath(source_files)
source_files_ext=Part(source_files,"\",-1)
err=0

If(DirExists(source_folder))
If(mode eq "DEL")
size=0
Else
CallFunction("FilesSize",size,source_folder,source_files_ext,subdirs)
If(backup)
CallFunction("FilesSize",size1,target_folder,source_files_ext,subdirs)
size=size+size1
EndIf
EndIf
target_disk=Part(target_folder,"\",1)
If(target_disk eq "")
target_disk=Part(target_folder,"\",2)
EndIf
If(target_disk ne "My Flash Disk" && target_disk ne "Storage Card" && target_disk ne "USB Disk")
target_disk="\"
EndIf
If(FreeDiskSpace(target_disk) > size)
Call("CopyFiles",source_folder,source_files_ext,target_folder,mode,subdirs,backup)
Else
err=-1
EndIf
Else
err=1
EndIf

Return(err)
EndSub


Sub CopyFiles
Local()
source_folder=argv[1]
source_files_ext=argv[2]
target_folder=argv[3]
mode=argv[4]
subdirs=argv[5]
backup=argv[6]
source_files=source_folder\source_files_ext

ForEach file in files(source_files)
target_file=Replace(file,source_folder,target_folder)
If(mode eq "DEL")
If(FileExists(target_file) && FileModifyTime(file)>=FileModifyTime(target_file))
Delete(target_file)
If(backup && FileExists(target_file&".bak"))
Copy(target_file&".bak",target_file,TRUE)
Delete(target_file&".bak")
EndIf
EndIf
ElseIf(FileSize(file)>0 && (mode eq "OVER" || FileModifyTime(file)>FileModifyTime(target_file)))
If(NOT DirExists(target_folder))
Call("CreateDir",target_folder)
EndIf
If(backup && FileExists(target_file) && NOT FileExists(target_file&".bak"))
Copy(target_file,target_file&".bak",TRUE)
EndIf
Copy(file,target_file,TRUE)
EndIf
EndForEach

If(subdirs)
ForEach dir in directories(source_folder\"*")
target_dir=Replace(dir,source_folder,target_folder)
Call("CopyFiles",dir,source_files_ext,target_dir,mode,subdirs,backup)
EndForEach
EndIf

If(mode eq "DEL" && ElementCount(DirContents(target_folder\"*.*",DC_ALL))=0)
RmDir(target_folder)
EndIf
EndSub


Sub CreateDir
Local()
target_folder=argv[1]
Split(target_folder,"\",1,dirs)

curr_dir=""
ForEach dir in array(dirs)
If(curr_dir ne "")
curr_dir=curr_dir\dir
Else
curr_dir=dir
EndIf
If(NOT DirExists(curr_dir))
MkDir(curr_dir)
EndIf
EndForEach
EndSub


Sub FilesSize
Local()
folder = argv[1]
files = argv[2]
subdirs = argv[3]

size = 0
ForEach file in files(folder\files)
size += FileSize(file)
EndForEach

If(subdirs)
ForEach folder1 in directories(folder\"*")
CallFunction("FilesSize", size1, folder1, files, subdirs)
size += size1
EndForEach
EndIf

Return(size)
EndSub


Per quanto riguarda il problema di CQ7, appena posso proverò anch'io a rimettere il file tel.exe originale per verificare se effettivamente venga ripristinata la modalità normale di visualizzazione invio/ricezione chiamate... visto che sinceramente non vedo perchè non dovrebbe essere così :unsure:

Ah!!! Dimenticavo... avrei trovato una soluzione anche per il problema soft button.
In pratica, almeno per quanto mi riguarda, mi sembra giusto che il tasto rimanga in sottofondo senza dare fastidio... quindi la soluzione alternativa che ho trovato è spostare il tasto esattamente al limite esterno dello schermo (a scelta sarà anche possibile posizionarlo a sinistra oppure esattamente al centro) in modo che possa essere richiamato al bisogno ma senza dare fastidio, rimanendo di fatto invisibile.
 
Top
CQ7
view post Posted on 13/6/2011, 21:07




CITAZIONE (bagua @ 13/6/2011, 22:00) 
CITAZIONE (vampirello @ 13/6/2011, 02:26) 
x Bagua :
Cortesemente,sapresti dirmi che cosa succede nel momento in cui appare la schermata " avic net,inizializzazione in corso,riavvio del sistema... " ???
Cosa viene scritto o modificato...e dove ?

Grazie,Vamp

In pratica non viene installato niente, infatti ho usato il termine "inizializzazione":
Comunque ecco qui:
# Avic_Net v2.0
Errorlevel("warn")
folder=SystemPath("ScriptPath")
user_path="\My Flash Disk\USER\UserData"
txtfile="\My Flash Disk\APL2\iGo\sys.txt"
If(FileExists(txtfile) && IniRead(txtfile,"folders","data") ne "")
txt_path=IniRead(txtfile,"folders","data")\"save\userlists"
Else
txt_path=user_path\"iGo\save\userlists"
EndIf

#Check inifile
If(NOT FileExists("\Windows\_reset"))
#Copy system files
CallFunction("SafeXCopy",err,folder\"CE5\*.*","\Windows","OVER",TRUE)
If(err=-1)
SleepMessage(3,"Not enough place for copying of system files","Error")
Exit
ElseIf(err=1)
SleepMessage(3,"Not found of system files directory (CE5)","Error")
Exit
EndIf
EndIf
reset=ReadFile("\Windows\_reset",1)

#Check regkey
If(NOT RegKeyExists("HKCR","MortScript"))
Run(folder\"Menu\InitLogo\on.exe")

#Set registry keys
ForEach file in files(folder\"Registry\*.reg")
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndForEach
If(DirExists("\My Flash Disk\APL4\Registry"))
ForEach file in files("\My Flash Disk\APL4\Registry\*.reg")
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndForEach
EndIf

#Set default keyboard
RunWait(folder\"Keyboard\Resco\setsip.exe")
RegDeleteKey("HKCR","CLSID\{42429667-ae04-11d0-a4f8-00aa00a749b9}",TRUE,TRUE)

#Set bluetooth registry
file=user_path\"btdata.reg"
If(FileExists(file))
RunWait(folder\"regedit.exe","-s "&""""&file&"""")
EndIf

#Init dialup.ini
inifile=user_path\"dialup.ini"
If(FileExists("\Storage Card\APL4\dialup.ini"))
Copy("\Storage Card\APL4\dialup.ini",inifile,TRUE)
ElseIf(FileExists("\USB Disk\APL4\dialup.ini"))
Copy("\USB Disk\APL4\dialup.ini",inifile,TRUE)
ElseIf(NOT FileExists(inifile))
IniWrite(inifile,"DialUp","Name","")
IniWrite(inifile,"DialUp","Phone","*99#")
IniWrite(inifile,"DialUp","Login","login")
IniWrite(inifile,"DialUp","Pass","pass")
IniWrite(inifile,"DialUp","Modem","USB modem")
IniWrite(inifile,"DialUp","Settings","")
IniWrite(inifile,"DialUp","Auto","0")
EndIf

#Init dialup_ini.txt
txtfile=txt_path\"dialup_ini.txt"
name=IniRead(inifile,"DialUp","Name")
data[1]=IniRead(inifile,"DialUp","Phone")
data[2]=IniRead(inifile,"DialUp","Login")
data[3]=IniRead(inifile,"DialUp","Pass")
data[4]=IniRead(inifile,"DialUp","Modem")
data[5]=IniRead(inifile,"DialUp","Settings")
data[6]=IniRead(inifile,"DialUp","Auto")
If(data[6] eq "" || data[6] eq "no" || data[6] eq "0")
data[6]="0"
Else
data[6]="1"
EndIf
i=1
ForEach str in array(data)
data[i]=Replace(str,";","\;")
i=i+1
EndForEach
WriteFile(txtfile,Join(data,";"),FALSE,"unicode-prefix")

txtfile=txt_path\"connect_list.txt"
#Update connect_list.txt
If(name ne "")
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
EndIf

name1=name
conClose=ReadFile("\My Flash Disk\System\conclose.txt",0)
ForEach con in split(conClose,"^CR^",TRUE)
If(ToUpper(name) eq ToUpper(con))
name1=name&"_"
Break
EndIf
EndForEach

skip=0
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Read_connect_list",list,line)
If(ToUpper(name1) eq ToUpper(list[8]))
txtData=Replace(txtData,line,name&";"&Join(data,";")&";"&name1&";-p -m -e"&name1)
skip=1
Break
EndIf
EndForEach
If(skip=0)
txtData=txtData&name&";"&Join(data,";")&";"&name1&";-p -m -e"&name1&"^NL^"
EndIf
If(data[6] eq "1")
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Read_connect_list",list,line)
If(ToUpper(name1) ne ToUpper(list[8]) && list[7] eq "1")
list[7]="0"
txtData=Replace(txtData,line,Join(list,";"))
EndIf
EndForEach
EndIf
WriteFile(txtfile,txtData,FALSE,"unicode-prefix")
EndIf

#Init dialup params
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
ForEach line in split(txtData,"^CR^",TRUE)
CallFunction("Init_connect_list",list,line)
Call("InitDialup",list)
EndForEach
EndIf

#Init avic_ini.txt
txtfile=txt_path\"avic_ini.txt"
If(FileExists(txtfile))
start=Part(ReadFile(txtfile,0),";",3)
Else
start=0
EndIf
port=5
If(start=0 || start eq "")
If(FileExists("\My Flash Disk\APL2\iGo\sys.txt"))
portigo=IniRead("\My Flash Disk\APL2\iGo\sys.txt","gps","port")
If(portigo=port)
IniWrite("\My Flash Disk\APL2\iGo\sys.txt","gps","port","7")
EndIf
EndIf
Else
If(FileExists("\My Flash Disk\APL2\iGo\sys.txt"))
IniWrite("\My Flash Disk\APL2\iGo\sys.txt","gps","port",port)
EndIf
#Init portsplitter
#
EndIf

#Reset
RunWait(folder\"qsoftreset.exe")
Else

#Init 2
If(reset ne "1")
WriteFile("\Windows\_reset","1")
EndIf

#PortSplitter
txtfile=txt_path\"avic_ini.txt"
If(FileExists(txtfile))
txtData=ReadFile(txtfile,0)
EndIf
start=Part(txtData,";",7)
If(start ne "" && start ne "0")
Run(folder\"portsplitter.exe")
EndIf

#HotButton
start=Part(txtData,";",3)
If(start ne "" && start ne "0")
Run(folder\"Menu\menu.exe")
EndIf

#Show active windows
delay=Part(txtData,";",8)
Sleep(delay&"000")
MouseClick(0,0)

#End sound
start=Part(txtData,";",9)
If(start ne "" && start ne "0")
Run("\My Flash Disk\System\other_pioneer.exe","sc_sound")
EndIf

EndIf


#-----------------------------------------------------------------------------
Sub Read_connect_list
Local()
conStr=argv[1]

ind=1
For i=1 to 9 step 1
list[i]=Part(conStr,";",ind)
While(list[i] ne "" && ReverseFind(list[i],"\")=Length(list[i]))
ind=ind+1
list[i]=list[i]&";"&Part(conStr,";",ind)
EndWhile
ind=ind+1
Next
Return(list)
EndSub

Sub Init_connect_list
Local()
conStr=argv[1]

ind=1
For i=1 to 9 step 1
list[i]=Part(conStr,";",ind)
While(list[i] ne "" && ReverseFind(list[i],"\")=Length(list[i]))
ind=ind+1
list[i]=SubStr(list[i],1,Length(list[i])-1)&";"&Part(conStr,";",ind)
EndWhile
ind=ind+1
Next
i=1
ForEach str in array(list)
list[i]=Replace(list[i],"\","")
list[i]=Replace(list[i],"'","""")
i=i+1
EndForEach
Return(list)
EndSub


Sub InitDialup
Local()
data=argv[1]

#Init Dialup params
name=data[8]
If(name ne "")
#init connection
DevCfg="30000000780000001001000000C20100000008000000"
devcfg1="0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
Entry ="080240000000000001000000340032003500000090190e00000010c010000000ac01"
entry1="300000000000000000000000000000000000f442f80244890e00000000000000000000000000fce90424000000000000000098b5000000000000f0f000000000000000000000010000000100000000000000000000007cd1f702000000000000ff002c819e0800000000106bf70290190e005cee042400000000820000000000000044890e00a8ed0424040000000000000020ec04247cd1f70244890e0080f5f7022c819e0800000000000000000000ff00a0809e08ab010000106bf70290190e00110000003a0000000000000000000000000000003a0000001100000090170e000000000038730b000000000000000000000000003a00000011000000a424f902000000000000000000000000000000000000000000000000010000006d006f00640065006d00000018eb0424000000000100000001000000000000000000"
entry2="2D0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000fa010000ad01000000000000ae01000078d205003044f8023217bf971a00000000000000000010c0100000000100000000000000d8eb0424dc27f702b08ba10808000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000b08ba10818f30800070707000000000044890e00dc27f7020100000000000000000000000000000000000000010000000000000000000000000000001c5bf702000000002c819e0884ed042460b40f006cec04241cd5f80200000000000000000000000040d4f8020000000090170e009ced0424000000008cf908000000000000000000c84bb902a843050084ed042400000000e0f6017c0a0000000a0000000000000078ed0424d4ec0424a84cb902e0f6017cebffffff0000000028ee042401000000fc5301003854010003000150c054010054a6050000000000947d08004001027cf0000000c87d0800000000000a0000000d00000078fa010050ed042454ed042414d407000d0000000000000028ee0424a0fb017c00000000000000000400020054ed04244ced0424080000000000000328ee0424000000009a8f423b947d0800f000000000000000000000004001027c000000000000000088ed042408ff01004001027c00000000000000000400020028ee042400000000f0cb017c0000000000000000000000009a8f423b00000000947d0800000000004001027c00000000000000000000000030000000f00000004001027c00000000f0cb017c000000000000000000000000f0cb017c01000000c8bb0100f0000000f0cb017cf000000050bc010000000000000000000000000000000000000000001058050000000024c82e8b9b0f00000000000000b4f61a962032418e00c4dc9ac82e8b9b0f00000038fe00f080ee04243007c19b0f00000010580500c4b300f00000000064f004240000000000000000e0f6017c54ef042474dbc09bf1ecffff0000000000000000"
#set phone
phstr=data[2]
If(phstr ne "")
len=Length(phstr)
If(len>7)
len=7
EndIf
For i=1 to len
ch=SubStr(phstr,i,1)
phone=phone&NumberToHex(UcValue(ch))&"00"
Next
phone=phone&"0000"
Entry=Entry&phone&SubStr(entry1,Length(phone)+1,Length(entry1)-Length(phone))
Else
Entry=Entry&entry1
EndIf
#set modem
mstr=data[5]
If(mstr ne "")
len=Length(mstr)
If(len>23)
len=23
EndIf
For i=1 to len
ch=SubStr(mstr,i,1)
modem=modem&NumberToHex(UcValue(ch))&"00"
Next
modem=modem&"0000"
Entry=Entry&modem&SubStr(entry2,Length(modem)+1,Length(entry2)-Length(modem))
Else
Entry=Entry&entry2
EndIf
#set settings
setstr=data[6]
If(setstr ne "")
For i=1 to Length(setstr)
ch=SubStr(setstr,i,1)
params=params&NumberToHex(UcValue(ch))&"00"
Next
params=params&"0000"
DevCfg=DevCfg&params&SubStr(devcfg1,Length(params)+1,Length(devcfg1)-Length(params))
Else
DevCfg=DevCfg&devcfg1
EndIf
#init regkeys
del=TRUE
If(RegKeyExists("HKCU","Comm\RasBook\"&name))
del=FALSE
Run("\Windows\rnaapp.exe","-n -e"&""""&name&"""")
Sleep(100)
WaitFor("Dial-Up Connection",2)
i=1
ext=0
While(ext=0)
If(WndActive("Dial-Up Connection"))
if(i<8)
SendTab("Dial-Up Connection")
SendBackspace("Dial-Up Connection")
i=i+1
elseif(i=8)
SendCR("Dial-Up Connection")
i=i+1
else
ext=1
endif
Else
Show("Dial-Up Connection")
EndIf
EndWhile
Call("WaitCloseDialup",name&" Status")
RegDeleteKey("HKCU","Comm\RasBook\"&name,TRUE,TRUE)
auto=RegRead("HKLM","Comm\Autoras","RasEntry")
If(auto eq name)
RegWriteString("HKLM","Comm\Autoras","RasEntry",""
EndIf
EndIf
RegWriteBinary("HKCU","Comm\RasBook\"&name,"DevCfg",DevCfg)
RegWriteBinary("HKCU","Comm\RasBook\"&name,"Entry",Entry)
auto=data[7]
If(auto ne "" && auto ne "no" && auto ne "0")
RegWriteString("HKLM","Comm\Autoras","RasEntry",name)
EndIf
#set password
login=data[3]
pass=data[4]
Run("\Windows\rnaapp.exe","-n -e"&""""&name&"""")
Sleep(100)
WaitFor("Dial-Up Connection",2)
i=1
ext=0
While(ext=0)
If(WndActive("Dial-Up Connection"))
if(i=1)
SendKeys("Dial-Up Connection",login)
i=i+1
elseif(i=2)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=3)
SendKeys("Dial-Up Connection",pass)
i=i+1
elseif(i<6)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=6)
If(del)
SendSpace("Dial-Up Connection")
EndIf
i=i+1
elseif(i<9)
SendTab("Dial-Up Connection")
i=i+1
elseif(i=9)
SendCR("Dial-Up Connection")
i=i+1
else
ext=1
endif
Else
Show("Dial-Up Connection")
EndIf
EndWhile
Call("WaitCloseDialup",name&" Status")
EndIf
EndSub


Sub WaitCloseDialup
Local()
name=argv[1]
i=1
While(WndExists(name))
i=i+1
If(i>700)
If(WndExists(name))
Close(name)
EndIf
Break
EndIf
EndWhile
Sleep(300)
EndSub


Sub SafeXCopy
Local()
source_files=argv[1]
target_folder=argv[2]
mode=argv[3]
subdirs=argv[4]
backup=argv[5]
source_folder=FilePath(source_files)
source_files_ext=Part(source_files,"\",-1)
err=0

If(DirExists(source_folder))
If(mode eq "DEL")
size=0
Else
CallFunction("FilesSize",size,source_folder,source_files_ext,subdirs)
If(backup)
CallFunction("FilesSize",size1,target_folder,source_files_ext,subdirs)
size=size+size1
EndIf
EndIf
target_disk=Part(target_folder,"\",1)
If(target_disk eq "")
target_disk=Part(target_folder,"\",2)
EndIf
If(target_disk ne "My Flash Disk" && target_disk ne "Storage Card" && target_disk ne "USB Disk")
target_disk="\"
EndIf
If(FreeDiskSpace(target_disk) > size)
Call("CopyFiles",source_folder,source_files_ext,target_folder,mode,subdirs,backup)
Else
err=-1
EndIf
Else
err=1
EndIf

Return(err)
EndSub


Sub CopyFiles
Local()
source_folder=argv[1]
source_files_ext=argv[2]
target_folder=argv[3]
mode=argv[4]
subdirs=argv[5]
backup=argv[6]
source_files=source_folder\source_files_ext

ForEach file in files(source_files)
target_file=Replace(file,source_folder,target_folder)
If(mode eq "DEL")
If(FileExists(target_file) && FileModifyTime(file)>=FileModifyTime(target_file))
Delete(target_file)
If(backup && FileExists(target_file&".bak"))
Copy(target_file&".bak",target_file,TRUE)
Delete(target_file&".bak")
EndIf
EndIf
ElseIf(FileSize(file)>0 && (mode eq "OVER" || FileModifyTime(file)>FileModifyTime(target_file)))
If(NOT DirExists(target_folder))
Call("CreateDir",target_folder)
EndIf
If(backup && FileExists(target_file) && NOT FileExists(target_file&".bak"))
Copy(target_file,target_file&".bak",TRUE)
EndIf
Copy(file,target_file,TRUE)
EndIf
EndForEach

If(subdirs)
ForEach dir in directories(source_folder\"*")
target_dir=Replace(dir,source_folder,target_folder)
Call("CopyFiles",dir,source_files_ext,target_dir,mode,subdirs,backup)
EndForEach
EndIf

If(mode eq "DEL" && ElementCount(DirContents(target_folder\"*.*",DC_ALL))=0)
RmDir(target_folder)
EndIf
EndSub


Sub CreateDir
Local()
target_folder=argv[1]
Split(target_folder,"\",1,dirs)

curr_dir=""
ForEach dir in array(dirs)
If(curr_dir ne "")
curr_dir=curr_dir\dir
Else
curr_dir=dir
EndIf
If(NOT DirExists(curr_dir))
MkDir(curr_dir)
EndIf
EndForEach
EndSub


Sub FilesSize
Local()
folder = argv[1]
files = argv[2]
subdirs = argv[3]

size = 0
ForEach file in files(folder\files)
size += FileSize(file)
EndForEach

If(subdirs)
ForEach folder1 in directories(folder\"*")
CallFunction("FilesSize", size1, folder1, files, subdirs)
size += size1
EndForEach
EndIf

Return(size)
EndSub


Per quanto riguarda il problema di CQ7, appena posso proverò anch'io a rimettere il file tel.exe originale per verificare se effettivamente venga ripristinata la modalità normale di visualizzazione invio/ricezione chiamate... visto che sinceramente non vedo perchè non dovrebbe essere così :unsure:

Ah!!! Dimenticavo... avrei trovato una soluzione anche per il problema soft button.
In pratica, almeno per quanto mi riguarda, mi sembra giusto che il tasto rimanga in sottofondo senza dare fastidio... quindi la soluzione alternativa che ho trovato è spostare il tasto esattamente al limite esterno dello schermo (a scelta sarà anche possibile posizionarlo a sinistra oppure esattamente al centro) in modo che possa essere richiamato al bisogno ma senza dare fastidio, rimanendo di fatto invisibile.

Ok grazie aspetto con curiosità, non capisco effettivamente perché monumento ripristina la situazione precedente...
Ottima idea per il soft button, viste le tante funzioni é essenziale ma é pur vero che non deve fare fastidio.


 
Top
Gheroppa
view post Posted on 13/6/2011, 22:01




Fiuuuuuuuuuuuuu
mi son letto tutto l'ambarabam dell'inizializzazione....interessante... penso perfino di poter dire che qualcosa ci ho capito ;)

Bagua, per quanto mi riguarda, sistemare cosi il soft button sarebbe ottimale, senza mi pare di poter affermare senza tema di smentita che il sistema sarebbe incompleto..........

Problema che persiste da venerdi, SOLO ed esclusivamente con Primo, non mi aggancia piu il segnale GPS, non c'è verso, ho provato le combinazioni di avvio, nulla, non ho trovato un settagi del GPS tipo: porta baud ectctct, ma daltronde sono sicuro di non esserci andato a mettere le mani volontariamente....

Buona, felice ninna :) x Bagua sognetti di Albuccia e ti piace il mio nuovo avatar? :)
 
Top
huchede53
view post Posted on 14/6/2011, 09:29




Bonjour

je m'appelle huchede53 J'ai un 900bt j'aimerais avoir le pass pour le rar pour l'essayer merci
 
Top
vampirello
view post Posted on 14/6/2011, 15:17




Ciao !

X Bagua : te lo chiedevo solo perchè speravo sapessi dirmi cosa fa esattamente,in quel momento....ma poi ho intuito che quella routine deve esserci stata anche nella versione russa e non l'hai inserita tu,come inizialmente avevo pensato.
Comunque sbirciando frettolosamente il codice autorun,mi pare che sia relativo all'utilizzo di port splitter.
Stasera,se rientro ad un orario decente,provo a fare delle modifiche per vedere se si riesce ad eliminarla...non so perchè,mi sta proprio sulle palle sta inizializzazione...non so a voi...ma soprattutto in questi giorni,in cui mi capita di mettere e togliere card abbastanza spesso,se non ci fosse sarebbe meglio.
Ovviamente se l'hanno messa,a qualcosa serve per cui si dovrà rinunciare a qualcosa..ma questo lo vedremo !

x Gheroppa :
hai provato ad avviare Primo direttamente da windows,avviando il sistema in testmode ?
Potrebbe essere prorpio qualcosa in port splitter che crea problemi al segnale gps....

x Huchede53

Translate with Google translator :

ce travail est entièrement en italien et en est encore à l'essai.
Le mot de passe a été envoyé à quelques personnes qui mettent à l'essai.
Je vous suggère d'attendre que le travail est fait.
Pour obtenir le mot de passe que vous avez à demander à l'utilisateur Bagua

Vamp
 
Top
huchede53
view post Posted on 14/6/2011, 17:40




merci je vais attendre la sortie, huchede53
 
Top
1109 replies since 23/5/2011, 19:33   100822 views
  Share