If WndExists "Mobile Navigator 6"
   Show "Mobile Navigator 6"

Else
   If RegKeyEqualsDWord HKLM,SOFTWARE\Widcomm\BtConfig\General,StackMode,0
      call BluetoothWechsler
   EndIf   

#  If Not RegKeyEqualsDWord HKCU,ControlPanel\BackLight,BatteryTimeout,0
#     call BeleuchtungsWechsler
#     RegWriteDWord HKCU,ControlPanel\BackLight,BatteryTimeout,0
#     RegWriteDWord HKCU,ControlPanel\BackLight,ACTimeout,0
#  EndIf
  
   sleep 1000

   call MobileNavigatorStarten

   While WndExists "Mobile Navigator 6"
      sleep 3000
   EndWhile


#  If Not RegKeyEqualsDWord HKCU,ControlPanel\BackLight,BatteryTimeout,60
#     call BeleuchtungsWechsler
#     RegWriteDWord HKCU,ControlPanel\BackLight,BatteryTimeout,60
#     RegWriteDWord HKCU,ControlPanel\BackLight,ACTimeout,180
#  EndIf
           
   If RegKeyEqualsDWord HKLM,SOFTWARE\Widcomm\BtConfig\General,StackMode,1
      call BluetoothWechsler
   EndIf   
EndIf

#
############################################################
# Hier kommen die Sub-Routinen                              #
############################################################
#
sub MobileNavigatorStarten
##########################################
# MobileNavigator starten
##########################################
#     
      run "\SD-MMCard\MN6\MN6.exe"
      WaitForActive "Mobile Navigator 6",20
      sleep 2000 
EndSub
#
#
sub BluetoothWechsler
##########################################
# Bluetooth Ein- bzw. Ausschalten
##########################################
#     
      Show "Desktop"
      WaitForActive "Desktop",20
      sleep 200
      MouseClick 227,308
      sleep 1000
      MouseClick 162,238
      sleep 200
EndSub
#
#
sub BeleuchtungsWechsler
# #########################################
# Beleuchtungssteuerung: Häkchen wechseln bei Akku- und Netzbetrieb
# Stromversorgungssteuerung: Häkchen wechseln bei Akku- und Netzbetrieb
# #########################################
#
      RegWriteDWord HKLM,System\CurrentControlSet\Control\Power\Timeouts,ACSuspendTimeout,299
      RegWriteDWord HKLM,System\CurrentControlSet\Control\Power\Timeouts,BattSuspendTimeout,179
      run "\Windows\Backlight.exe"
      sleep 1000
      MouseClick 80,245
      sleep 500

      If Not RegKeyEqualsDWord HKCU,ControlPanel\BackLight,BatteryTimeout,60
         MouseClick 20,95
         sleep 500

         If Not RegKeyEqualsDWord HKCU,ControlPanel\BackLight,ACTimeout,180
            MouseClick 20,155
            sleep 500
         EndIf

      Else
         MouseClick 20,95
         sleep 500

         If RegKeyEqualsDWord HKCU,ControlPanel\BackLight,ACTimeout,180
            MouseClick 20,155
            sleep 500
         EndIf

      EndIf
      MouseClick 228,12
      sleep 500
EndSub
#
#