| CQ7 |
| | 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¶ms&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ì 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.
| | |
| |
|