![]() GetCurrentPropertyValue ( $id, $tVal ) If Not IsArray ( $tVal ) Then Return $tVal Local $tStr = $tVal For $i = 1 To UBound ( $tVal ) - 1 $tStr &= " " & $tVal Next Return $tStr EndFunc =>_UIA_getPropertyValue GetNextSiblingElement ( $oUIElement, $pUIElement ) $oUIElement = ObjCreateInterface ( $pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) WEnd EndFunc =>ListDescendants Func _UIA _getPropertyValue ( $obj, $id ) Local $tVal $obj. ListDescendants ( $oUIElement, $iLevel + 1, $iLevels ) $oRawWalker. GetFirstChildElement ( $oParent, $pUIElement ) $oUIElement = ObjCreateInterface ( $pUIElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) Local $sIndent = "" For $i = 0 To $iLevel - 1 $sIndent &= " " Next While IsObj ( $oUIElement ) FileWrite ( $file, $sIndent & "Title = " & _UIA _getPropertyValue ( $oUIElement, $UIA_NamePropertyId ) & & _ $sIndent & "Class = " & _UIA _getPropertyValue ( $oUIElement, $UIA_ClassNamePropertyId ) & & _ $sIndent & "Ctrl type = " & _UIA _getPropertyValue ( $oUIElement, $UIA_ControlTypePropertyId ) & & _ $sIndent & "Ctrl name = " & _UIA _getPropertyValue ( $oUIElement, $UIA_LocalizedControlTypePropertyId ) & & _ $sIndent & "Value = " & _UIA _getPropertyValue ( $oUIElement, $UIA_LegacyIAccessibleValuePropertyId ) & & _ $sIndent & "Handle = " & Hex ( _UIA _getPropertyValue ( $oUIElement, $UIA_NativeWindowHandlePropertyId ) ) & & ) RawViewWalker ( $pRawWalker ) $oRawWalker = ObjCreateInterface ( $pRawWalker, $sIID_IUIAutomationTreeWalker, $dtagIUIAutomationTreeWalker ) Local $pUIElement, $oUIElement $oRawWalker. ListDescendants ( $oWindow, 0, 0 ) Window EndFunc =>MainFunc Func ListDescendants ( $oParent, $iLevel, $iLevels = 0 ) If Not IsObj ( $oParent ) Then Return If $iLevels And $iLevel = $iLevels Then Return Local $pRawWalker, $oRawWalker $oUIAutomation. ElementFromHandle ( $hWindow, $pWindow ) Window If Not $pWindow Then Return Local $oWindow = ObjCreateInterface ( $pWindow, $sIID_IUIAutomationElement, $dtagIUIAutomationElement ) If Not IsObj ( $oWindow ) Then Return ListDescendants( $oWindow, 0, 1 ) Desktop MainFunc ( ) Func MainFunc ( ) Local $hWindow = 0x0006045C Infragistics Local $hWindow = WinGetHandle( "" ) Infragistics Local $hWindow = WinGetHandle( "" ) Windows Explorer, Windows 7 Local $hWindow = WinGetHandle( "" ) Windows Explorer, Windows XP Local $hWindow = WinGetHandle( "Windows Explorer right pane" ) Windows Explorer right pane Local $hWindow = WinGetHandle( "" ) AutoIt GUI window Local $hWindow = WinGetHandle( "" ) AutoIt script Local $hWindow = WinGetHandle( "" ) Internet Explorer Local $hWindow = WinGetHandle ( "Thunderbird" ) If Not $hWindow Then Return $oUIAutomation = ObjCreateInterface ( $sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation ) If Not IsObj ( $oUIAutomation ) Then Return Local $pWindow $oUIAutomation.GetRootElement( $pWindow ) Desktop $oUIAutomation. If you changed Thunderbird Email Extractor v2.0.7 settings, you must relaod mail accounts by click on Relaod button.Expand collapse popup #include "3" Opt ( "MustDeclareVars", 1 ) Opt ( "WinTitleMatchMode", 2 ) Global $oUIAutomation Global $file = "result.txt" Everytime Thunderbird Email Extractor v2.0.7 would load mail accounts from this location. ![]() If you configured Thunderbird Mail Sync Folder other then default location, you can setup in the Mail Folder tab of settings window. Other Thunderbird Mail Sync Location then Default If you want not to search some email addresses that contains some perticular keywords, you can add in settings window. It would search email addresses immediately. You can select mail folder(s) in left panel from where you want to extract email addresses and click on Search Email button. When you starts the application, It automatically loads all mail folders of configured mail accounts from default Mozilla Thunderbird location or from selected other mail sync location. Note : Before using the application you must ensures that Mozilla Thunderbird email client installed on the computer and mail account configured. How Thunderbird Email Address Extractor Works v2.0.7 It also supports custom mail sync location other than default Thunderbird location. Extracted email addresses can be saved in Excel (.xls). Thunderbird Email Extractor v2.0.7 supports filters that allows you to get a list of required email addresses and eliminates duplicate email addresses automatically. Thunderbird Email Extractor v2.0.7 displays all mail accounts and directories same as Thunderbird that allows you to select any mail folder such as INBOX, SENT ITEMS and other user defined mail folders. ![]() It extracts email addresses from all configured mail accounts in Thunderbird from email's to, from, cc, bcc, sender, subject, email body of Thunderbird emails. Thunderbird Email Extractor v2.0.7 is a software to extract email addresses from Mozilla Thunderbird for Windows.
0 Comments
Leave a Reply. |