asi es rulz ,aunque la cosa esta muy escondida ,pero vamos sacando nuestras refexiones y dudas
asi es rulz ,aunque la cosa esta muy escondida ,pero vamos sacando nuestras refexiones y dudas
Lerelelelelele
Última edición por Noish; 23-08-2006 a las 15:59
yo tengo unlooper t-43 y el aparato abq,con todo abierto hoy no puedo ,no estoy en casa pero podemos probar lo que haga falta
animo compañeros entre todos se puede consiguir y poder hacer un manual para los novatos y acabar con el negocio de algunos ..............un saludo
este scrip te da cosas pero no me modifica nada
Option Explicit
Const ScriptName="RicaricaPPV"
Dim RetValue
Dim Delay
Dim GPPLen,GPRLen
Dim GPR(1024)
Dim i
Dim MenuChoice
Dim MsgPrompt
Dim vv,St,St2,n,stmin
Dim risposta
Const fsoError = -1
Const fsoOpenRead = 0
Const fsoOpenWrite = 1
Const fsoOpenReadWrite = 2
Const fsoSEEK_SET = 0
Const fsoSEEK_CUR = 1
Const fsoSEEK_END = 2
Const FileFilter = "File da salvare (*.txt, *.out)|*.txt;*.out;|Tutti i File (*.*)|*.*|"
dim s
dim aaa,bbb
Dim DAC
Dim vec(1024)
dim iopt,extra
dim rom(16384)
dim itot,inew
Dim ToWrite
Sub Main()
dim jj
Sc.Verbose=false
n=0
st=0
st2=0
If VerifyWinExplorer()=0 Then Exit Sub
If VerifyUnlooper()=0 Then Exit Sub
Do
MsgPrompt=" Ricarica Credito "
MenuChoice=Sc.ButtonBox(MsgPrompt,vbDefaultButton1 ,ScriptName+" - Menu Principale by NDXFree4All versus Kanguro","Atr","Doc Procedura","Ins36-NanoPPV","RicaricaPPV","Exit")
Select Case MenuChoice
Case 1: ATR()
Case 2: Documents()
Case 3: Leggi36 ()
Case 4: Ricarica()
End Select
Loop Until MenuChoice=5
End Sub
Function ATR()
dim ToWrite
Sc.Write("A1")
ToWrite="100E30019504"
SendGP(ToWrite)
sc.delay(300)
Sc.Print("ATR: ")
For i=0 to GPRLen-1
Sc.Print(Hexstring(GPR(i),2) & " ")
Next
Sc.Print(vbCr)
End function
Function Leggi36()
Dim ins,ins1,ins2,ToWrite,jj,t(8)
call atr
jj="BFBFBF8C04"
ins = "160e20C4"
ins1= "D0360000FF"
ins2=ins & ins1 & jj
SendGPST(ins2)
For jj=0 to 8
t(jj)=GPR(jj)
Next
For jj=2 to GPRLen-1
risposta = risposta & Hexstring(GPR(jj),2 )
Next
msgbox " Controlla se è presente il nano FD11 nella tua ins 36 : " & vbcr & vbcr & (ins1 & risposta & vbcr)
risposta=""
End function
Function Scan36()
Dim ins,ins1,ins2,ToWrite,jj,t(8),nano
call atr
jj="BFBF8C04"
ins = "160e20C4"
ins1= "D0360000A4"
ins2=ins & ins1 & jj
SendGPST(ins2)
For jj=0 to 8
t(jj)=GPR(jj)
Next
For jj=2 to GPRLen-1
risposta = risposta & Hexstring(GPR(jj),2 )
Next
Sc.print(ins1 & risposta & vbcr)
nano= mid(risposta,157,4)
print " Credito:" & nano & vbcr
if mid(risposta,157,4)<> nano then
msgbox " Ricarica Full Effettuata !!! Buona visione" & vbCrLf & ("Importante: Sfilare la Card prima di premere OK ,visto che è andata bene evitiamo le solite cazzate !!!")
end if
risposta=""
End function
Function Documents ()
MsgPrompt=" Importante: " & vbcr & vbcr & "Testato su KT con Xilinx Firm 4,5 e Atmel 2313 Firm UL4S o NDX2" & vbcr & vbcr & vbcr & " Leggere prima di iniziare:"
MenuChoice=Sc.ButtonBox(MsgPrompt,vbDefaultButton1 ,ScriptName+" - Procedura ","Doc Procedura")
MsgBox " Procedura:" & vbCrLf & ("1: E' obbligatorio esssere abilitati alla ppv,controllare se on card cè il tiers 02FE ed è presente il nano FD11- Programmare la eeprom del vostro BLESM introducendo il Serial e lo Zkt della vostra Card ") & vbCrLf & ("2: Collegarsi col Decoder via TEL ed inserire la card protetta con BLESM ed effettuare l'operazione di scarico/ricarico credito Menu-Interattivita'-Gestione Modem-OK") & vbCrLf & ("3:Loggare la ins di ricarica Precam e Postcam tramite BLESM,contemporaneamente,Attenzione la ins ricarica viene inviata solo una volta,se la perdete avete finito prima di iniziare...sicuramente l'operazione dara' uno di questi errori -22-44-55,poco importa,le ins42 arriveranno lo stesso") & vbCrLf & ("4:Prelevare l'ins Len20 dal pre o post-cam ed inserirla nello script quando richiesto in D0") & vbCrLf &("5:Aspettare che lo script segnali l'operazione riuscita")& vbCrLf & ("6: L'autore declina ogni responsabilita' per usi diversi dai soli fini esclusivamente Hobbystici")
End function
Function Ricarica()
Dim ins,ToWrite,ii,jj,t(8),x,S,V,EM,EM1,EM2,EMM
EM= Sc.InputBox("Inserisci 42 ricarica crediti -Len 20- : ","PPV Full by NdxFree4All versus Kanguro","")
EM1= Mid(EM,1,10)
EM2= Mid(EM,11,100)
EMM= EM1 & "80DF" & EM2
print EMM
for S=&H90 to &H90
call atr
V=&H00
jj="22" & HexString(S,2) & HexString(V,2) & "018104"
ins="160e15C4" & EMM +jj
SendGPST(ins)
sc.delay(300)
For jj=0 to 8
t(jj)=GPR(jj)
Next
For jj=0 to GPRLen-1
risposta = risposta & Hexstring(GPR(jj),2)
Next
Sc.Print "Delay = 22" & HexString(S,2) & HexString(V,2) & " - Invio n°(" & HexString(x,2) & ")"& vbcr
Sc.print(risposta & vbcr)
call Scan36
next
End function
Sub res
risposta = ""
For i=0 to GPRLen-1
risposta = risposta & HexInv(GPR(i),2)
Next
End sub
Function SendSeca(str)
dim i
SendSeca=""
for i=0 to len(str)/2-1
SendSeca=SendSeca & HexInv("&h" & mid(str,2*i+1,2),2)
next
End Function
Function GetTimer()
Sc.Write("C0")
sc.delay(50)
If Sc.Read(5)=5 Then
GPR(0)=Sc.GetByte(4)
GPR(1)=Sc.GetByte(3)
GPR(2)=Sc.GetByte(2)
n=n+1
vv=GPR(0)*256*256+ GPR(1)*256+GPR(2)
st=st+vv
st2=st2+vv*vv
if vv<stmin then stmin=vv
GetTimer=vv
Else
Sc.Print("Unable to communicate with unlooper!")
End If
End Function
Function VerifyUnlooper()
Dim UnlooperID
VerifyUnlooper=0
Call Sc.Reset()
Do While(VerifyUnlooper=0)
Sc.ByteDelay=0
Sc.Write("90")
If Sc.Read(1)=1 Then
For i=0 to 3
Next
VerifyUnlooper=1
Sc.Print("Atmel Software: " & UnlooperID &vbCr)
Else
Sc.Print("Retrying" & vbCr)
VerifyUnlooper=0
End If
Loop
End Function
Function VerifyWinExplorer()
VerifyWinExplorer=1
If Sc.Version<4.6 Then
Sc.Print("You need WinExp v.4.6 to run this script!")
VerifyWinExplorer=0
End If
End Function
Function HexString(Number,Length)
Dim CurLen
RetValue=Hex(Number)
CurLen=Len(RetValue)
If CurLen<Length Then
RetValue=String(Length-CurLen,"0") & RetValue
End If
HexString=RetValue
End Function
Function HexInv(Number,Length)
Dim CurLen
Dim NumLow
Dim NumHigh
dim Number1
NumLow=Int(Number/16)
NumHigh=Number-NumLow*16
Select Case NumHigh
Case 0 NumHigh=15
Case 1 NumHigh=7
Case 2 NumHigh=11
Case 4 NumHigh=13
Case 6 NumHigh=9
Case 7 NumHigh=1
Case 8 NumHigh=14
Case 9 NumHigh=6
Case 11 NumHigh=2
Case 13 NumHigh=4
Case 14 NumHigh=8
Case 15 NumHigh=0
End Select
Select Case NumLow
Case 0 NumLow=15
Case 1 NumLow=7
Case 2 NumLow=11
Case 4 NumLow=13
Case 6 NumLow=9
Case 7 NumLow=1
Case 8 NumLow=14
Case 9 NumLow=6
Case 11 NumLow=2
Case 13 NumLow=4
Case 14 NumLow=8
Case 15 NumLow=0
End Select
Number1=NumHigh*16+NumLow
RetValue=Hex(Number1)
CurLen=Len(RetValue)
If CurLen<Length Then
RetValue=String(Length-CurLen,"0") & RetValue
End If
HexInv=RetValue
End Function
Sub SendGP(GP)
Dim Length
Dim i
Call Replace(GP," ","")
GP=GP+"00"
Length=Len(GP)\2
GP=HexString(Length,2)+GP
If SendUL(GP)=1 Then
If Sc.Read(1)=1 Then
GPPLen=Sc.GetByte(0)
GPRLen=Sc.GetByte(0)
If GPRLen>192 Then Sc.Read(GPRLen)
i=0
Do While (GPRLen>i)
i=i+1
Loop
Else
GPPLen=0
GPRLen=0
End If
Else
GPPLen=0
GPRLen=0
End If
End Sub
Sub SendGPST(GP)
Dim Length
Dim i,j,GPRLen0
Call Replace(GP," ","")
GP=GP+"00"
Length=Len(GP)\2
GP=HexString(Length,2)+GP
GPRLen=0
Sc.Write(GP)
sc.delay 2500
i=0
j=0
while (Sc.BytesInBuffer >0 and i< 1024)
GPRLen0=Sc.BytesInBuffer
GPRLen=GPRLen+GPRLen0
If GPRLen0>0 Then Sc.Read(GPRLen0)
j=j+1
Do While (GPRLen0>i)
GPR(i)=Sc.GetByte(i)
i=i+1
Loop
sc.delay(250)
wend
sc.flush()
i=Sc.BytesInBuffer
if i>0 then sc.read(3)
sc.flush
End Sub
Function SendUL(ToSend)
Dim RetVal
Dim ULResponseTime
Dim BufferBytes
Const MaxULResponseTime=250000
Const MaxBufferBytes=1024
SendUL=0
ULResponseTime=0
BufferBytes=0
RetVal=Sc.Flush()
Sc.Write(ToSend)
Do While (BufferBytes=0 And ULResponseTime<MaxULResponseTime)
ULResponseTime=ULResponseTime+1
BufferBytes=Sc.BytesInBuffer
Loop
If ULResponseTime<MaxULResponseTime Then
SendUL=1
End If
End Function
provar a ver
sabes si el programa EXTREME02 de nds2 vale para nuestras card de ono?
ese no consigo que me conecte
estas frecuencias son de la comunidad valenciana yo lo he probado y para cataluña no valen
para cataluña el paquete de canales debe ser diferente pues asi como en la comunidad valenciana ,tv1,la2 ,a3 t5 y la cuatro estan juntas con la misma frecuencia yo veo la cuatro menos las demas
a ver si alguien me explica por favor porque se tiene que conectar el cable de telefono al deco 1h4g chispeado, y si no te pasan a final de mes el importe de lo que hayas comprado, y si se puede comprar con el cable de telefono quitado del deco y una vez hecha la compra se vuelve a conectar. gracias
he estado intentando hablar con alguien ke los venda y me han comentado. 1 imprescindible el deco de baja 2 tener linea telefonica pq sino los palcos no funcionan y a traves de la linea telefonica se actualizan, la tarjeta es la ke esta trasteada pero eso no me lo confirman ... dicen q se puede comprar a parte si insistes.
en el hilo chinchetado arriba de ESTUDIO ABQ....
teneis mas informacion.
pero es analogico y ya van cortando x zonas. del deco digital creo q no hay novedades
el que es analogico ?
Haber alguien puede confirmar el funcionamiento de estos decos.
ayuda porfa,soy novata necesito saber todo sobre como ver ono.
de momento todo esta en estudio. no hay nada.
Yo Tengo Ono Digital Y Se Ve Todo Pero Al Cabo De Un Mes Se Me Agoto El Saldo De La Tarjeta Y No Puedo Ver Las Taquillas ¿alguien Sabe Como Cargar La Tarjeta Con Mas Dinero?...
Se Que Se Puede Hacer Lo He Escuchado, Pero No Se La Forma
Lo Veia Todo Gratis Hasta Que Me Quede Sin Saldo ¿como Recargar La Tarjeta? Gracias....
demomento lo unico que puedes hacer es esperar a que se descargue por ella misma, lo de recargarle mas credito está jodido.
Salu2
Marcadores