sub test214a ()
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqWriteAK(&H33, "FFFE",waitError)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H33, &H11
end if
DisplayStep "Write Appli Key", "7F3433/11"
case 2
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214b ()
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqWriteAK(&H33,"FFFE",waitError)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "7F3433"
case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214c ()
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA2(&H22, waitError)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H22, &H12
end if
DisplayStep "SA#2", "7F2722/12"
case 2
set doc = reqWriteAK(&H33, "FFFE",waitError)
etape()
if instr(mode.innertext, "loader") then
CheckOkErr
else CheckMultErr &H33, &H11
end if
DisplayStep "Write Appli Key", "7F3433/11"
case 3
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214d ()
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
set doc = reqWriteAKparCRC()
etape()
CheckOkErr
DisplayStep "Write Appli Key crc", "740A"
case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214e ()
select case stepcount
case 0
set docWriteAKparRL = reqWriteAKparRL(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
set doc = docWriteAKparRL
etape()
CheckOkErr
DisplayStep "Write Appli Key RL", "7F3412"
case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214f ()
select case stepcount
case 0
set docWriteAKparAdr = reqWriteAKparAdr(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
set doc = docWriteAKparAdr
etape()
CheckOkErr
DisplayStep "Write Appli Key Adr", "7F3412"
case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214ga ()
cles = array("FFFE")
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = calibZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
for each cle in cles
set doc = reqWriteAK(2, cle, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
next
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214gaG ()
cles = array("FFFE")
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = globalZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
for each cle in cles
set doc = reqWriteAK(2, cle, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
next
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214gb ()
cles = array("FFFC", "FFF8", "FFE0", "FFC0", "FF80", "FF00", "FE00", "FC00", "F800", "F000", "E000", "C000", "8000", "0000")
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = calibZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
for each cle in cles
set doc = reqWriteAK(2, cle, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
next
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214gbG ()
cles = array("FFFC", "FFF8", "FFE0", "FFC0", "FF80", "FF00", "FE00", "FC00", "F800", "F000", "E000", "C000", "8000", "0000")
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = globalZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
for each cle in cles
set doc = reqWriteAK(2, cle, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
next
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214h ()
dim TemporaryValue
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
zone = calibZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 5
set doc = reqWriteAK(4, "FFFF", waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "7404"
case 6
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop
case 7
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 8
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 9
TemporaryValue = cleCryptage.value
cleCryptage.value = "FFFF"
set doc = reqSA2(&H35, waitError)
etape()
CheckOkErr
cleCryptage.value = TemporaryValue
DisplayStep "SA#2 with Appli Key = FFFF", "7F2735"
case 10
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop
case 11
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 20
case 12
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if
case 13
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 14
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214hG ()
dim TemporaryValue
select case stepcount
case 0
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
zone = globalZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 4
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 5
set doc = reqWriteAK(4, "FFFF", waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "7404"
case 6
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop
case 7
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 8
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 9
TemporaryValue = cleCryptage.value
cleCryptage.value = "FFFF"
set doc = reqSA2(&H35, waitError)
etape()
CheckOkErr
cleCryptage.value = TemporaryValue
DisplayStep "SA#2 with Appli Key = FFFF", "7F2735"
case 10
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
debut = timer
do while timer < debut + 1
loop
case 11
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
SA1Count = 20
case 12
set doc = reqSA1(&h22,true)
etape()
CheckOkErr
if left(strReponse,4) = "6781" then
testok = True
DisplayStep "SA#1", "ok"
else
if testok then
SA1Count = SA1Count - 1
if SA1Count <= 0 Then
testok = false
DisplayStep "SA#1", "failed1"
Else
stepcount = stepcount - 1
DisplayStep "SA#1", "retry"
End If
else
DisplayStep "SA#1", "failed2"
end if
end if
case 13
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 14
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
''''''''''''''''''''
sub test214i ()
select case stepcount
case 0
set docWriteAKparLB = reqWriteAKparLB(&H12)
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 1
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 2
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 3
set doc = docWriteAKparLB
etape()
CheckOkErr
DisplayStep "Write Appli Key LB", "7F3412"
case 4
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
'''''''''''''''''''''''''''''''''''
''' verrouillage avec cle serie '''
'''''''''''''''''''''''''''''''''''
sub testlockserial ()
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = calibZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
LockKey = InputBox("Application Key to write", Input, "FFFF")
set doc = reqWriteAK(2, LockKey, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
'''''''''''''''''''''''''''''''''''''''''''''''
sub testlockserialG ()
select case stepcount
case 0
Dim respo
respo = Msgbox ("WARNING : this test will change Appli Key value. " & Chr(13) & "Do you want to CONTINUE ?" & Chr (13) & "----------------------------------------------------------------" & Chr(13) & "ATTENTION : ce test va changer la valeur de la Clef Appli. " & Chr(13)& "Voulez vous CONTINUER ?", 52, "Warning")
if respo = 7 then
continueTest = false
end if
case 1
set doc = H.StartDiag
etape()
CheckOkErr
DisplayStep "Init", "ok"
case 2
set doc = reqSA1(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#1", "ok"
case 3
set doc = reqSA2(1, waitOk)
etape()
CheckOkErr
DisplayStep "SA#2", "ok"
case 4
zone = globalZone
set doc = reqErase(1, listeRL(zone), waitOk)
etape()
CheckOkErr
DisplayStep "Erase...", "718101"
case 5
debut = timer
set doc1 = reqEraseStatus()
do while timer < debut + 100
set doc = doc1.clonenode(true)
etape()
if (strReponse <> "") and (strReponse <> "718101") then exit do
loop
CheckCode 2
DisplayStep "Erase status", "718102"
case 6
LockKey = InputBox("Application Key to write", Input, "FFFF")
set doc = reqWriteAK(2, LockKey, waitOk)
etape()
CheckOkErr
DisplayStep "Write Appli Key", "ok"
case 7
set doc = reqStop(waitOk)
etape()
CheckOkErr
DisplayStep "Stop", "ok"
case else
continueTest = false
end select
end sub
Wyszukiwarka
Podobne podstrony:
briques appli keySol Upper Int progress tests answer key AAnswer Key Short Tests?BNew Matrix Int tests keyAnswer Key Short TestsABAnswer Key Short TestsABAnswer Key Short Tests:Bangielski MATURA PRACITICE TESTS KEYIntermediate Review Tests KeyAnswer Key Short Tests?BAnswer Key Short TestsABAnswer Key End of the book Tests?Answer Key Short TestsABwięcej podobnych podstron