Библиотека для работы с FireFox

#Include <FF.au3>
; выкидывает постоянно "Can't connect to FireFox"

; trying to connect to a running FireFox with MozRepl on
If _FFConnect(Default, Default, 3000) Then
	; open a page
	_FFOpenURL("http://ff-au3-example.thorsten-willert.de/")
	Sleep(3000)
	; disconnect from FireFox
	If _FFDisConnect() Then MsgBox(64, "", "Disconnected from FireFox!")
Else
	MsgBox(64, "", "Can't connect to FireFox!")
EndIf

#include <FF.au3>
  #region РАБОТА ПРОГРАММЫ
ConsoleWrite('создаем массив'&@CRLF)
   Input()                                                      ; эта функция работает
     ConsoleWrite('фаер фокс'&@CRLF)
       _FFStart('www.mail.ru')
 ;      _FFConnect("127.0.0.1", 4242, 6000)      - а может это надо включить??
           ConsoleWrite('проверка'&@CRLF)

;===============================================================================
#cs
    AutoIt Version: 3.2.12.1
    Author: Thunder-man (Frank Michalski)

    Script Function:  _MozRepl_Detect()
    Description:      Checks a Firefox profile for the MozRepl extension and installes it if not available.
    default:          $sProfile = "default"
    Return values:    True or False
    V 1.0 ==> 15.09.2007
    V 1.1 ==> 02.08.2008, updated by Stilgar (Thorsten Willert)
    changed the path-macro to @AppDataDir
    changed the ""-profil to "default"
    V1.2 ==> 03.03.2009, updated by Stilgar (Thorsten Willert)
    changed MozLab to MozRepl
    V2.0 ==> 17.03.2009, added intall-option for MozRepl by Stilgar (Thorsten Willert)

#ce
;===============================================================================

;  [Example]
$Result = _MozRepl_Detect()
MsgBox(64, "Result", $Result)

Func _MozRepl_Detect($sProfile = "default", $bInstall = True , $sXPI = "http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi")

    If $sProfile = "" Then $sProfile = "default"

    Local $sIni_Path = @AppDataDir & "\Mozilla\Firefox\"

    Local $var = IniReadSectionNames($sIni_Path & "\profiles.ini")
    If @error Then
        MsgBox(4096, "", "Error occurred, probably no Firefox INI file.")
    Else
        For $i = 1 To $var[0]
            Local $Ini_ = IniRead($sIni_Path & "\profiles.ini", $var[$i], "Name", "Error")
            If $Ini_ = $sProfile Then
                Local $sPath_folder = IniRead($sIni_Path & "\profiles.ini", $var[$i], "Path", "Eror") ;Profil Ordner
                ExitLoop
            EndIf
        Next
    EndIf

    If $bInstall Then
        Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
        Local $sFFExe = RegRead($sHKLM & "\" & RegRead($sHKLM, "CurrentVersion") & "\Main", "PathToExe")
        Local $sCommand = StringFormat('"%s" "%s"',$sFFExe, $sXPI)
    EndIf

    If StringLeft($sPath_folder, 8) = "Profiles" Then
        If FileExists($sIni_Path & $sPath_folder & "\extensions\[email protected]") Then
            Return 1
        Else
            If $bInstall Then Return Run($sCommand)
            Return 0
        EndIf
    Else
        If FileExists($sPath_folder & "\extensions\[email protected]") Then
            Return 1
        Else
            If $bInstall Then Return Run($sCommand)
            Return 0
        EndIf
    EndIf
EndFunc   ;==>_MozRepl_Detect

;  [Example]
$Result = _MozRepl_Detect()
MsgBox(64, "Result", $Result)

Func _MozRepl_Detect($sProfile = "default", $bInstall = True, $sXPI = "http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi")
	Local $sProfile_Path, $sFFExe, $sCommand
	Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
	
	If $sProfile = "" Then
		$sProfile = "default"
	EndIf
	
	Local $sIni_Path = @AppDataDir & "\Mozilla\Firefox"
	Local $aSectNames = IniReadSectionNames($sIni_Path & "\profiles.ini")
	
	If @error Then
		Return SetError(-1, 0, "Error occurred, probably no Firefox INI file.")
	EndIf
	
	For $i = 1 To $aSectNames[0]
		If IniRead($sIni_Path & "\profiles.ini", $aSectNames[$i], "Name", "") = $sProfile Then
			$sProfile_Path = StringReplace(IniRead($sIni_Path & "\profiles.ini", $aSectNames[$i], "Path", "Eror"), "/", "\")
			If Not StringInStr($sProfile_Path, ":\") Then $sProfile_Path = $sIni_Path & "\" & $sProfile_Path
			
			ExitLoop
		EndIf
	Next
	
	If FileExists($sProfile_Path & "\extensions\[email protected]") Then
		Return 1
	EndIf
	
	If $bInstall Then
		$sFFExe = RegRead($sHKLM & "\" & RegRead($sHKLM, "CurrentVersion") & "\Main", "PathToExe")
		$sCommand = StringFormat('"%s" "%s"', $sFFExe, $sXPI)
		Return Run($sCommand)
	EndIf
	
	Return 0
EndFunc ;==>_MozRepl_Detect