Int Function TestFen1 ()
var handle hd,
int type
;let type=0
let hd=GetTopLevelWindow (GetCurrentWindow())
if !FindWindow(hd,"ToolBarWindow32","")||!FindWindow(hd,"","Rechercher") then 
SayString("Cette fenêtre n'est pas de type Explorateur.")
{Escape}
		Elif GetControlID (GetFocus())==1001&&GetObjectSubTypeCode()==78 then
let type=1
		Else
let hd=GetTopLevelWindow (GetCurrentWindow())
let hd =  FindDescendantWindow(hd ,1001)
SetFocus(hd)
let type=2
If GetObjectSubTypeCode()!=78 then
SpeechOff()
TestFen2 ()
PcCursor()
{Control+E}
Pause()
{Shift+Tab}
SpeechOn()
EndIf
EndIf 
Return type
EndFunction

Void Function TestFen2 ()
If FindString(GetTopLevelWindow (GetFocus()),"Parcourir les dossiers",S_Top,S_Unrestricted) then
LeftMouseButton()
EndIf
EndFunction

Function UneFois ()
var int j,
string choix,
handle hd 
If TestFen1 ()>0 then
;TestFen1 ()
;if type>0 then
SpeechOff()
NextLine()
Pause()
While (choix!=GetJawsUserName()&&j<10)
let choix=""
NextLine()
let choix=GetWord()
let j=j+1
EndWhile
Pause()
Enterkey()
SpeechOn()
Delay(5)
if GetWindowClass(GetCurrentWindow())!="SysListView32" then
let hd = FindWindow(GetTopLevelWindow (GetCurrentWindow()),"SysListView32","")
SetFocus(hd)
EndIf
EndIf
EndFunction

Function DeuxFois ()
var int j,
string choix,
handle hd 
If TestFen1 ()>0 then
;TestFen1 ()
;if type>0 then
SpeechOff()
NextLine()
Pause()
While (choix!="Ordinateur"&&j<10)
let choix=""
NextLine()
let choix=GetWord()
let j=j+1
EndWhile
Pause()
Enterkey()
SpeechOn()
Delay(5)
if GetWindowClass(GetCurrentWindow())!="SysListView32" then
let hd = FindWindow(GetTopLevelWindow (GetCurrentWindow()),"SysListView32","")
SetFocus(hd)
EndIf
EndIf
EndFunction

Function TroisFois ()
If GetControlID (GetFocus())==1001&&GetObjectSubTypeCode()==78 then
SayString("Bouton Partager Bureau.")
else
TestFen1 ()
EndIf
EndFunction

Function PourChoix ()
  if IsSameScript () == 0 Then
UneFois()
 ElIf IsSameScript () == 1 Then
DeuxFois()
  Elif IsSameScript () == 2 Then
  TroisFois()
  Endif
EndFunction

Script ChoixDossier ()
;Ctrl +Alt +K
ScheduleFunction("PourChoix",5)
EndScript