[UDF] Firefox (FF.au3)

SUBMITTED BY: Guest

DATE: May 28, 2013, 6:28 a.m.

FORMAT: Text only

SIZE: 177.2 kB

Raw Download

HITS: 3791

Report
  1. ; :wrap=none:collapseFolds=1:maxLineLen=80:mode=autoitscript:tabSize=8:folding=indent:
  2. ; created with jEdit4AutoIt
  3. #include-once
  5. #Region Copyright
  6. #cs
  7. * FF.au3
  8. *
  9. * This program is free software; you can redistribute it and/or
  10. * modify it under the terms of the GNU General Public License
  11. * as published by the Free Software Foundation; either version 2
  12. * of the License, or any later version.
  13. *
  14. * This program is distributed in the hope that it will be useful,
  15. * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17. * GNU General Public License for more details.
  18. *
  19. * You should have received a copy of the GNU General Public License
  20. * along with this program; if not, write to the Free Software
  21. * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  22. #ce
  23. #EndRegion Copyright
  25. #Region Many thanks to:
  26. #cs
  27. - Jonathan Bennett and the AutoIt Team for AutoIt v3 the freeware
  28. BASIC-like scripting language
  29. (and thanks John George Kemeny and Thomas Eugene Kurtz for BASIC)
  30. - Dale Hohm, for his great IE.au3, which I've used as base for the
  31. functions-names and the error handling.
  32. - Johannes Schirmer, for some functions and suggestions for the FF.au3
  33. - all others for their suggestions, bug reports ...
  34. - the FireFox-Team for his fantastic browser
  36. - and Massimiliano Mirra, without his work would this UDF impossible,
  37. for MozLab / MozRepl
  38. #ce
  39. #EndRegion Many thanks to:
  41. #Region #CURRENT# ==============================================================
  42. ;_FFAction
  43. ;_FFClick
  44. ;_FFCmd
  45. ;_FFConnect
  46. ;_FFDialogWait
  47. ;_FFDisConnect
  48. ;_FFDispatchEvent
  49. ;_FFFormCheckBox
  50. ;_FFFormGetElementsLength
  51. ;_FFFormOptionSelect
  52. ;_FFFormRadioButton
  53. ;_FFFormReset
  54. ;_FFFormSubmit
  55. ;_FFFrameEnter
  56. ;_FFFrameLeave
  57. ;_FFGetLength
  58. ;_FFGetObjectInfo
  59. ;_FFGetPosition
  60. ;_FFGetValue
  61. ;_FFImageClick
  62. ;_FFImageGetBySize
  63. ;_FFImageMapClick
  64. ;_FFIsConnected
  65. ;_FFLinkClick
  66. ;_FFLinksGetAll
  67. ;_FFLoadWait
  68. ;_FFLoadWaitTimeOut
  69. ;_FFObj
  70. ;_FFObjDelete
  71. ;_FFObjGet
  72. ;_FFObjNew
  73. ;_FFOpenURL
  74. ;_FFPrefGet
  75. ;_FFPrefReset
  76. ;_FFPrefSet
  77. ;_FFQuit
  78. ;_FFReadHTML
  79. ;_FFReadText
  80. ;_FFSearch
  81. ;_FFSetValue
  82. ;_FFStart
  83. ;_FFTabAdd
  84. ;_FFTabClose
  85. ;_FFTabDuplicate
  86. ;_FFTabExists
  87. ;_FFTabGetSelected
  88. ;_FFTabSetSelected
  89. ;_FFTableWriteToArray
  90. ;_FFWindowClose
  91. ;_FFWindowGetHandle
  92. ;_FFWindowOpen
  93. ;_FFWindowSelect
  94. ;_FFWriteHTML
  95. ;_FFXPath
  96. #EndRegion #CURRENT# ===========================================================
  98. #Region Description
  99. ; ==============================================================================
  100. ; UDF ...........: FF.au3
  101. Global Const $_FF_AU3VERSION = "0.6.0.0b-5"
  102. ; Description ...: An UDF for FireFox automation.
  103. ; Requirement ...: MozRepl AddOn:
  104. ; http://hyperstruct.net/projects/mozlab
  105. ; http://wiki.github.com/bard/mozrepl/home
  106. ; Author(s) .....: Thorsten Willert, Johannes Schirmer
  107. ; Date ..........: Fri Nov 13 18:32:04 CET 2009 @772 /Internet Time/
  108. ; FireFox Version: Firefox/3.5.3 (required 3.x.x)
  109. ; AutoIt Version : v3.3.0.0
  110. ; ==============================================================================
  111. #cs
  112. V0.6.0.0b-5
  113. - Added: _FFWindowOpen: new parameter: $bLoadWait
  114. - Added: _FFAu3Option / $_FF_SEARCH_MODE = 0 ; 0 = Substring / 1 = Compare
  115. _FFImageClick
  116. - Removed: _FFSetValueById, _FFSetValueByName ==> _FFSetValue
  117. - Removed: _FFGetValueById, _FFGetValueByName ==> _FFGetValue
  118. - Removed: _FFFormGetLength ==> _FFGetLength
  119. - Removed: _FFTabGetLength ==> _FFGetLength
  120. - Removed: _FFTableGetCell ==> _FFXpath
  121. - Removed: _FFDisPatchKeyEvent ==> _FFDisPatchEvent
  122. - Removed: _FFTabCloseAll ==> _FFTabClose
  123. - Removed: _FFFormGetElementsLength: now only returns the DOM-standard length
  124. - Removed: _FFRecord* functions and all additions for them in all functions
  125. - Changed: _FFAction("copy"): works now only on the current frame
  126. - Fixed: _FFFormGetElementsLength: Error Message
  127. - Fixed: _FFDispatchEvent: Shortcut for elements
  128. For compatibily for older scripts, please use this UDF:
  129. http://thorsten-willert.de/Themen/FFau3/FF.au3/FFEx.au3
  131. ToDo:
  132. Textsuche (name, id, text ...) per Substring, String, RegEx
  133. Events fuer die _FFForm* Funktionen
  134. #ce
  135. #EndRegion Description
  137. #Region Global Constants
  138. Global Const $_FF_PROC_NAME = "firefox.exe" ; Firefox process name
  139. Global Const $_FF_COM_DELAY_MAX = 300 ; alternative connection delay in ms
  140. Global Enum $_FF_ERROR_Success = 0, _ ; No error
  141. $_FF_ERROR_GeneralError, _ ; General error
  142. $_FF_ERROR_SocketError, _ ; No socket
  143. $_FF_ERROR_InvalidDataType, _ ; Invalid data type (IP, URL, Port ...)
  144. $_FF_ERROR_InvalidValue, _ ; Invalid value in function-call
  145. $_FF_ERROR_SendRecv, _ ; Send / Recv Error
  146. $_FF_ERROR_Timeout, _ ; Connection / Send / Recv timeout
  147. $_FF_ERROR___UNUSED, _ ;
  148. $_FF_ERROR_NoMatch, _ ; No match for _FFAction-find/search _FFGetElement...
  149. $_FF_ERROR_RetValue, _ ; Error echo from Repl e.g. _FFAction("fullscreen","true") <> "true"
  150. $_FF_ERROR_ReplException, _ ; Exception from MozRepl / FireFox
  151. $_FF_ERROR_InvalidExpression ; Invalid expression in XPath query or RegEx
  152. #EndRegion Global Constants
  154. #Region Global Variables
  155. Global $_FF_GLOBAL_SOCKET = -1 ; Socket
  156. Global $_FF_CON_DELAY ; Connection Delay
  157. Global $_FF_LOADWAIT_TIMEOUT = 120000
  158. Global $_FF_COM_TRACE = True ; Trace communication to console (debugging)
  159. Global $_FF_ERROR_MSGBOX = True ; Shows in compiled scripts error messages in msgboxes
  160. Global $_FF_FRAME = 'top'
  161. Global $_FF_SEARCH_MODE = 0 ; 0 = Substring / 1 = Compare
  162. #EndRegion Global Variables
  164. ; #FUNCTION# ===================================================================
  165. ; Name ..........: _FFAction
  166. ; Description ...: Some standard actions to work with FireFox
  167. ; Beschreibung ..: Standardaktionen in FireFox
  168. ; AutoIt Version : V3.3.0.0
  169. ; Syntax ........: _FFAction($sAction[, $vOption = ""[, $vOption2 = ""[, $bLoadWait = True]]])
  170. ; Parameter(s): .: $sAction - one of the following actions:
  171. ; | about
  172. ; | alert
  173. ; | back
  174. ; | blank
  175. ; | copy
  176. ; | fullscreen / fs
  177. ; | hideall
  178. ; | home
  179. ; | maximize / max
  180. ; | minimize / min
  181. ; | presentationmode / pm
  182. ; | print
  183. ; | reload
  184. ; | resetconsole
  185. ; | restore
  186. ; | scrollXY
  187. ; | stop
  188. ; | zoom
  189. ; $vOption - Optional: (Default = "") :
  190. ; $vOption2 - Optional: (Default = "") :
  191. ; $bLoadWait - Optional: (Default = true) :
  192. ; Return Value ..: Success - Return-value from MozRepl (sometimes an empty string!!!)
  193. ; Failure - ""
  194. ; @ERROR -
  195. ; Author(s) .....: Thorsten Willert
  196. ; Date ..........: Fri Nov 06 22:12:29 CET 2009
  197. ; Link ..........: http://developer.mozilla.org/en/docs/XUL:tabbrowser, http://developer.mozilla.org/en/docs/XUL:Method:reloadWithFlags, https://developer.mozilla.org/En/DOM/Window.scrollBy, http://kb.mozillazine.org/About_Protocol_Links
  198. ; Related .......:
  199. ; Example .......: Yes
  200. ; ==============================================================================
  201. Func _FFAction($sAction, $vOption = "", $vOption2 = "", $bLoadWait = True)
  202. Local Const $sFuncName = "_FFAction"
  204. Local $sCommand
  205. Local $sActionL = StringLower($sAction)
  207. Select
  208. Case $sActionL = "back"
  209. $sCommand = "gBrowser.goBack()"
  210. Case $sActionL = "home"
  211. $sCommand = "gBrowser.goHome()"
  212. Case $sActionL = "forward"
  213. $sCommand = "gBrowser.goForward()"
  214. Case $sActionL = "copy"
  215. Return _FFCmd(".getSelection()", $_FF_CON_DELAY + 100)
  216. Case $sActionL = "reload" And $vOption <> ""
  217. $sCommand = "gBrowser.reloadWithFlags('" & $vOption & "')"
  218. Case $sActionL = "reload"
  219. $sCommand = "gBrowser.reload()"
  220. Case $sActionL = "fullscreen" Or $sActionL = "fs" And $vOption
  221. $sCommand = "fullScreen=true"
  222. $bLoadWait = False
  223. Case $sActionL = "fullscreen" Or $sActionL = "fs" And Not $vOption
  224. $sCommand = "fullScreen=false"
  225. $bLoadWait = False
  226. Case $sActionL = "minimize" Or $sActionL = "min"
  227. $bLoadWait = False
  228. $sCommand = "minimize()"
  229. Case $sActionL = "maximize" Or $sActionL = "max"
  230. $bLoadWait = False
  231. $sCommand = "maximize()"
  232. Case $sActionL = "restore"
  233. $bLoadWait = False
  234. $sCommand = "restore()"
  235. Case $sActionL = "stop"
  236. $bLoadWait = False
  237. $sCommand = "gBrowser.stop()"
  238. Case $sActionL = "print"
  239. $bLoadWait = False
  240. $sCommand = "content.print()"
  241. Case $sActionL = "find" Or $sActionL = "search"
  242. _FFLoadWait()
  243. $sCommand = "content.find()"
  244. Case $sActionL = "hideall" And $vOption
  245. Return _FFCmd("toggleAffectedChrome(true);")
  246. Case $sActionL = "hideall" And Not $vOption
  247. Return _FFCmd("toggleAffectedChrome(false);")
  248. Case $sActionL = "presentationmode" Or $sActionL = "pm" And $vOption
  249. Return _FFCmd("toggleAffectedChrome(true)" & @CRLF & "fullScreen=true")
  250. Case $sActionL = "presentationmode" Or $sActionL = "pm" And Not $vOption
  251. Return _FFCmd("toggleAffectedChrome(false)" & @CRLF & "fullScreen=false")
  252. Case $sActionL = "alert" And $vOption <> ""
  253. $sCommand = 'alert("' & $vOption & '")'
  254. $bLoadWait = False
  255. Case $sActionL = "chrome" And $vOption <> ""
  256. $sCommand = '.location.href="' & __FFChromeSelect($vOption) & '"'
  257. Case $sActionL = "blank"
  258. $vOption = "blank"
  259. ContinueCase
  260. Case $sActionL = "about"
  261. $sCommand = '.location.href="about:' & $vOption & '"'
  262. Case $sActionL = "scrollxy" And IsInt($vOption) And IsInt($vOption2)
  263. $sCommand = "window.content.scrollBy(" & $vOption & "," & $vOption2 & ");"
  264. $bLoadWait = False
  265. Case $sActionL = "zoom" And $vOption = ""
  266. $vOption = 1
  267. ContinueCase
  268. Case $sActionL = "zoom" And IsNumber($vOption)
  269. $sCommand = "gBrowser.selectedBrowser.markupDocumentViewer.fullZoom=" & $vOption
  270. $bLoadWait = False
  271. Case $sActionL = "resetconsole"
  272. $sCommand = ";" & @CRLF & "repl.home()"
  273. $bLoadWait = False
  274. Case Else
  275. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sAction: " & $sAction & " or " & "$vOption :" & $vOption & " or " & "$vOption2 :" & $vOption2))
  276. Return ""
  277. EndSelect
  279. Local $sRet = _FFCmd($sCommand)
  280. If Not @error Then
  281. If $bLoadWait Then _FFLoadWait()
  282. Return $sRet
  283. Else
  284. SetError(@error)
  285. Return ""
  286. EndIf
  288. EndFunc ;==>_FFAction
  290. ; #FUNCTION# ===================================================================
  291. ; Name ..........: _FFClick
  292. ; Description ...: Simulates a click on an element.
  293. ; Beschreibung ..: Simuliert einen Klick auf ein Element.
  294. ; AutoIt Version : V3.3.0.0
  295. ; Syntax ........: _FFClick($sElement[, $sMode = "elements"[, $iIndex = 0]])
  296. ; Parameter(s): .: $sElement - Element to click on
  297. ; $sMode - Optional: (Default = "elements") :
  298. ; | elements
  299. ; | id
  300. ; | name
  301. ; | class
  302. ; | tag
  303. ; $iIndex - Optional: (Default = 0) : Index if $sMode = class, name, tag
  304. ; Return Value ..: Success - 1
  305. ; Failure - 0
  306. ; @ERROR -
  307. ; Author(s) .....: Thorsten Willert
  308. ; Date ..........: Fri Sep 25 12:01:48 CEST 2009 @459 /Internet Time/
  309. ; Link ..........:
  310. ; Related .......: _FFImageClick, _FFLinkClick
  311. ; Example .......: Yes
  312. ; ==============================================================================
  313. Func _FFClick($sElement, $sMode = "elements", $iIndex = 0)
  314. Local Const $sFuncName = "_FFClick"
  316. If Not IsInt($iIndex) Then
  317. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iIndex: " & $iIndex))
  318. Return 0
  319. EndIf
  321. Switch StringLower($sMode)
  322. Case "elements"
  323. If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)
  324. Case "id"
  325. $sElement = ".getElementById('" & $sElement & "')"
  326. Case "name"
  327. $sElement = ".getElementsByName('" & $sElement & "')[" & $iIndex & "]"
  328. Case "class"
  329. $sElement = ".getElementsByClassName('" & $sElement & "')[" & $iIndex & "]"
  330. Case "tag"
  331. $sElement = ".getElementsByTagName('" & $sElement & "')[" & $iIndex & "]"
  332. Case Else
  333. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(elements|id|name|class|tag) $sMode: " & $sMode))
  334. Return 0
  335. EndSwitch
  337. If StringLeft($sElement, 1) = "." Then $sElement = "window.content.document" & $sElement
  339. Local $RetVal = _FFCmd("FFau3.simulateEvent(" & $sElement & ",'MouseEvents','click');")
  340. If Not @error And $RetVal <> "_FFCmd_Err" And $RetVal = 1 Then
  341. Sleep(25)
  342. Return $RetVal
  343. Else
  344. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement: " & $sElement))
  345. Return 0
  346. EndIf
  348. EndFunc ;==>_FFClick
  350. ; #FUNCTION# ===================================================================
  351. ; Name ..........: _FFDialogWait
  352. ; Description ...: Waits for a browser-dialog-message (e.g. alert) and closes it.
  353. ; Beschreibung ..: Wartet auf ein Dialog-Fenster (z.B.: alert) und schließt es.
  354. ; AutoIt Version : V3.3.0.0
  355. ; Syntax ........: _FFDialogWait($sText[, $sTitle = ""[, $sClose = "close"[, $iTimeOut = 10000]]])
  356. ; Parameter(s): .: $sText - Text in the dialog (substring)
  357. ; $sTitle - Optional: (Default = "") : Window-title of the dialog (substring)
  358. ; $bClose - Optional: (Default = "close") :
  359. ; | close = Just closes the dialog window
  360. ; | open = Do nothing
  361. ; | ok = Uses the "ok"-button
  362. ; | cancel = Uses the"cancel"-button
  363. ; $iTimeOut - Optional: (Default = 10000) : Timeout for waiting (min. 1000ms)
  364. ; Return Value ..: Success - 1
  365. ; Failure - 0
  366. ; @ERROR -
  367. ; Author(s) .....: Thorsten Willert
  368. ; Date ..........: Tue Apr 14 12:18:08 CEST 2009
  369. ; Link ..........:
  370. ; Related .......: _FFLoadWait
  371. ; Example .......: Yes
  372. ; ==============================================================================
  373. Func _FFDialogWait($sText, $sTitle = "", $sClose = "close", $iTimeOut = 10000)
  374. Local Const $sFuncName = "_FFDialogWait"
  375. If $sTitle = "" And $sText = "" Then
  376. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "Empty String: $sText and $sTitle"))
  377. Return 0
  378. EndIf
  379. If $sClose = Default Then $sClose = "close"
  380. If $iTimeOut < 1000 Then $iTimeOut = 1000
  382. Local $bFound = False, $b1 = False, $b2 = False
  384. Local $iTimer = TimerInit()
  385. While TimerDiff($iTimer) < $iTimeOut
  386. If _FFCmd('FFau3.obj=Components.classes["@mozilla.org/appshell/window-mediator;1"].getService(Components.interfaces.nsIWindowMediator).getMostRecentWindow("").window;' & _
  387. 'FFau3.obj.document.documentURI') = "chrome://global/content/commonDialog.xul" Then
  388. If $sTitle <> "" Then
  389. If StringInStr(_FFCmd("FFau3.obj.title"), $sTitle) Then $b1 = True
  390. EndIf
  391. If $sText <> "" Then
  392. If StringInStr(_FFCmd("FFau3.obj.document.documentElement.textContent"), $sText) Then $b2 = True
  393. EndIf
  394. Select
  395. Case $sTitle = "" And $sText <> "" And Not $b1 And $b2
  396. $bFound = True
  397. Case $sTitle <> "" And $sText <> "" And $b1 And $b2
  398. $bFound = True
  399. Case $sTitle <> "" And $sText = "" And $b1 And Not $b2
  400. $bFound = True
  401. Case Else
  402. $bFound = False
  403. EndSelect
  404. If $bFound Then
  405. Switch StringLower($sClose)
  406. Case "close" ; just close the window
  407. _FFCmd("FFau3.obj.close()")
  408. Case "ok"
  409. _FFCmd("FFau3.obj.document.documentElement.acceptDialog()")
  410. Case "cancel"
  411. _FFCmd("FFau3.obj.document.documentElement.cancelDialog()")
  412. Case "open" ; do nothing
  413. Case Else
  414. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sClose: " & $sClose))
  415. Return 0
  416. EndSwitch
  417. Return 1
  418. EndIf
  419. EndIf
  420. Sleep(500)
  421. WEnd
  423. SetError(__FFError($sFuncName, $_FF_ERROR_Timeout, Round(TimerDiff($iTimer)) & "ms > " & $iTimeOut & "ms"))
  424. Return 0
  425. EndFunc ;==>_FFDialogWait
  427. ; #FUNCTION# ===================================================================
  428. ; Name ..........: _FFImageClick
  429. ; Description ...: Clicks an image-link.
  430. ; Beschreibung ..: Klickt einen Image-Link.
  431. ; AutoIt Version : V3.3.0.0
  432. ; Syntax ........: _FFImageClick($vSearch[, $sMode = "src"[, $bLoadWait = True]])
  433. ; Parameter(s): .: $vSearch - String to search or number (0-n) in index mode (the search is performed in the attributes of the image and the link)
  434. ; $sMode - Optional: (Default = "src") :
  435. ; | alt
  436. ; | href
  437. ; | id
  438. ; | index
  439. ; | name
  440. ; | src
  441. ; | title
  442. ; $bLoadWait - Optional: (Default = True) :
  443. ; Return Value ..: Success - 1
  444. ; Failure - 0
  445. ; @ERROR -
  446. ; Author(s) .....: Thorsten Willert
  447. ; Date ..........: Mon Nov 09 19:02:40 CET 2009
  448. ; Link ..........:
  449. ; Related .......: _FFClick, _FFLinkClick, _FFImageMapClick
  450. ; Example .......: Yes
  451. ; ==============================================================================
  452. Func _FFImageClick($vSearch, $sMode = "src", $bLoadWait = True)
  453. Local Const $sFuncName = "_FFImageClick"
  455. Local $sX
  456. $sMode = StringLower($sMode)
  458. Switch $sMode
  459. Case "index"
  460. If Not IsInt($vSearch) Then
  461. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vSearch: " & $vSearch))
  462. Return 0
  463. EndIf
  464. $sX = ".images[" & $vSearch & "]"
  465. Case "id", "src", "href", "alt", "name", "title"
  466. Switch $_FF_SEARCH_MODE
  467. Case 0
  468. $sX = "contains(@" & $sMode & ",'" & $vSearch & "')"
  469. Case 1
  470. $sX = "@" & $sMode & "='" & $vSearch & "')"
  471. EndSwitch
  472. Case Else
  473. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(src|href|alt|name|title|id|index) $sMode: " & $sMode))
  474. Return 0
  475. EndSwitch
  477. If $sMode <> "index" Then
  478. If _FFClick( _FFXPath("//a//img[" & $sX & "] | //a[" & $sX & "]//img", "", 9) ) Then
  479. If $bLoadWait Then Return _FFLoadWait()
  480. Return 1
  481. EndIf
  482. Else
  483. If _FFClick( $sX ) Then
  484. If $bLoadWait Then Return _FFLoadWait()
  485. Return 1
  486. EndIf
  487. EndIf
  489. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vSearch: " & $vSearch))
  490. Return 0
  492. EndFunc ;==>_FFImageClick
  494. ; #FUNCTION# ===================================================================
  495. ; Name ..........: _FFImageMapClick
  496. ; Description ...: Clicks on area of an image-map
  497. ; Beschreibung ..: Klickt auf ein Area einer Image-map
  498. ; AutoIt Version : V3.3.0.0
  499. ; Syntax ........: _FFImageMapClick($vArea[, $sModeArea = "index"[, $vMap = 0[, $sModeMap = "index"[, $bLoadWait = True]]]])
  500. ; Parameter(s): .: $vArea - (substring)
  501. ; $sModeArea - Optional: (Default = "index") :
  502. ; | alt
  503. ; | class
  504. ; | coords
  505. ; | href
  506. ; | id
  507. ; | index
  508. ; | name
  509. ; | title
  510. ; $vMap - Optional: (Default = 0) : (substring)
  511. ; $sModeMap - Optional: (Default = "index") :
  512. ; | class
  513. ; | id
  514. ; | index
  515. ; | name
  516. ; | title
  517. ; $bLoadWait - Optional: (Default = True) :
  518. ; Return Value ..: Success - 1
  519. ; Failure - 0
  520. ; @ERROR -
  521. ; Author(s) .....: Thorsten Willert
  522. ; Date ..........: Mon Sep 28 10:39:55 CEST 2009
  523. ; Related .......: _FFClick, _FFLinkClick, _FFImageClick
  524. ; Example .......: Yes
  525. ; ==============================================================================
  526. Func _FFImageMapClick($vArea, $sModeArea = "index", $vMap = 0, $sModeMap = "index", $bLoadWait = True)
  527. Local Const $sFuncName = "_FFImageMapClick"
  529. Local $sXPath
  531. $sModeArea = StringLower($sModeArea)
  532. $sModeMap = StringLower($sModeMap)
  534. Switch $sModeMap
  535. Case "index"
  536. If Not IsInt($vMap) Then
  537. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vMap: " & $vMap))
  538. Return 0
  539. EndIf
  540. $sXPath = "//map[" & $vMap + 1 & "]"
  541. Case "id", "name", "title", "class"
  542. $sXPath = "//map[contains(@" & $sModeMap & ",'" & $vMap & "')]"
  543. Case Else
  544. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(name|title|id|index|class) $sModeMap: " & $sModeMap))
  545. Return 0
  546. EndSwitch
  548. Switch $sModeArea
  549. Case "index"
  550. If Not IsInt($vMap) Then
  551. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vArea: " & $vArea))
  552. Return 0
  553. EndIf
  554. $sXPath &= "//area[" & $vArea & "]"
  555. Case "id", "name", "title", "alt", "href", "class", "coords"
  556. $sXPath &= "//area[contains(@" & $sModeArea & ",'" & $vArea & "')]"
  557. Case Else
  558. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|id|name|title|alt|href|coords|class) $sModeArea: " & $sModeArea))
  559. Return 0
  560. EndSwitch
  562. If _FFClick( _FFXPath($sXPath, "", 9)) Then
  563. If $bLoadWait Then Return _FFLoadWait()
  564. Return 1
  565. EndIf
  567. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch))
  568. Return 0
  569. EndFunc ;==>_FFImageMapClick
  571. ; #FUNCTION# ===================================================================
  572. ; Name ..........: _FFImagesGetBySize
  573. ; Description ...: Returns an array with the index of matching images.
  574. ; Beschreibung ..: Liefert ein Array mit den Indizes der passenden Bilder.
  575. ; Syntax ........: _FFImagesGetBySize($iHeight, $iWidth[, $sMode = "eq"[, $iPercent = 0]])
  576. ; Parameter(s): .: $iHeight - Heigth of the image(s)
  577. ; $iWidth - Width of the image(s)
  578. ; $sMode - Optional (Default = "eq") :
  579. ; | eq
  580. ; | lt
  581. ; | gt
  582. ; $iPercent - Optional (Default = 0) : +/- tolerance in percent for $sMode = "eq" (min=0, max=100)
  583. ; Return Value ..: Success - array[0] > 0
  584. ; Failure - array[0] = 0
  585. ; @ERROR -
  586. ; Author(s) .....: Thorsten Willert
  587. ; Date ..........: Mon Sep 28 10:40:47 CEST 2009
  588. ; Link ..........:
  589. ; Related .......:
  590. ; Example .......: Yes
  591. ; ==============================================================================
  592. Func _FFImagesGetBySize($iHeight, $iWidth, $sMode = "eq", $iPercent = 0)
  593. Local Const $sFuncName = "_FFImagesGetBySize"
  594. Local $aRet[1] = [0]
  596. If $iPercent < 0 Or $iPercent > 100 Then $iPercent = 0
  597. $sMode = StringLower($sMode)
  599. If Not IsInt($iHeight) Then
  600. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iHeight: " & $iHeight))
  601. Return $aRet
  602. EndIf
  603. If Not IsInt($iWidth) Then
  604. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iWidth: " & $iWidth))
  605. Return $aRet
  606. EndIf
  607. Switch $sMode
  608. Case "eq", "lt", "gt"
  609. Case Else
  610. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(eq|lt|gt) $sMode: " & $sMode))
  611. Return $aRet
  612. EndSwitch
  614. Local $sCommand = StringFormat("FFau3.SearchImageBySize(%s,%s,'%s',%s);", $iHeight, $iWidth, $sMode, $iPercent)
  615. Local $iIndex = StringStripWS(_FFCmd($sCommand, 10000), 3)
  616. $aRet = StringSplit($iIndex, " ")
  617. If Not @error And $aRet[0] > 0 Then
  618. For $i = 1 To $aRet[0]
  619. $aRet[$i] = Int($aRet[$i])
  620. Next
  621. Else
  622. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch))
  623. Return $aRet
  624. EndIf
  626. Return $aRet
  627. EndFunc ;==>_FFImagesGetBySize
  629. ; #FUNCTION# ===================================================================
  630. ; Name ..........: _FFLinkClick
  631. ; Description ...: Simulates a click on a link.
  632. ; Beschreibung ..: Simuliert einen Klick auf einen Link
  633. ; AutoIt Version : V3.3.0.0
  634. ; Syntax ........: _FFLinkClick($vSearch[, $sMode = "href"[, $bLoadWait = True]])
  635. ; Parameter(s): .: $vSearch - (Sub)String to search or number (0-n) in index mode
  636. ; $sMode - Optional: (Default = "href") :
  637. ; | href
  638. ; | alt
  639. ; | name
  640. ; | title
  641. ; | id
  642. ; | index
  643. ; $bLoadWait - Optional: (Default = True) :
  644. ; Return Value ..: Success - 1
  645. ; Failure - 0
  646. ; @ERROR -
  647. ; Author(s) .....: Thorsten Willert
  648. ; Date ..........: Thu Sep 24 17:27:40 CEST 2009 @685 /Internet Time/
  649. ; Link ..........:
  650. ; Related .......: _FFClick, _FFImageClick
  651. ; Example .......: Yes
  652. ; ==============================================================================
  653. Func _FFLinkClick($vSearch, $sMode = "href", $bLoadWait = True)
  654. Local Const $sFuncName = "_FFLinkClick"
  656. Local $sX
  657. $sMode = StringLower($sMode)
  659. Switch $sMode
  660. Case "index"
  661. If Not IsInt($vSearch) Then
  662. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vSearch: " & $vSearch))
  663. Return 0
  664. EndIf
  665. $sX = ".links[" & $vSearch & "]"
  666. Case "text"
  667. $sX = "//a[contains(.,'" & $vSearch & "')]"
  668. Case "href", "name", "title", "id"
  669. $sX = "//a[contains(@" & $sMode & ",'" & $vSearch & "')]"
  670. Case Else
  671. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|href|text|name|title|id) $sMode: " & $sMode))
  672. Return 0
  673. EndSwitch
  675. If $sMode <> "index" Then
  676. If _FFClick( _FFXPath($sX, "", 9) ) Then
  677. If $bLoadWait Then Return _FFLoadWait()
  678. Return 1
  679. EndIf
  680. Else
  681. If _FFClick( $sX ) Then
  682. If $bLoadWait Then Return _FFLoadWait()
  683. Return 1
  684. EndIf
  685. EndIf
  687. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vSearch: " & $vSearch))
  688. Return 0
  690. EndFunc ;==>_FFLinkClick
  692. ; #FUNCTION# ===================================================================
  693. ; Name ..........: _FFFrameLeave
  694. ; Description ...: Leaves the currently entered frame
  695. ; Beschreibung ..: Verläßt den aktuellen Frame
  696. ; AutoIt Version : V3.3.0.0
  697. ; Syntax ........: _FFFrameLeave()
  698. ; Parameter(s): .:
  699. ; Return Value ..: Success - 1
  700. ; Failure - 0
  701. ; Author(s) .....: Thorsten Willert
  702. ; Date ..........: Fri Sep 18 11:08:20 CEST 2009 @422 /Internet Time/
  703. ; Link ..........:
  704. ; Related .......: _FFFrameEnter
  705. ; Example .......: Yes
  706. ; ==============================================================================
  707. Func _FFFrameLeave()
  708. ;Local Const $sFuncName = "_FFFrameLeave"
  709. Local $bTrc = $_FF_COM_TRACE
  710. $_FF_COM_TRACE = False
  712. Local $sFrame = StringMid($_FF_FRAME, 1, StringInStr($_FF_FRAME, ".", 2, -1) - 1)
  713. _FFCmd("FFau3.WCD=window.content.wrappedJSObject." & $sFrame & ".document;")
  714. If Not @error Then
  715. $_FF_COM_TRACE = $bTrc
  716. $_FF_FRAME = $sFrame
  717. Return 1
  718. EndIf
  720. $_FF_COM_TRACE = $bTrc
  721. Return 0
  722. EndFunc ;==>_FFFrameLeave
  724. ; #FUNCTION# ===================================================================
  725. ; Name ..........: _FFFrameEnter
  726. ; Description ...: Selects a frame, which all subsequent commands apply on.
  727. ; Beschreibung ..: Wählt einen Frame aus, auf den alle nachfolgenden Befehle wirken.
  728. ; AutoIt Version : V3.3.0.0
  729. ; Syntax ........: _FFFrameEnter($vFrame[, $sMode = "index"])
  730. ; Parameter(s): .: $vFrame - Frame name or id or number in index mode
  731. ; $sMode - Optional: (Default = "index") :
  732. ; | name
  733. ; | id
  734. ; | index
  735. ; Return Value ..: Success - 1
  736. ; Failure - 0
  737. ; @ERROR -
  738. ; Author(s) .....: Thorsten Willert
  739. ; Date ..........: Sat Oct 24 21:05:36 CEST 2009
  740. ; Link ..........:
  741. ; Related .......: _FFFrameLeave
  742. ; Example .......: Yes
  743. ; ==============================================================================
  744. Func _FFFrameEnter($vFrame, $sMode = "index")
  745. Local Const $sFuncName = "_FFFrameEnter"
  747. Local $sFrame = $_FF_FRAME
  748. Local $bTrc = $_FF_COM_TRACE
  750. Switch StringLower($sMode)
  751. Case "index"
  752. If IsInt($vFrame) Then
  753. $sFrame &= ".frames[" & $vFrame & "]"
  754. Else
  755. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vFrame: " & $vFrame))
  756. Return 0
  757. EndIf
  758. Case "name", "id"
  759. If IsString($vFrame) Then
  760. $sFrame &= "." & $vFrame
  761. Else
  762. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(string) $vFrame: " & $vFrame))
  763. Return 0
  764. EndIf
  765. Case Else
  766. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id) $sMode: " & $sMode))
  767. Return 0
  768. EndSwitch
  770. $_FF_COM_TRACE = False
  771. _FFCmd("FFau3.WCD=window.content.wrappedJSObject." & $sFrame & ".document;")
  772. If Not @error Then
  773. $_FF_FRAME = $sFrame
  774. $_FF_COM_TRACE = $bTrc
  775. Return 1
  776. EndIf
  778. $_FF_COM_TRACE = $bTrc
  779. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "Frame not found $vFrame: " & $vFrame))
  780. Return 0
  781. EndFunc ;==>_FFFrameEnter
  783. ; #FUNCTION# ===================================================================
  784. ; Name ..........: _FFGetLength
  785. ; Description ...: Returns the length of the elements in $sMode
  786. ; Beschreibung ..: Gibt die Anzahl der angegebenen Elemente zurück.
  787. ; AutoIt Version : V3.3.0.0
  788. ; Syntax ........: _FFGetLength([$sMode = "links"])
  789. ; Parameter(s): .: $sMode - Optional: (Default = "links") :
  790. ; | links
  791. ; | images
  792. ; | forms
  793. ; | frames
  794. ; | anchors
  795. ; | tables
  796. ; | styleSheets
  797. ; | tabs
  798. ; | history
  799. ; | applets
  800. ; | embeds
  801. ; | plugins
  802. ; | tag
  803. ; Return Value ..: Success - Length of the elements
  804. ; Failure - 0
  805. ; @ERROR -
  806. ; Author(s) .....: Thorsten Willert
  807. ; Date ..........: Mon Mar 23 23:24:13 CET 2009 @975 /Internet Time/
  808. ; Link ..........:
  809. ; Related .......:
  810. ; Example .......: Yes
  811. ; ==============================================================================
  812. Func _FFGetLength($sMode = "links")
  813. Local Const $sFuncName = "_FFGetLength"
  815. $sMode = StringLower($sMode)
  817. Switch $sMode
  818. Case "links", "images", "forms", "anchors", "applets", "embeds"
  819. Return _FFCmd("." & $sMode & ".length")
  820. Case "tabs"
  821. Return _FFCmd("gBrowser.tabContainer.childNodes.length")
  822. Case "frames"
  823. Return _FFCmd("content.frames.length")
  824. Case "tables"
  825. Return _FFCmd(".getElementsByTagName('table').length")
  826. Case "history"
  827. Return _FFCmd("content.history.length")
  828. Case "stylesheets"
  829. Return _FFCmd(".styleSheets.length")
  830. Case "plugins"
  831. Return _FFCmd("navigator.plugins.length")
  832. Case Else
  833. Local $RetVal = _FFCmd(".getElementsByTagName('" & $sMode & "').length;")
  834. If Not @error And $RetVal <> "_FFCmd_Err" Then
  835. Return $RetVal
  836. Else
  837. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sMode: " & $sMode))
  838. Return 0
  839. EndIf
  840. EndSwitch
  842. Return 0
  844. EndFunc ;==>_FFGetLength
  846. ; #FUNCTION# ===================================================================
  847. ; Name ..........: _FFLinksGetAll
  848. ; Description ...: Returns an array with informations about all existing links.
  849. ; Beschreibung ..: Gibt ein Array mit Informationen über alle vorhandenen Links zurück.
  850. ; AutoIt Version : V3.3.0.0
  851. ; Syntax ........: _FFLinksGetAll()
  852. ; Parameter(s): .:
  853. ; Return Value ..: Success - 2 dim array with the link informations:
  854. ; | array[n][0] = href
  855. ; | array[n][1] = hash
  856. ; | array[n][2] = search
  857. ; | array[n][3] = name
  858. ; | array[n][4] = id
  859. ; | array[n][5] = text
  860. ; | array[n][6] = innerHTML
  861. ; | array[n][7] = target
  862. ; | array[n][8] = protocol
  863. ; | array[n][9] = port
  864. ; Failure - array[0][0] = 0
  865. ; @ERROR -
  866. ; Author(s) .....: Thorsten Willert
  867. ; Date ..........: Tue Sep 22 12:00:34 CEST 2009 @458 /Internet Time/
  868. ; Link ..........:
  869. ; Related .......:
  870. ; Example .......: Yes
  871. ; ==============================================================================
  872. Func _FFLinksGetAll()
  873. Local Const $sFuncName = "_FFLinksGetAll"
  875. Local $aInfo, $sInfo, $aRet[1][9], $aTmp
  876. Local $sDelimiter
  878. Local $bTrc = $_FF_COM_TRACE
  879. $_FF_COM_TRACE= False
  881. If _FFGetLength() > 0 Then
  882. $sDelimiter = "FF" & Random(1000, 9999, 1)
  883. $sInfo = _FFCmd('FFau3.GetLinks("' & $sDelimiter & '");')
  884. $aInfo = StringSplit($sInfo, @CRLF)
  885. If @error Then
  886. $_FF_COM_TRACE = $bTrc
  887. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch))
  888. Return $aRet[0][0] = 0
  889. EndIf
  890. ReDim $aRet[$aInfo[0] - 1][9]
  891. For $i = 1 To $aInfo[0] - 1
  892. $aTmp = StringSplit($aInfo[$i], $sDelimiter, 1)
  893. If @error Then
  894. SetError(__FFError($sFuncName, $_FF_ERROR_RetValue, "StringSplit: " & $aInfo[$i]))
  895. ExitLoop
  896. EndIf
  897. If UBound($aTmp) <> 11 Then
  898. $sDelimiter = "FF" & Random(1000, 9999, 1)
  899. $sInfo = _FFCmd("FFau3.GetLinkInfo(" & $i & " ,'top','" & $sDelimiter & "')")
  900. $aTmp = StringSplit($sInfo, $sDelimiter, 1)
  901. EndIf
  902. For $j = 1 To $aTmp[0] - 1
  903. $aRet[$i - 1][$j - 1] = $aTmp[$j]
  904. Next
  905. Next
  906. $_FF_COM_TRACE = $bTrc
  907. Return $aRet
  908. Else
  909. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch))
  910. $aRet[0][0] = 0
  911. EndIf
  913. $_FF_COM_TRACE = $bTrc
  914. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError))
  915. Return $aRet[0][0] = 0
  916. EndFunc ;==>_FFLinksGetAll
  918. ; #FUNCTION# ===================================================================
  919. ; Name ..........: _FFConnect
  920. ; Description ...: Connects to FireFox / MozRepl
  921. ; Beschreibung ..: Stellt eine Verbindung mit Firefox / MozRepl her.
  922. ; AutoIt Version : V3.3.0.0
  923. ; Syntax ........: _FFConnect([$IP = "127.0.0.1"[, $iPort = 4242[, $iTimeOut = 60000]]])
  924. ; Parameter(s): .: $IP - Optional: (Default = "127.0.0.1") :
  925. ; $iPort - Optional: (Default = 4242) :
  926. ; $iTimeOut - Optional: (Default = 60000) :
  927. ; Return Value ..: Success - 1 / $_FF_GLOBAL_SOCKET > -1
  928. ; @EXTENDED - 1 = Non Browser-window
  929. ; | 2 = Browser-window
  930. ; Failure - 0 / $_FF_GLOBAL_SOCKET = -1
  931. ; @ERROR -
  932. ; @EXTENDED - 0
  933. ; Author(s) .....: Thorsten Willert
  934. ; Date ..........: Tue Aug 18 09:36:57 CEST 2009
  935. ; Link ..........: http://msdn.microsoft.com/en-us/library/ms740668(VS.85).aspx
  936. ; Related .......: _FFDisConnect, _FFIsConnected, _FFStart
  937. ; Example .......: Yes
  938. ; ==============================================================================
  939. Func _FFConnect($IP = "127.0.0.1", $iPort = 4242, $iTimeOut = 60000)
  940. Local Const $sFuncName = "_FFConnect"
  941. Local $Extended = 2
  943. If $_FF_CON_DELAY > 100 Then Opt("TCPTimeout", $_FF_CON_DELAY)
  945. If $IP = Default Then $IP = "127.0.0.1"
  946. If $iPort = Default Then $iPort = 4242
  947. If $iTimeOut = Default Then $iTimeOut = 60000
  949. If Not __FFIsIP($IP) Then
  950. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, $IP))
  951. Return 0
  952. EndIf
  953. If Not __FFIsPort($iPort) Then
  954. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, $iPort))
  955. Return 0
  956. EndIf
  958. Local $iTCPErr
  959. Local $bTrace = $_FF_COM_TRACE
  960. ;$_FF_COM_TRACE = false
  962. ConsoleWrite("_FFConnect: OS:" & @TAB & @OSVersion & " " & @OSTYPE & " " & @OSBuild & " " & @OSServicePack & @CRLF)
  963. ConsoleWrite("_FFConnect: AutoIt:" & @TAB & @AutoItVersion & @CRLF)
  964. ConsoleWrite("_FFConnect: FF.au3:" & @TAB & $_FF_AU3VERSION & @CRLF)
  965. ConsoleWrite("_FFConnect: IP:" & @TAB & $IP & @CRLF)
  966. ConsoleWrite("_FFConnect: Port:" & @TAB & $iPort & @CRLF)
  968. TCPStartup()
  969. If Not @error Then
  970. ; delay for connection over network
  971. $_FF_CON_DELAY = Ping($IP)
  972. If @error Then
  973. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "Ping Error: " & @error))
  974. $_FF_CON_DELAY = $_FF_COM_DELAY_MAX
  975. EndIf
  976. $_FF_CON_DELAY += Round($_FF_CON_DELAY * 0.5)
  977. ConsoleWrite("_FFConnect: Delay: " & @TAB & $_FF_CON_DELAY & "ms" & @CRLF)
  979. ; trying to connect
  980. Local $iTimeOutTimer = TimerInit()
  981. While 1
  982. $_FF_GLOBAL_SOCKET = TCPConnect($IP, $iPort)
  983. $iTCPErr = @error
  984. Sleep(500)
  985. If __FFIsSocket($_FF_GLOBAL_SOCKET) Then ExitLoop
  986. If (TimerDiff($iTimeOutTimer) > $iTimeOut) Then ; Profil laden
  987. SetError(__FFError($sFuncName, $_FF_ERROR_Timeout, "TCPConnect Error: " & $iTCPErr))
  988. $_FF_GLOBAL_SOCKET = -1
  989. ExitLoop
  990. EndIf
  991. WEnd
  992. If $_FF_GLOBAL_SOCKET <> -1 Then
  993. ConsoleWrite("_FFConnect: Socket: " & @TAB & $_FF_GLOBAL_SOCKET & @CRLF)
  994. If __FFWaitForRepl(10000) Then
  995. _FFCmd(".browserDOMWindow")
  996. If @error Then
  997. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "Warning: Connected to a non browser-window"))
  998. $Extended = 1
  999. EndIf
  1000. ConsoleWrite("_FFConnect: Browser:" & @TAB & _FFCmd("navigator.userAgent") & @CRLF)
  1001. __FFSendJavaScripts()
  1002. $_FF_COM_TRACE = $bTrace
  1003. Return SetError(0, $Extended, 1)
  1004. EndIf
  1005. Else
  1006. TCPShutdown()
  1007. $_FF_COM_TRACE = $bTrace
  1008. Return SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "Timeout: Can not connect to FireFox/MozRepl on: " & $IP & ":" & $iPort), 0, 0)
  1009. EndIf
  1010. Else
  1011. $_FF_COM_TRACE = $bTrace
  1012. Return SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "TCPStartup Error: " & @error), 0, 0)
  1013. EndIf
  1015. $_FF_COM_TRACE = $bTrace
  1016. Return SetError($_FF_ERROR_GeneralError, $Extended, 0)
  1017. EndFunc ;==>_FFConnect
  1019. ; #FUNCTION# ===================================================================
  1020. ; Name ..........: _FFDisConnect
  1021. ; Description ...: Disconnects from FireFox
  1022. ; Beschreibung ..: Trennt die Verbindung mit FireFox / MozRepl
  1023. ; AutoIt Version : V3.3.0.0
  1024. ; Syntax ........: _FFDisConnect()
  1025. ; Parameter(s): .:
  1026. ; Return Value ..: Success - 1 / $_FF_GLOBAL_SOCKET = -1
  1027. ; Failure - 0
  1028. ; @ERROR -
  1029. ; Author(s) .....: Thorsten Willert
  1030. ; Date ..........: Wed Apr 15 09:54:09 CEST 2009
  1031. ; Link ..........: http://msdn.microsoft.com/en-us/library/ms740668(VS.85).aspx
  1032. ; Related .......: _FFConnect, _FFIsConnected, _FFStart
  1033. ; Example .......: Yes
  1034. ; ==============================================================================
  1035. Func _FFDisConnect()
  1036. Local Const $sFuncName = "_FFDisConnect"
  1038. Opt("TCPTimeout", 200)
  1040. If __FFIsSocket($_FF_GLOBAL_SOCKET) Then
  1041. __FFSend("repl.quit()")
  1042. TCPCloseSocket($_FF_GLOBAL_SOCKET)
  1043. If @error Then
  1044. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "TCP Error: " & @error))
  1045. Return 0
  1046. EndIf
  1047. TCPShutdown()
  1048. If Not @error Then
  1049. If $_FF_COM_TRACE Then ConsoleWrite("_FFDisConnect: disconnected" & @CRLF)
  1050. $_FF_FRAME = "top"
  1051. $_FF_GLOBAL_SOCKET = -1
  1052. Return 1
  1053. Else
  1054. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "TCP Error: " & @error))
  1055. Return 0
  1056. EndIf
  1057. Else
  1058. SetError(__FFError($sFuncName, $_FF_ERROR_SocketError, $_FF_GLOBAL_SOCKET))
  1059. Return 0
  1060. EndIf
  1062. EndFunc ;==>_FFDisConnect
  1064. ; #FUNCTION# ===================================================================
  1065. ; Name ..........: _FFIsConnected
  1066. ; Description ...: Connection status to FireFox / MozRepl
  1067. ; Beschreibung ..: Liefert den Status der Verbindung mit FireFox / MozRepl
  1068. ; AutoIt Version : V3.3.0.0
  1069. ; Syntax ........: _FFIsConnected()
  1070. ; Parameter(s): .:
  1071. ; Return Value ..: Success - 1
  1072. ; Failure - 0
  1073. ; @ERROR -
  1074. ; Author(s) .....: Thorsten Willert
  1075. ; Date ..........: Mon Sep 28 11:03:44 CEST 2009
  1076. ; Link ..........:
  1077. ; Related .......: _FFConnect, _FFDisConnect, _FFStart
  1078. ; Example .......: Yes
  1079. ; ==============================================================================
  1080. Func _FFIsConnected()
  1081. Local Const $sFuncName = "_FFIsConnected"
  1083. If __FFIsSocket($_FF_GLOBAL_SOCKET) And _FFCmd("FFau3 != null?1:0") = 1 Then Return 1
  1085. SetError(__FFError($sFuncName, $_FF_ERROR_SocketError, $_FF_GLOBAL_SOCKET))
  1086. Return 0
  1087. EndFunc ;==>_FFIsConnected
  1089. ; #FUNCTION# ===================================================================
  1090. ; Name ..........: _FFFormCheckBox
  1091. ; Description ...: Checks or unchecks a CheckBox in a form.
  1092. ; Beschreibung ..: Wählt eine Checkbox an oder ab.
  1093. ; AutoIt Version : V3.3.0.0
  1094. ; Syntax ........: _FFFormCheckBox($vBox[, $bChecked = True[, $iBoxNameIndex = 0[, $sBoxMode = "index"[, $vForm = 0[, $sFormMode = "index"[, $bCheckBox = True]]]]]])
  1095. ; Parameter(s): .: $vBox - Index name, id or value of the CheckBox
  1096. ; $bChecked - Optional: (Default = True) :
  1097. ; | True
  1098. ; | False
  1099. ; $iBoxNameIndex - Optional: (Default = 0) : Index if $sBoxMode = "name"
  1100. ; $sBoxMode - Optional: (Default = "index") :
  1101. ; | index
  1102. ; | name
  1103. ; | id
  1104. ; | value
  1105. ; $vForm - Optional: (Default = 0) : Index, name or id of the Form
  1106. ; $sFormMode - Optional: (Default = "index") :
  1107. ; | index
  1108. ; | name
  1109. ; | id
  1110. ; | action
  1111. ; | title
  1112. ; $bCheckBox - Optional: (Default = True) : Internal use if the function should work for RadioButtons
  1113. ; Return Value ..: Success - 1
  1114. ; Failure - 0
  1115. ; @ERROR -
  1116. ; Author(s) .....: Thorsten Willert
  1117. ; Date ..........: Fri Nov 06 18:10:36 CET 2009
  1118. ; Link ..........:
  1119. ; Related .......: _FFFormOptionSelect, _FFFormRadioButton, _FFFormReset, _FFFormSubmit
  1120. ; Example .......: Yes
  1121. ; ==============================================================================
  1122. Func _FFFormCheckBox($vBox, $bChecked = True, $iBoxNameIndex = 0, $sBoxMode = "index", $vForm = 0, $sFormMode = "index", $bCheckBox = True)
  1123. Local Const $sFuncName = "_FFFormCheckBox"
  1125. ; Default parameters
  1126. ;If $bChecked = Default Then $bChecked = true
  1127. If $iBoxNameIndex = Default Then $iBoxNameIndex = 0
  1128. If $sBoxMode = Default Then $sBoxMode = "index"
  1129. If $vForm = Default Then $vForm = 0
  1130. If $sFormMode = Default Then $sFormMode = "index"
  1132. Local $sType
  1133. If $bCheckBox Then
  1134. $sType = "checkbox"
  1135. Else
  1136. $sType = "radio"
  1137. EndIf
  1139. $sBoxMode = StringLower($sBoxMode)
  1140. $sFormMode = StringLower($sFormMode)
  1142. If Not IsBool($bChecked) Then
  1143. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(bool) $bChecked: " & $bChecked))
  1144. Return 0
  1145. EndIf
  1147. Local $sCommand = "checked=" & __FFB2S($bChecked)
  1148. Local $sForm, $sCheckBox
  1150. Switch $sFormMode
  1151. Case "index"
  1152. If Not IsInt($vForm) Then
  1153. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vForm: " & $vForm))
  1154. Return 0
  1155. EndIf
  1156. $sForm = $vForm + 1
  1157. Case "id", "name", "action", "title"
  1158. $sForm = StringFormat("@%s='%s'", $sFormMode, $vForm)
  1159. Case Else
  1160. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id) $sFormMode: " & $sFormMode))
  1161. Return 0
  1162. EndSwitch
  1164. Switch $sBoxMode
  1165. Case "index"
  1166. If Not IsInt($vBox) Then
  1167. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vBox: " & $vBox))
  1168. Return 0
  1169. EndIf
  1170. $sCheckBox = "position()=" & $vBox + 1
  1171. Case "name"
  1172. If Not IsInt($iBoxNameIndex) Then
  1173. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iBoxNameIndex: " & $iBoxNameIndex))
  1174. Return 0
  1175. EndIf
  1176. $sCheckBox = StringFormat("@name='%s' and position()=%i", $vBox, $iBoxNameIndex + 1)
  1177. Case "id", "value"
  1178. $sCheckBox = StringFormat("@%s='%s'", $sBoxMode, $vBox)
  1179. Case Else
  1180. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id|value) $sBoxMode: " & $sBoxMode))
  1181. Return 0
  1182. EndSwitch
  1184. _FFXPath(StringFormat("//form[%s]//input[@type='%s' and %s]", $sForm, $sType, $sCheckBox), $sCommand, 9)
  1185. If Not @error Then
  1186. Return 1
  1187. Else
  1188. SetError(@error)
  1189. Return 0
  1190. EndIf
  1192. EndFunc ;==>_FFFormCheckBox
  1194. ; #FUNCTION# ===================================================================
  1195. ; Name ..........: _FFFormGetElementsLength
  1196. ; Description ...: Length of the form elements
  1197. ; Beschreibung ..: Gibt die Anzahl der Elemente eines Formulars zurück.
  1198. ; AutoIt Version : V3.3.0.0
  1199. ; Syntax ........: _FFFormGetElementsLength([$vForm = 0[, $sMode = "index"]])
  1200. ; Parameter(s): .: $vForm - Optional: (Default = 0) : Index (0-n), name or id
  1201. ; $sMode - Optional: (Default = "index") :
  1202. ; | index
  1203. ; | name
  1204. ; | id
  1205. ; | action
  1206. ; | title
  1207. ; Return Value ..: Success - >0
  1208. ; Failure - 0
  1209. ; @ERROR -
  1210. ; Author(s) .....: Thorsten Willert
  1211. ; Date ..........: Fri Nov 06 22:04:28 CET 2009
  1212. ; Link ..........:
  1213. ; Related .......: _FFGetLength
  1214. ; Example .......: Yes
  1215. ; ==============================================================================
  1216. Func _FFFormGetElementsLength($vForm = 0, $sMode = "index")
  1217. Local Const $sFuncName = "_FFFormGetElementsLength"
  1219. If $vForm = Default Then $vForm = 0
  1220. If $sMode = Default Then $sMode = "index"
  1221. $sMode = StringLower($sMode)
  1222. Local $sForm
  1224. Switch $sMode
  1225. Case "index"
  1226. If IsInt($vForm) Then
  1227. $sForm = $vForm + 1
  1228. Else
  1229. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vForm: " & $vForm))
  1230. Return 0
  1231. EndIf
  1232. Case "name", "id", "action", "title"
  1233. $sForm = "@" & $sMode & "='" & $vForm & "'"
  1234. Case Else
  1235. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id|action|title) $sMode: " & $sMode))
  1236. Return 0
  1237. EndSwitch
  1239. Local $bTrace = $_FF_COM_TRACE
  1240. $_FF_COM_TRACE = False
  1242. _FFXPath(StringFormat("//form[%s]", $sForm), "", 9)
  1243. Local $sRet = _FFCmd("FFau3.xpath.elements.length")
  1244. If Not @error Then
  1245. $_FF_COM_TRACE = $bTrace
  1246. Return $sRet
  1247. Else
  1248. $_FF_COM_TRACE = $bTrace
  1249. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vForm: " & $vForm))
  1250. Return 0
  1251. EndIf
  1252. EndFunc ;==>_FFFormGetElementsLength
  1254. ; #FUNCTION# ===================================================================
  1255. ; Name ..........: _FFFormOptionSelect
  1256. ; Description ...: Selects an element of an OptionSelect.
  1257. ; Beschreibung ..: Wählt ein Element eines OptionSelect aus.
  1258. ; AutoIt Version : V3.3.0.0
  1259. ; Syntax ........: _FFFormOptionSelect([$vElement = 0[, $sElementMode = "index"[, $vOption = 0[, $sOptionMode = "index"[, $vForm = 0[, $sFormMode = "index"]]]]]])
  1260. ; Parameter(s): .: $vElement - Optional: (Default = 0) : index (0-n), name, id
  1261. ; $sElementMode - Optional: (Default = "index") :
  1262. ; | index
  1263. ; | name
  1264. ; | id
  1265. ; $vOption - Optional: (Default = 0) : index (0-n), name, id, text, value
  1266. ; $sOptionMode - Optional: (Default = "index") :
  1267. ; | index
  1268. ; | name
  1269. ; | id
  1270. ; | text
  1271. ; | value
  1272. ; $vForm - Optional: (Default = 0) : index (0-n), name, id
  1273. ; $sFormMode - Optional: (Default = "index") :
  1274. ; | index
  1275. ; | name
  1276. ; | id
  1277. ; | action
  1278. ; | title
  1279. ; Return Value ..: Success - 1
  1280. ; Failure - 0 and sets
  1281. ; @ERROR -
  1282. ; Author(s) .....: Thorsten Willert
  1283. ; Date ..........: Fri Nov 06 18:12:43 CET 2009
  1284. ; Link ..........:
  1285. ; Related .......: _FFFormCheckBox, _FFFormRadioButton, _FFFormReset, _FFFormSubmit
  1286. ; Example .......: Yes
  1287. ; ==============================================================================
  1288. Func _FFFormOptionSelect($vElement = 0, $sElementMode = "index", $vOption = 0, $sOptionMode = "index", $vForm = 0, $sFormMode = "index")
  1289. Local Const $sFuncName = "_FFFormOptionSelect"
  1291. ; Default parameters
  1292. If $vElement = Default Then $vElement = 0
  1293. If $sElementMode = Default Then $sElementMode = "index"
  1294. If $vOption = Default Then $vOption = 0
  1295. If $sOptionMode = Default Then $sOptionMode = "index"
  1296. If $vForm = Default Then $vForm = 0
  1297. If $sFormMode = Default Then $sFormMode = "index"
  1299. Local $sForm, $sElement, $sOption
  1300. $sElementMode = StringLower($sElementMode)
  1301. $sOptionMode = StringLower($sOptionMode)
  1302. $sFormMode = StringLower($sFormMode)
  1304. Switch $sFormMode
  1305. Case "index"
  1306. If Not IsInt($vForm) Then
  1307. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vForm: " & $vForm))
  1308. Return 0
  1309. EndIf
  1310. $sForm = $vForm + 1
  1311. Case "id", "name", "action", "title"
  1312. $sForm = StringFormat("@%s='%s'", $sFormMode, $vForm)
  1313. Case Else
  1314. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id) $sFormMode: " & $sFormMode))
  1315. Return 0
  1316. EndSwitch
  1318. Switch $sElementMode
  1319. Case "index"
  1320. If Not IsInt($vElement) Then
  1321. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vElement: " & $vElement))
  1322. Return 0
  1323. EndIf
  1324. $sElement = "position()=" & $vElement + 1
  1325. Case "name"
  1326. ContinueCase
  1327. Case "id"
  1328. $sElement = StringFormat("@%s='%s'", $sElementMode, $vElement)
  1329. Case Else
  1330. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id) $sElementMode: " & $sElementMode))
  1331. Return 0
  1332. EndSwitch
  1334. Switch $sOptionMode
  1335. Case "index"
  1336. If Not IsInt($vOption) Then
  1337. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vOption: " & $vOption))
  1338. Return 0
  1339. EndIf
  1340. $sOption = "position()=" & $vOption + 1
  1341. Case "text"
  1342. $sOption = StringFormat("contains(.,'%s')", $vOption)
  1343. Case "name", "id", "value"
  1344. $sOption = StringFormat("@%s='%s'", $sOptionMode, $vOption)
  1345. Case Else
  1346. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|text|name|id|value) $sOptionMode: " & $sOptionMode))
  1347. Return 0
  1348. EndSwitch
  1350. Local $sCommand = StringFormat("//form[%s]//select[%s]//option[%s]", $sForm, $sElement, $sOption)
  1351. _FFXPath($sCommand, "selected=true", 9)
  1352. If Not @error Then
  1353. Return 1
  1354. Else
  1355. SetError(@error)
  1356. Return 0
  1357. EndIf
  1359. EndFunc ;==>_FFFormOptionSelect
  1361. ; #FUNCTION# ===================================================================
  1362. ; Name ..........: _FFFormRadioButton
  1363. ; Description ...: Selects a RadioButton in a form
  1364. ; Beschreibung ..: Wählt einen RadioButton aus.
  1365. ; AutoIt Version : V3.3.0.0
  1366. ; Syntax ........: _FFFormRadioButton($vRadioButton[, $iRadioButtonIndex = 0[, $sRadioButtonMode = "index"[, $vForm = 0[, $sFormMode = "index"]]]])
  1367. ; Parameter(s): .: $vRadioButton - name, id or value
  1368. ; $iRadioButtonIndex - Optional: (Default = 0) : RadioButton index (0-n)
  1369. ; $sRadioButtonMode - Optional: (Default = "index") : RadioButton
  1370. ; | index
  1371. ; | name
  1372. ; | id
  1373. ; | value
  1374. ; $vForm - Optional: (Default = 0) : Form index or name
  1375. ; $sFormMode - Optional: (Default = "index") :
  1376. ; | index
  1377. ; | name
  1378. ; Return Value ..: Success - RadioButton state 1 or 0
  1379. ; Failure - -1
  1380. ; Author(s) .....: Thorsten Willert
  1381. ; Date ..........: Wed Mar 25 09:22:11 CET 2009 @390 /Internet Time/
  1382. ; Link ..........:
  1383. ; Related .......: _FFFormCheckBox, _FFFormOptionSelect, _FFFormReset, _FFFormSubmit
  1384. ; Example .......: Yes
  1385. ; ==============================================================================
  1386. Func _FFFormRadioButton($vRadioButton, $iRadioButtonIndex = 0, $sRadioButtonMode = "index", $vForm = 0, $sFormMode = "index")
  1387. ;Local Const $sFuncName = "_FFFormRadioButton"
  1388. Local $RetVal = _FFFormCheckBox($vRadioButton, True, $iRadioButtonIndex, $sRadioButtonMode, $vForm, $sFormMode, False)
  1389. SetError(@error)
  1390. Return $RetVal
  1391. EndFunc ;==>_FFFormRadioButton
  1393. ; #FUNCTION# ===================================================================
  1394. ; Name ..........: _FFFormReset
  1395. ; Description ...: Resets a form
  1396. ; Beschreibung ..: Setzt ein Formular zurück.
  1397. ; AutoIt Version : V3.3.0.0
  1398. ; Syntax ........: _FFFormReset([$vForm = 0[, $sMode = "index"]])
  1399. ; Parameter(s): .: $vForm - Optional: (Default = 0) : Index (0-n), name, id
  1400. ; $sMode - Optional: (Default = "index") :
  1401. ; | Index
  1402. ; | name
  1403. ; | id
  1404. ; Return Value ..: Success - 1
  1405. ; Failure - 0
  1406. ; @ERROR -
  1407. ; Author(s) .....: Thorsten Willert
  1408. ; Date ..........: Fri Sep 18 06:01:42 CEST 2009 @209 /Internet Time/
  1409. ; Link ..........:
  1410. ; Related .......: _FFFormCheckBox, _FFFormOptionSelect, _FFFormSubmit, _FFFormRadioButton
  1411. ; Example .......: Yes
  1412. ; ==============================================================================
  1413. Func _FFFormReset($vForm = 0, $sMode = "index")
  1414. Local Const $sFuncName = "_FFFormReset"
  1416. Local $sCommand
  1418. Switch StringLower($sMode)
  1419. Case "index"
  1420. If Not IsInt($vForm) Then
  1421. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vForm: " & $vForm))
  1422. Return 0
  1423. EndIf
  1424. $sCommand = '.forms[' & $vForm & ']'
  1425. Case "id"
  1426. $sCommand = '.getElementById("' & $vForm & '")'
  1427. Case "name"
  1428. $sCommand = '.getElementsByName("' & $vForm & '")[0]'
  1429. Case Else
  1430. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|id|name) $sMode: " & $sMode))
  1431. Return 0
  1432. EndSwitch
  1434. Local $sRetVal = _FFCmd($sCommand & ".reset();")
  1435. If Not @error And $sRetVal <> "_FFCmd_Err" Then Return 1
  1437. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vForm: " & $vForm))
  1438. Return 0
  1440. EndFunc ;==>_FFFormReset
  1442. ; #FUNCTION# ===================================================================
  1443. ; Name ..........: _FFFormSubmit
  1444. ; Description ...: Submits a form
  1445. ; Beschreibung ..: Sendet ein Formular ab.
  1446. ; AutoIt Version : V3.3.0.0
  1447. ; Syntax ........: _FFFormSubmit([$vForm = 0[, $sMode = "index"[, $sSubmitMode = "submit"[, $bLoadWait = True]]]])
  1448. ; Parameter(s): .: $vForm - Optional: (Default = 0) : Index-number, name or id
  1449. ; $sSubmitMode - Optional: (Default = "auto") :
  1450. ; | auto
  1451. ; | click
  1452. ; | submit
  1453. ; | keydown
  1454. ; | keypress
  1455. ; $bLoadWait - Optional: (Default = true) :
  1456. ; | True
  1457. ; | False
  1458. ; Return Value ..: Success - 1
  1459. ; Failure - 0
  1460. ; @ERROR -
  1461. ; Author(s) .....: Thorsten Willert
  1462. ; Date ..........: Tue Apr 07 17:56:46 CEST 2009 @706 /Internet Time/
  1463. ; Link ..........:
  1464. ; Related .......: _FFFormCheckBox, _FFFormOptionSelect, _FFFormReset, _FFFormRadioButton
  1465. ; Example .......: Yes
  1466. ; ==============================================================================
  1467. Func _FFFormSubmit($vForm = 0, $sMode = "index", $sSubmitMode = "submit", $bLoadWait = True)
  1468. Local Const $sFuncName = "_FFFormSubmit"
  1470. Local $sRetVal
  1471. Local $iSubmit = -1, $iPassword = -1
  1472. Local $bTrace
  1473. $sMode = StringLower($sMode)
  1475. If $sMode = "index" Then
  1476. If IsInt($vForm) Then
  1477. $vForm = 'forms[' & $vForm & ']'
  1478. Else
  1479. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vForm: " & $vForm))
  1480. Return 0
  1481. EndIf
  1482. ElseIf $sMode = "id" Then
  1483. $vForm = "getElementById('" & $vForm & "')"
  1484. ElseIf $sMode = "name" Then
  1485. $vForm = "getElementsByName('" & $vForm & "')[0]"
  1486. Else
  1487. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|id|name) $sMode: " & $sMode))
  1488. Return 0
  1489. EndIf
  1491. Local $iLength = _FFCmd(StringFormat('.%s.elements.length;', $vForm))
  1492. If $iLength = "_FFCmd_Err" Then
  1493. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "No Elements found in form: " & $vForm))
  1494. Return 0
  1495. EndIf
  1497. $bTrace = $_FF_COM_TRACE
  1498. $_FF_COM_TRACE = False
  1499. If $iLength > 0 And ($sSubmitMode = "keypress" Or $sSubmitMode = "keydown" Or $sSubmitMode = "click" Or $sSubmitMode = "auto") Then
  1500. For $i = 0 To $iLength - 1
  1501. $sRetVal = _FFCmd(StringFormat('.%s.elements[%i].type;', $vForm, $i))
  1502. If @error Then Return 0
  1504. If $sRetVal = "submit" Then $iSubmit = $i
  1505. If $sRetVal = "password" Then $iPassword = $i
  1506. If $iSubmit > -1 And $iPassword > -1 Then ExitLoop
  1507. Next
  1508. EndIf
  1509. $_FF_COM_TRACE = $bTrace
  1511. Switch StringLower($sSubmitMode)
  1512. Case "auto"
  1513. ContinueCase
  1514. Case "keypress"
  1515. ; fire "enter" with keypress on the password element
  1516. _FFDispatchEvent(StringFormat('.%s.elements[%i]', $vForm, $iPassword), "keypress", 13)
  1517. If Not @error Then
  1518. If $bLoadWait Then
  1519. If Not _FFLoadWait() Then Return 0
  1520. EndIf
  1521. Return 1
  1522. Else
  1523. If $sSubmitMode = "auto" Then ContinueCase
  1524. EndIf
  1525. Case "click"
  1526. ; clicks on the submit element
  1527. $sRetVal = _FFCmd(StringFormat('.%s.elements[%i].click();', $vForm, $iSubmit), 3000)
  1528. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  1529. If $bLoadWait Then
  1530. If Not _FFLoadWait() And $sSubmitMode = "auto" Then ContinueCase
  1531. EndIf
  1532. Return 1
  1533. Else
  1534. If $sSubmitMode = "auto" Then ContinueCase
  1535. EndIf
  1536. Case "submit"
  1537. ; use form.submit()
  1538. $sRetVal = _FFCmd(StringFormat('.%s.submit();', $vForm))
  1539. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  1540. If $bLoadWait Then
  1541. If Not _FFLoadWait() And $sSubmitMode = "auto" Then ContinueCase
  1542. EndIf
  1543. Return 1
  1544. Else
  1545. If $sSubmitMode = "auto" Then ContinueCase
  1546. EndIf
  1547. Case "keydown"
  1548. ; fire "enter" with keydown on the password element
  1549. _FFDispatchEvent(StringFormat(".%s.elements[%i]", $vForm, $iPassword), "keydown", 13)
  1550. If Not @error Then
  1551. If $bLoadWait Then
  1552. If Not _FFLoadWait() And $sSubmitMode = "auto" Then ContinueCase
  1553. EndIf
  1554. Return 1
  1555. EndIf
  1556. Case Else
  1557. Return 0
  1558. EndSwitch
  1560. Return 0
  1562. EndFunc ;==>_FFFormSubmit
  1564. ; #FUNCTION# ===================================================================
  1565. ; Name ..........: _FFGetValue
  1566. ; Description ...: Gets an value of an element
  1567. ; Beschreibung ..: Liefert das Value eines Elements
  1568. ; AutoIt Version : V3.3.0.0
  1569. ; Syntax ........: _FFGetValue($sElement[, $sMode = "elements"[, $iIndex = 0[, $iFilter = 0]]])
  1570. ; Parameter(s): .: $sElement -
  1571. ; $sMode - Optional: (Default = "elements") :
  1572. ; | elements: element or object from _FFXpath or _FFObj*
  1573. ; | id
  1574. ; | name
  1575. ; | class
  1576. ; | tag
  1577. ; $iIndex - Optional: (Default = 0) : index if $sMode = class, name, tag
  1578. ; $iFilter - Optional: (Default = 0) : you can add them:
  1579. ; | 0 = No filter
  1580. ; | 1 = Remove all non ASCII
  1581. ; | 2 = Remove all double withespaces
  1582. ; | 4 = Remove all double linefeeds
  1583. ; | 8 = Remove all HTML-tags
  1584. ; | 16 = simple html-tag / entities convertor
  1585. ; Return Value ..: Success - 1
  1586. ; Failure - 0
  1587. ; @ERROR -
  1588. ; Author(s) .....: Thorsten Willert
  1589. ; Date ..........: Wed Sep 23 22:55:36 CEST 2009
  1590. ; Link ..........:
  1591. ; Related .......: _FFSetValue, _FFXPath
  1592. ; Example .......: Yes
  1593. ; ==============================================================================
  1594. Func _FFGetValue($sElement, $sMode = "elements", $iIndex = 0, $iFilter = 0)
  1595. Local Const $sFuncName = "_FFGetValue"
  1597. If Not IsInt($iIndex) Then
  1598. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iIndex: " & $iIndex))
  1599. Return 0
  1600. EndIf
  1601. If Not IsInt($iFilter) Then
  1602. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iFilter: " & $iFilter))
  1603. Return 0
  1604. EndIf
  1606. Switch StringLower($sMode)
  1607. Case "elements"
  1608. If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)
  1609. Case "id"
  1610. $sElement = ".getElementById('" & $sElement & "')"
  1611. Case "name"
  1612. $sElement = ".getElementsByName('" & $sElement & "')[" & $iIndex & "]"
  1613. Case "class"
  1614. $sElement = ".getElementsByClassName('" & $sElement & "')[" & $iIndex & "]"
  1615. Case "tag"
  1616. $sElement = ".getElementsByTagName('" & $sElement & "')[" & $iIndex & "]"
  1617. Case Else
  1618. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(elements|id|name|class|tag) $sMode: " & $sMode))
  1619. Return 0
  1620. EndSwitch
  1622. If StringLeft($sElement, 1) = "." Then $sElement = "window.content.document" & $sElement
  1624. Local $sRetVal = _FFCmd($sElement & ".value")
  1625. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  1626. If $iFilter > 0 Then __FFFilterString($sRetVal, $iFilter)
  1627. Return $sRetVal
  1628. Else
  1629. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement: " & $sElement))
  1630. Return 0
  1631. EndIf
  1633. EndFunc
  1635. ; #FUNCTION# ===================================================================
  1636. ; Name ..........: _FFDispatchEvent
  1637. ; Description ...: Simulates a HTML event
  1638. ; Beschreibung ..: Simuliert ein HTML-Ereignis an einem Element.
  1639. ; AutoIt Version : V3.3.0.0
  1640. ; Syntax ........: _FFDispatchEvent($sElement[, $sEventType = "change"[, $iKeyCode = 0]])
  1641. ; Parameter(s): .: $sElement - Element where the event is fired (or object from _FFXpath/_FFObj*)
  1642. ; $sEventType - Optional: (Default = "change") :
  1643. ; | change
  1644. ; | select
  1645. ; | focus
  1646. ; | blur
  1647. ; | resize
  1648. ; | keydown
  1649. ; | keypress
  1650. ; | keyup
  1651. ; $iKeyCode - ASCII-KeyCode (decimal)
  1652. ; Return Value ..: Success - 1
  1653. ; Failure - 0
  1654. ; @ERROR -
  1655. ; Author(s) .....: Thorsten Willert
  1656. ; Date ..........: Fri Nov 06 19:35:04 CET 2009
  1657. ; Link ..........: http://www.w3.org/TR/DOM-Level-2-Events/events.html
  1658. ; Related .......:
  1659. ; Example .......: Yes
  1660. ; ==============================================================================
  1661. Func _FFDispatchEvent($sElement, $sEventType = "change", $iKeyCode = 13)
  1662. Local Const $sFuncName = "_FFDispatchEvent"
  1664. If $iKeyCode < 0 Or $iKeyCode > 255 Then
  1665. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(int) $iKeyCode: 0-255" & $iKeyCode))
  1666. Return 0
  1667. EndIf
  1669. Local $sType
  1671. $sEventType = StringLower($sEventType)
  1672. If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)
  1674. Switch $sEventType
  1675. Case "change", "select", "focus", "blur", "resize"
  1676. $sType = "Event"
  1677. Case "keydown", "keypress", "keyup"
  1678. $sType = "KeyboardEvent"
  1679. Case Else
  1680. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(change|select|focus|blur|resizekeydown|keypress|keyup) $sEventType: " & $sEventType))
  1681. Return 0
  1682. EndSwitch
  1684. If StringLeft($sElement, 1) = "." Then $sElement = "window.content.document" & $sElement
  1686. Local $RetVal = _FFCmd(StringFormat("FFau3.simulateEvent(%s,'%s','%s',%s);",$sElement,$sType,$sEventType, $iKeyCode ))
  1687. If Not @error And $RetVal <> "_FFCmd_Err" Then
  1688. Return $RetVal
  1689. Else
  1690. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sElement: " & $sElement))
  1691. Return 0
  1692. EndIf
  1694. Return 0
  1695. EndFunc ;==>_FFDispatchEvent
  1697. ; #FUNCTION# ===================================================================
  1698. ; Name ..........: _FFLoadWait
  1699. ; Description ...: Wait while the page is loading.
  1700. ; Beschreibung ..: Wartet bis die Seite geladen ist.
  1701. ; AutoIt Version : V3.3.0.0
  1702. ; Syntax ........: _FFLoadWait([$iTimeOut = $_FF_LOADWAIT_TIMEOUT])
  1703. ; Parameter(s): .: $iTimeOut - Optional: (Default = $_FF_LOADWAIT_TIMEOUT) : Timeout while waiting in ms
  1704. ; Return Value ..: Success - 1
  1705. ; @EXTENDED - loading time in ms
  1706. ; Failure - 0
  1707. ; @ERROR -
  1708. ; @EXTENDED - loading time in ms
  1709. ; Author(s) .....: Thorsten Willert
  1710. ; Date ..........: Thu Nov 05 18:27:55 CET 2009
  1711. ; Link ..........: https://developer.mozilla.org/en/nsIWebProgress
  1712. ; Related .......: _FFDialogWait
  1713. ; Example .......: Yes
  1714. ; ==============================================================================
  1715. Func _FFLoadWait($iTimeOut = $_FF_LOADWAIT_TIMEOUT)
  1716. Local Const $sFuncName = "_FFLoadWait"
  1718. Local $iLoadingTime = 0
  1719. If $iTimeOut < 1000 Then $iTimeOut = 1000
  1721. Local $bTrace = $_FF_COM_TRACE
  1722. $_FF_COM_TRACE = False
  1724. If Not $_FF_COM_TRACE Then ConsoleWrite("_FFLoadWait: ")
  1726. Local $TimeOutTimer = TimerInit()
  1728. While TimerDiff($TimeOutTimer) < $iTimeOut
  1729. If Not $_FF_COM_TRACE Then ConsoleWrite(".")
  1730. If Not _FFCmd("window.getBrowser().webProgress.isLoadingDocument") And _
  1731. _FFCmd("window.getBrowser().webProgress.busyFlags") = 0 Then
  1732. $iLoadingTime = Round(TimerDiff($TimeOutTimer))
  1733. ConsoleWrite(" loaded in " & $iLoadingTime & "ms" & @CRLF)
  1734. Sleep($_FF_CON_DELAY + 25)
  1735. $_FF_COM_TRACE = $bTrace
  1736. Return SetError(0, $iLoadingTime - $_FF_CON_DELAY - 25, 1)
  1737. EndIf
  1738. Sleep(250)
  1739. WEnd
  1740. $_FF_COM_TRACE = $bTrace
  1741. ConsoleWrite(@CRLF & @CRLF)
  1744. Return SetError(__FFError($sFuncName, $_FF_ERROR_Timeout, "Can not check site status."), $iLoadingTime, 0)
  1746. EndFunc ;==>_FFLoadWait
  1748. ; #FUNCTION# ===================================================================
  1749. ; Name ..........: _FFGetObjectInfo
  1750. ; Description ...: Returns a 2-dimensional array with every information of an object.
  1751. ; Beschreibung ..: Liefert ein 2-dimensionales Array mit allen Informationen über ein Objekt.
  1752. ; AutoIt Version : V3.3.0.0
  1753. ; Syntax ........: _FFGetObjectInfo([$sObject = "window"])
  1754. ; Parameter(s): .: $sObject - Optional: (Default = "window") :
  1755. ; Return Value ..: Success - Array with object information
  1756. ; Failure -
  1757. ; @ERROR -
  1758. ; Author(s) .....: Thorsten Willert
  1759. ; Date ..........: Mon Mar 23 23:05:55 CET 2009 @962 /Internet Time/
  1760. ; Link ..........:
  1761. ; Related .......:
  1762. ; Example .......: Yes
  1763. ; ==============================================================================
  1764. Func _FFGetObjectInfo($sObject = "window")
  1765. Local Const $sFuncName = "_FFGetObjectInfo"
  1767. Local $aRet[1][2], $aTmp
  1768. If StringLeft($sObject, 1) = "." Then $sObject = "window.content.document" & $sObject
  1770. Local $aInfo = StringSplit(_FFCmd("repl.inspect(" & $sObject & ");"), @CRLF, 2)
  1771. If Not @error And IsArray($aInfo) And $aInfo <> "_FFCmd_Err" Then
  1772. ReDim $aRet[UBound($aInfo)][2]
  1773. For $i = 0 To UBound($aInfo) - 1
  1774. $aTmp = StringRegExp($aInfo[$i], "<object>.(.*?)=(.*?)$", 3)
  1775. If Not @error And IsArray($aTmp) Then
  1776. $aRet[$i][0] = $aTmp[0]
  1777. $aRet[$i][1] = $aTmp[1]
  1778. EndIf
  1779. Next
  1780. Return $aRet
  1781. Else
  1782. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, $sObject))
  1783. Return $aRet[0][0] = 0
  1784. EndIf
  1785. EndFunc ;==>_FFGetObjectInfo
  1787. ; #FUNCTION# ===================================================================
  1788. ; Name ..........: _FFGetPosition
  1789. ; Description ...: Returns an array with the position of an element and/or the position and size of the FireFox content area, relative to the client area of the window
  1790. ; Beschreibung ..: Liefert ein Array mit der Position eines Elementes und/oder die Position und Größe des FireFox-Inhalts, relativ zur Client Area des Fensters
  1791. ; AutoIt Version : V3.3.0.0
  1792. ; Syntax ........: _FFGetPosition([$sElement = ""])
  1793. ; Parameter(s): .: $sElement - Optional: (Default = "") : Element or FFau3 - object.
  1794. ; An empty string returns only the position and size of the content area
  1795. ; Return Value ..: Success - array with the position and sizes
  1796. ; | [0] = X position of the element (relative to the document)
  1797. ; | [1] = Y position of the element (relative to the document)
  1798. ; | [2] = X position of the content area (relative to the window client)
  1799. ; | [3] = Y position of the content area (relative to the window client)
  1800. ; | [4] = width of the content area
  1801. ; | [6] = height of the content area
  1802. ; Failure -
  1803. ; @ERROR -
  1804. ; Author(s) .....: Thorsten Willert
  1805. ; Date ..........: Wed Nov 04 18:17:25 CET 2009
  1806. ; Link ..........:
  1807. ; Related .......:
  1808. ; Example .......: Yes
  1809. ; ==============================================================================
  1810. Func _FFGetPosition($sElement = "")
  1811. Local Const $sFuncName = "_FFGetPosition"
  1813. Local $aElement[2] = [-1,-1]
  1815. If $sElement <> "" Then
  1816. If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)
  1817. If StringLeft($sElement, 1) = "." Then $sElement = "window.content.document" & $sElement
  1819. Local $sPos = _FFCmd("FFau3.findPos(" & $sElement & ")")
  1820. If $sPos <> "_FFCmd_Err" Then
  1821. $aElement = StringSplit($sPos,' ',2)
  1822. Else
  1823. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement not found: " & $sElement))
  1824. Return
  1825. EndIf
  1826. EndIf
  1828. Local $aContent = ControlGetPos(_FFCmd(".title"), "", "[CLASS:MozillaContentWindowClass]")
  1829. If @error Then
  1830. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "Cant find 'MozillaContentWindowClass'-control"))
  1831. Return
  1832. EndIf
  1834. Local $aRet[6] = [$aElement[0] , $aElement[1], $aContent[0], $aContent[1], $aContent[2], $aContent[3]]
  1836. Return $aRet
  1837. EndFunc ;==> _FF_GetPosition
  1839. ; #FUNCTION# ===================================================================
  1840. ; Name ..........: _FFOpenURL
  1841. ; Description ...: Opens a new URL
  1842. ; Beschreibung ..: Öffnet eine URL.
  1843. ; AutoIt Version : V3.3.0.0
  1844. ; Syntax ........: _FFOpenURL($sURL[, $bWait = True])
  1845. ; Parameter(s): .: $sURL - URL or chrome (shortcut)
  1846. ; $bLoadWait - Optional: (Default = True) :
  1847. ; Return Value ..: Success - 1
  1848. ; Failure - 0
  1849. ; @ERROR -
  1850. ; Author(s) .....: Thorsten Willert
  1851. ; Date ..........: Mon Mar 23 23:05:21 CET 2009 @962 /Internet Time/
  1852. ; Link ..........:
  1853. ; Related .......: _FFTabAdd
  1854. ; Example .......: Yes
  1855. ; ==============================================================================
  1856. Func _FFOpenURL($sURL, $bLoadWait = True)
  1857. Local Const $sFuncName = "_FFOpenURL"
  1859. If Not __FFCheckURL($sURL) Then
  1860. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(URL) $sURL: " & $sURL))
  1861. Return 0
  1862. EndIf
  1864. If StringLeft($sURL, 7) = "chrome:" Then $sURL = __FFChromeSelect(StringMid($sURL, 8))
  1866. ConsoleWrite("_FFOpenURL: " & $sURL & @CRLF)
  1868. Local $sRetVal = _FFCmd(StringFormat(".location.href='%s';", $sURL))
  1869. If Not @error And $sRetVal = $sURL Then
  1870. If $bLoadWait Then Return _FFLoadWait()
  1871. Return 1
  1872. Else
  1873. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, $sURL))
  1874. Return 0
  1875. EndIf
  1877. EndFunc ;==>_FFOpenURL
  1879. ; #FUNCTION# ===================================================================
  1880. ; Name ..........: _FFPrefReset
  1881. ; Description ...: Resets a config entry
  1882. ; Beschreibung ..: Setzt einen Eintrag in der Config zurück
  1883. ; Syntax ........: _FFPrefReset($sName)
  1884. ; Parameter(s): .: $sName - Name of the config entry
  1885. ; Return Value ..: Success - 1
  1886. ; Failure - 0
  1887. ; @ERROR -
  1888. ; Author(s) .....: Thorsten Willert
  1889. ; Modified ......: Wed Mar 25 18:06:53 CET 2009 @754 /Internet Time/
  1890. ; Link ..........: https://developer.mozilla.org/en/nsIPrefBranch, http://kb.mozillazine.org/About:config_entries
  1891. ; Related .......: _FFPrefSet, _FFPrefGet
  1892. ; Example .......: Yes
  1893. ; ==============================================================================
  1894. Func _FFPrefReset($sName)
  1895. Local Const $sFuncName = "_FFPrefReset"
  1897. Local $iType = _FFCmd('FFau3.obj=Components.classes["@mozilla.org/preferences-service;1"].getService(Components.interfaces.nsIPrefBranch);FFau3.obj.getPrefType("' & $sName & '");')
  1898. If @error Then
  1899. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sName: " & $sName))
  1900. Return 0
  1901. EndIf
  1903. If $iType <> 0 Then
  1904. If Not _FFCmd('FFau3.obj.prefHasUserValue("' & $sName & '");') Then Return 1
  1906. _FFCmd('FFau3.obj.clearUserPref("' & $sName & '");')
  1907. If Not @error Then Return 1
  1908. Else
  1909. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sName: " & $sName))
  1910. EndIf
  1912. Return 0
  1913. EndFunc ;==>_FFPrefReset
  1915. ; #FUNCTION# ===================================================================
  1916. ; Name ..........: _FFPrefGet
  1917. ; Description ...: Gets a config entry
  1918. ; Beschreibung ..: Ließt einen Wert aus der Config aus
  1919. ; Syntax ........: _FFPrefGet($sName)
  1920. ; Parameter(s): .: $sName - Name of the config entry
  1921. ; Return Value ..: Success - Value of the entry
  1922. ; Failure - 0 and sets @error
  1923. ; @ERROR -
  1924. ; Author(s) .....: Thorsten Willert
  1925. ; Modified ......: Wed Mar 25 18:06:59 CET 2009 @754 /Internet Time/
  1926. ; Link ..........: https://developer.mozilla.org/en/nsIPrefBranch, http://kb.mozillazine.org/About:config_entries
  1927. ; Related .......: _FFPrefSet, _FFPrefReset
  1928. ; Example .......: Yes
  1929. ; ==============================================================================
  1930. Func _FFPrefGet($sName)
  1931. Local Const $sFuncName = "_FFPrefGet"
  1933. Local $sCommand
  1934. Local $iType = _FFCmd('FFau3.obj=Components.classes["@mozilla.org/preferences-service;1"].getService(Components.interfaces.nsIPrefBranch); FFau3.obj.getPrefType("' & $sName & '");')
  1935. If @error Then
  1936. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, $sName))
  1937. Return 0
  1938. EndIf
  1940. Switch $iType
  1941. Case 0
  1942. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sName: " & $sName))
  1943. Return 0
  1944. Case 32 ; PREF_STRING
  1945. $sCommand = "getCharPref"
  1946. Case 64 ; PREF_INT
  1947. $sCommand = "getIntPref"
  1948. Case 128 ; PREF_BOOL
  1949. $sCommand = "getBoolPref"
  1950. EndSwitch
  1952. $sCommand = StringFormat('FFau3.obj.%s("%s");', $sCommand, $sName)
  1954. Return _FFCmd($sCommand)
  1955. EndFunc ;==>_FFPrefGet
  1957. ; #FUNCTION# ===================================================================
  1958. ; Name ..........: _FFPrefSet
  1959. ; Description ...: Sets a config entry
  1960. ; Beschreibung ..: Setzt einen Wert in der Config.
  1961. ; Syntax ........: _FFPrefSet($sName, $vValue)
  1962. ; Parameter(s): .: $sName - Name of the config entry
  1963. ; $vValue - Value of the config entry
  1964. ; Return Value ..: Success - 1 and sets @EXTENDED
  1965. ; Failure - 0
  1966. ; @ERROR -
  1967. ; @EXTENDED - Old value
  1968. ; Author(s) .....: Thorsten Willert
  1969. ; Modified ......: Wed Mar 25 18:07:07 CET 2009 @754 /Internet Time/
  1970. ; Link ..........: https://developer.mozilla.org/en/nsIPrefBranch, http://kb.mozillazine.org/About:config_entries
  1971. ; Related .......: _FFPrefGet, _FFPrefReset
  1972. ; Example .......: Yes
  1973. ; ==============================================================================
  1974. Func _FFPrefSet($sName, $vValue)
  1975. Local Const $sFuncName = "_FFPrefSet"
  1977. Local $sCommand
  1978. Local $iType = _FFCmd('FFau3.obj=Components.classes["@mozilla.org/preferences-service;1"].getService(Components.interfaces.nsIPrefBranch);FFau3.obj.getPrefType("' & $sName & '");')
  1979. If @error Then
  1980. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, $sName))
  1981. Return 0
  1982. EndIf
  1983. Local $vOldValue = _FFPrefGet($sName)
  1985. Switch $iType
  1986. Case 0
  1987. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sName: " & $sName))
  1988. Return 0
  1989. Case 32 ; PREF_STRING
  1990. If Not IsString($vValue) Then
  1991. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(string) $vValue: " & $vValue))
  1992. Return 0
  1993. EndIf
  1994. $sCommand = StringFormat('FFau3.obj.%s("%s","%s");', "setCharPref", $sName, $vValue)
  1995. Case 64 ; PREF_INT
  1996. If Not IsInt($vValue) Then
  1997. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vValue: " & $vValue))
  1998. Return 0
  1999. EndIf
  2000. $sCommand = StringFormat('FFau3.obj.%s("%s",%s);', "setIntPref", $sName, $vValue)
  2001. Case 128 ; PREF_BOOL
  2002. If Not IsBool($vValue) Then
  2003. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(bool) $vValue: " & $vValue))
  2004. Return 0
  2005. EndIf
  2006. $sCommand = StringFormat('FFau3.obj.%s("%s",%s);', "setBoolPref", $sName, __FFB2S($vValue))
  2007. EndSwitch
  2009. _FFCmd($sCommand)
  2010. If Not @error Then
  2011. Local $vRetVal = _FFPrefGet($sName)
  2012. If Not @error And $vRetVal = $vValue Then
  2013. SetExtended($vOldValue)
  2014. Return 1
  2015. Else
  2016. SetError(__FFError($sFuncName, $_FF_ERROR_RetValue, "$vValue <> " & $vRetVal))
  2017. Return 0
  2018. EndIf
  2019. EndIf
  2021. Return 0
  2022. EndFunc ;==>_FFPrefSet
  2024. ; #FUNCTION# ===================================================================
  2025. ; Name ..........: _FFQuit
  2026. ; Description ...: Quits FireFox
  2027. ; Beschreibung ..: Schließt FireFox
  2028. ; AutoIt Version : V3.3.0.0
  2029. ; Syntax ........: _FFQuit()
  2030. ; Parameter(s): .:
  2031. ; Return Value ..: Success - 1 / $_FF_GLOBAL_SOCKET = -1
  2032. ; Failure - 0
  2033. ; @ERROR -
  2034. ; Author(s) .....: Thorsten Willert
  2035. ; Date ..........: Sat Mar 14 14:44:55 CET 2009 @614 /Internet Time/
  2036. ; Link ..........:
  2037. ; Related .......: _FFDisConnect
  2038. ; Example .......: Yes
  2039. ; ==============================================================================
  2040. Func _FFQuit()
  2041. Local Const $sFuncName = "_FFQuit"
  2043. If $_FF_GLOBAL_SOCKET = -1 Then Return
  2044. If Not __FFIsSocket($_FF_GLOBAL_SOCKET) Then
  2045. SetError(__FFError($sFuncName, $_FF_ERROR_SocketError))
  2046. Return 0
  2047. EndIf
  2049. TCPSend($_FF_GLOBAL_SOCKET, "close()" & @CRLF)
  2050. If Not @error Then
  2051. $_FF_FRAME = "top"
  2052. $_FF_GLOBAL_SOCKET = -1
  2053. If $_FF_COM_TRACE Then ConsoleWrite('__FFQuit: Closing FireFox ...' & @CRLF)
  2054. Return 1
  2055. Else
  2056. Return 0
  2057. EndIf
  2059. EndFunc ;==>_FFQuit
  2061. ; #FUNCTION# ===================================================================
  2062. ; Name ..........: _FFReadHTML
  2063. ; Description ...: Returns the HTML-source code of a page.
  2064. ; Beschreibung ..: Liefert den HTMl-Quellcode einer Seite.
  2065. ; AutoIt Version : V3.3.0.0
  2066. ; Syntax ........: _FFReadHTML([$sMode = "body"[, $iFilter = 0]])
  2067. ; Parameter(s): .: $sMode - Optional: (Default = "body") :
  2068. ; | body = innerHTML from <body>
  2069. ; | html = innerHTML from <html>
  2070. ; $iFilter - Optional: (Default = 0) : you can add them:
  2071. ; | 0 = No filter
  2072. ; | 1 = Remove all non ASCII
  2073. ; | 2 = Remove all double withespaces
  2074. ; | 4 = Remove all double linefeeds
  2075. ; | 8 = Remove all HTML-tags
  2076. ; | 16 = simple html-tag / entities convertor
  2077. ; Return Value ..: Success - String with the HTML-source code
  2078. ; Failure - ""
  2079. ; @ERROR -
  2080. ; Author(s) .....: Thorsten Willert
  2081. ; Date ..........: Mon Mar 23 22:55:56 CET 2009 @955 /Internet Time/
  2082. ; Link ..........:
  2083. ; Related .......: _FFReadText, _FFXPath
  2084. ; Example .......: Yes
  2085. ; ==============================================================================
  2086. Func _FFReadHTML($sMode = "body", $iFilter = 0)
  2087. Local Const $sFuncName = "_FFReadHTML"
  2089. Local $sCommand
  2091. Switch StringLower($sMode)
  2092. Case "body"
  2093. $sCommand = ".body"
  2094. Case "html"
  2095. $sCommand = ".documentElement"
  2096. Case Else
  2097. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(body|html) $sMode: " & $sMode))
  2098. Return 0
  2099. EndSwitch
  2101. Local $sRetVal = _FFCmd($sCommand & ".innerHTML;", 10000)
  2102. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  2103. If $iFilter > 0 Then $sRetVal = __FFFilterString($sRetVal, $iFilter)
  2104. Return $sRetVal
  2105. Else
  2106. SetError(1)
  2107. Return ""
  2108. EndIf
  2109. EndFunc ;==>_FFReadHTML
  2111. ; #FUNCTION# ===================================================================
  2112. ; Name ..........: _FFReadText
  2113. ; Description ...: Returns the text of a page.
  2114. ; Beschreibung ..: Liefert den Text einer Seite.
  2115. ; AutoIt Version : V3.3.0.0
  2116. ; Syntax ........: _FFReadText([$iFilter = 0])
  2117. ; Parameter(s): .: $iFilter - Optional: (Default = 0) : you can add them:
  2118. ; | 0 = No filter
  2119. ; | 1 = Remove all non ASCII
  2120. ; | 2 = Remove all double withespaces
  2121. ; | 4 = Remove all double linefeeds
  2122. ; | 8 = Remove all HTML-tags
  2123. ; | 16 = simple html-tag / entities convertor
  2124. ; Return Value ..: Success - String
  2125. ; Failure - ""
  2126. ; @ERROR -
  2127. ; Author(s) .....: Thorsten Willert
  2128. ; Date ..........: Mon Mar 23 22:55:05 CET 2009 @954 /Internet Time/
  2129. ; Link ..........:
  2130. ; Related .......: _FFReadHTML, _FFXPath
  2131. ; Example .......: Yes
  2132. ; ==============================================================================
  2133. Func _FFReadText($iFilter = 0)
  2134. ;Local Const $sFuncName = "_FFReadText"
  2136. Local $sRetVal = _FFCmd(".documentElement.textContent;", 10000)
  2137. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  2138. If $iFilter > 0 Then $sRetVal = __FFFilterString($sRetVal, $iFilter)
  2139. Return $sRetVal
  2140. Else
  2141. SetError(1)
  2142. Return ""
  2143. EndIf
  2144. EndFunc ;==>_FFReadText
  2146. ; #FUNCTION# ===================================================================
  2147. ; Name ..........: _FFSearch
  2148. ; Description ...: Searches a string
  2149. ; Beschreibung ..: Sucht einen Text.
  2150. ; AutoIt Version : V3.3.0.0
  2151. ; Syntax ........: _FFSearch($sSearchString[, $bCaseSensitive = false[, $bBackwards = false[, $bWrapAround = true[, $bWholeWord = false[, $bSearchInFrames = true]]]]])
  2152. ; Parameter(s): .: $sSearchString - String to search
  2153. ; $bCaseSensitive - Optional: (Default = false) :
  2154. ; $bBackwards - Optional: (Default = false) :
  2155. ; $bWrapAround - Optional: (Default = true) :
  2156. ; $bWholeWord - Optional: (Default = false) :
  2157. ; $bSearchInFrames - Optional: (Default = true) :
  2158. ; Return Value ..: Success - 1
  2159. ; Failure - 0 and sets
  2160. ; @ERROR -
  2161. ; Author(s) .....: Thorsten Willert
  2162. ; Date ..........: Mon Mar 23 22:54:33 CET 2009 @954 /Internet Time/
  2163. ; Link ..........:
  2164. ; Related .......: _FFAction
  2165. ; Example .......: Yes
  2166. ; ==============================================================================
  2167. Func _FFSearch($sSearchString, $bCaseSensitive = False, $bBackwards = False, $bWrapAround = True, $bWholeWord = False, $bSearchInFrames = True)
  2168. Local Const $sFuncName = "_FFSearch"
  2170. If $sSearchString = "" Then
  2171. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "Empty String $sSearchString"))
  2172. Return ""
  2173. EndIf
  2175. If $bCaseSensitive = Default Then $bCaseSensitive = False
  2176. If $bBackwards = Default Then $bBackwards = False
  2177. If $bWrapAround = Default Then $bWrapAround = True
  2178. If $bWholeWord = Default Then $bWholeWord = False
  2179. If $bSearchInFrames = Default Then $bSearchInFrames = True
  2181. Local $sCommand = 'content.find("' & $sSearchString & '", ' & _
  2182. __FFB2S($bCaseSensitive) & ', ' & _
  2183. __FFB2S($bBackwards) & ', ' & _
  2184. __FFB2S($bWrapAround) & ', ' & _
  2185. __FFB2S($bWholeWord) & ', ' & _
  2186. __FFB2S($bSearchInFrames) & ', false);'
  2188. Local $RetVal = _FFCmd($sCommand)
  2189. If Not @error And $RetVal <> "_FFCmd_Err" Then
  2190. Return 1
  2191. Else
  2192. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sSearchString: " & $sSearchString))
  2193. Return 0
  2194. EndIf
  2195. EndFunc ;==>_FFSearch
  2197. ; #FUNCTION# ===================================================================
  2198. ; Name ..........: _FFCmd
  2199. ; Description ...: Send and receive data from Firefox.
  2200. ; Beschreibung ..: Sendet und empfängt Daten von FireFox.
  2201. ; AutoIt Version : V3.3.0.0
  2202. ; Syntax ........: _FFCmd($sArg[, $iTimeOut = 30000[, $bTry = True[, $bRec = True]]])
  2203. ; Parameter(s): .: $sArg - Any JavaScript
  2204. ; $iTimeOut - Optional: (Default = 30000) :
  2205. ; $bTry - Optional: (Default = True) : adds try/catch to $sArg
  2206. ; $bRec - Optional: (Default = True) : record command
  2207. ; Return Value ..: Success - String
  2208. ; Failure - ""
  2209. ; @ERROR -
  2210. ; Author(s) .....: Thorsten Willert
  2211. ; Date ..........: Fri Sep 18 06:03:57 CEST 2009 @211 /Internet Time/
  2212. ; Link ..........:
  2213. ; Related .......:
  2214. ; Example .......: Yes
  2215. ; ==============================================================================
  2216. Func _FFCmd($sArg, $iTimeOut = 30000, $bTry = True)
  2217. Local Const $sFuncName = "_FFCmd"
  2218. Local $sRet
  2220. If StringLeft($sArg, 1) = "." Then $sArg = "window.content.document" & $sArg
  2222. If $bTry And Not StringInStr(StringLower($sArg), "try") Then $sArg = "try{" & $sArg & "}catch(e){'_FFCmd_Err';};"
  2224. Local $sArgWrapped = StringReplace($sArg, "window.content.document", "window.content.wrappedJSObject.document")
  2226. $sArg = StringReplace($sArg, "window.content.document", "window.content." & $_FF_FRAME & ".document")
  2227. $sArgWrapped = StringReplace($sArgWrapped, "window.content.wrappedJSObject.document", "window.content.wrappedJSObject." & $_FF_FRAME & ".document")
  2229. If (Not StringInStr($sArg, ".frames[")) Or StringInStr($sArg, "evaluate") Or (Not StringRegExp($sArg, "\.[a-zA-z]+\(.*?\)(\[.+\])?\.", 0)) Then
  2230. If __FFSend($sArg) Then
  2232. $sRet = __FFRecv($iTimeOut)
  2234. If Not @error Or String($sRet) <> "_FFCmd_Err" Then
  2235. Return $sRet
  2236. ElseIf StringInStr($sArgWrapped, "wrappedJSObject") Then
  2237. __FFSend($sArgWrapped)
  2238. $sRet = __FFRecv($iTimeOut)
  2239. If Not @error And String($sRet) <> "_FFCmd_Err" Then Return $sRet
  2240. EndIf
  2241. EndIf
  2242. Else
  2243. __FFSend($sArgWrapped)
  2244. $sRet = __FFRecv($iTimeOut)
  2245. If Not @error And String($sRet) <> "_FFCmd_Err" Then Return $sRet
  2246. EndIf
  2248. SetError(__FFError($sFuncName, $_FF_ERROR_RetValue, $sRet))
  2249. Return ""
  2250. EndFunc ;==>_FFCmd
  2252. ; #FUNCTION# ===================================================================
  2253. ; Name ..........: _FFSetValue
  2254. ; Description ...: Sets a value of an element
  2255. ; Beschreibung ..: Setzt den Wert (value) eines Elements
  2256. ; AutoIt Version : V3.3.0.0
  2257. ; Syntax ........: _FFSetValue($sValue, $sElement[, $sMode = "elements"[, $iIndex = 0]])
  2258. ; Parameter(s): .: $sElement -
  2259. ; $sMode - Optional: (Default = "elements") :
  2260. ; | elements: element or object from _FFXpath or _FFObj*
  2261. ; | id
  2262. ; | name
  2263. ; | class
  2264. ; | tag
  2265. ; $iIndex - Optional: (Default = 0) : index if $sMode = class, name, tag
  2266. ; Return Value ..: Success - 1
  2267. ; Failure - 0
  2268. ; @ERROR -
  2269. ; Author(s) .....: Thorsten Willert
  2270. ; Date ..........: Wed Sep 23 22:55:36 CEST 2009
  2271. ; Link ..........:
  2272. ; Related .......: _FFSetValue, _FFXPath
  2273. ; Example .......: Yes
  2274. ; ==============================================================================
  2275. Func _FFSetValue($sValue, $sElement, $sMode = "elements", $iIndex = 0)
  2276. Local Const $sFuncName = "_FFSetValue"
  2278. If Not IsInt($iIndex) Then
  2279. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iIndex: " & $iIndex))
  2280. Return 0
  2281. EndIf
  2283. Switch StringLower($sMode)
  2284. Case "elements"
  2285. If StringLeft($sElement, 7) = "OBJECT|" Then $sElement = StringMid($sElement, 8)
  2286. Case "id"
  2287. $sElement = ".getElementById('" & $sElement & "')"
  2288. Case "name"
  2289. $sElement = ".getElementsByName('" & $sElement & "')[" & $iIndex & "]"
  2290. Case "class"
  2291. $sElement = ".getElementsByClassName('" & $sElement & "')[" & $iIndex & "]"
  2292. Case "tag"
  2293. $sElement = ".getElementsByTagName('" & $sElement & "')[" & $iIndex & "]"
  2294. Case Else
  2295. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(elements|id|name|class|tag) $sMode: " & $sMode))
  2296. Return 0
  2297. EndSwitch
  2299. __FFValue2JavaScript($sValue)
  2301. Local $sRetVal = _FFCmd($sElement & ".value='" & $sValue & "'")
  2302. If Not @error And $sRetVal <> "_FFCmd_Err" Then
  2303. Return 1
  2304. Else
  2305. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement: " & $sElement))
  2306. Return 0
  2307. EndIf
  2309. EndFunc
  2311. ; #FUNCTION# ===================================================================
  2312. ; Name ..........: _FFStart
  2313. ; Description ...: Starts FireFox
  2314. ; Beschreibung ..: Startet FireFox
  2315. ; AutoIt Version : V3.3.0.0
  2316. ; Syntax ........: _FFStart([$sURL = "about:blank"[, $sProfile = "default"[, $iMode = 1[, $bHide = False[, $IP = "127.0.0.1"[, $iPort = 4242]]]]]])
  2317. ; Parameter(s): .: $sURL - Optional: (Default = "about:blank") : Start URL
  2318. ; $sProfile - Optional: (Default = "default") : User profile
  2319. ; $iMode - Optional: (Default = 1) : Start mode:
  2320. ; | 0 = Connect to existing process
  2321. ; | 1 = Start new process
  2322. ; | 2 = Connect to an existing process, on failure start a new process
  2323. ; | +8 = Starting FF with parameter -no-remote
  2324. ; $bHide - Optional: (Default = False) : Start in hidden mode
  2325. ; $IP - Optional: (Default = "127.0.0.1") : IP of MozRepl
  2326. ; $iPort - Optional: (Default = 4242) : Port number of MozRepl
  2327. ; Return Value ..: Success - 1
  2328. ; @EXTENDED - PID
  2329. ; Failure - 0
  2330. ; @ERROR -
  2331. ; Author(s) .....: Thorsten Willert
  2332. ; Date ..........: Thu Apr 30 22:10:07 CEST 2009
  2333. ; Link ..........:
  2334. ; Related .......: _FFQuit, _FFConnect, _FFDisConnect, _FFIsConnected
  2335. ; Example .......: Yes
  2336. ; ==============================================================================
  2337. Func _FFStart($sURL = "about:blank", $sProfile = "default", $iMode = 1, $bHide = False, $IP = "127.0.0.1", $iPort = 4242)
  2338. Local Const $sFuncName = "_FFStart"
  2340. ; Default parameters
  2341. If $sURL = Default Then $sURL = "about:blank"
  2342. If $IP = Default Then $IP = "127.0.0.1"
  2343. If $iPort = Default Then $iPort = 4242
  2345. If Not __FFCheckURL($sURL) Then
  2346. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(URL) $sURL: " & $sURL))
  2347. Return 0
  2348. EndIf
  2349. If Not __FFIsIP($IP) Then
  2350. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(IP) $IP: " & $IP))
  2351. Return 0
  2352. EndIf
  2353. If Not __FFIsPort($iPort) Then
  2354. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(PORT) $iPort: " & $iPort))
  2355. Return 0
  2356. EndIf
  2358. ; Default parameters
  2359. If $sProfile = Default Then $sProfile = "default"
  2360. If $iMode = Default Then $iMode = 1
  2361. If $bHide = Default Then $bHide = False
  2363. Local $PID = -1, $bNoRemote = False
  2365. If $iMode >= 8 Then
  2366. $iMode -= 8
  2367. $bNoRemote = True
  2368. EndIf
  2370. Switch $iMode
  2371. Case 2
  2372. ContinueCase
  2373. Case 0
  2374. If ProcessExists($_FF_PROC_NAME) Then _FFConnect($IP, $iPort)
  2375. If $_FF_GLOBAL_SOCKET > -1 Then
  2376. _FFOpenURL($sURL)
  2377. ElseIf $iMode = 2 Then
  2378. ContinueCase
  2379. EndIf
  2380. Case 1
  2381. __FFStartProcess($sURL, True, $sProfile, $bNoRemote, $bHide, $iPort)
  2382. $PID = @extended
  2383. If ProcessExists($_FF_PROC_NAME) Then _FFConnect($IP, $iPort)
  2384. If $_FF_GLOBAL_SOCKET > -1 Then _FFLoadWait()
  2385. Case Else
  2386. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$iMode: " & $iMode))
  2387. Return 0
  2388. EndSwitch
  2390. If $bHide Then
  2391. Local $hWin = _FFWindowGetHandle()
  2392. WinSetState($hWin, "", @SW_HIDE)
  2393. EndIf
  2395. SetExtended($PID)
  2396. Return 1
  2397. EndFunc ;==>_FFStart
  2399. ; #FUNCTION# ===================================================================
  2400. ; Name ..........: _FFTabAdd
  2401. ; Description ...: Opens a new tab.
  2402. ; Beschreibung ..: Öffnet einen neuen Tab
  2403. ; AutoIt Version : V3.3.0.0
  2404. ; Syntax ........: _FFTabAdd([$sURL = "about:blank"[, $bSelect = True[, $bLoadWait = True]]])
  2405. ; Parameter(s): .: $sURL - Optional: (Default = "about:blank") :
  2406. ; $bSelect - Optional: (Default = true) : Select new tab
  2407. ; $bLoadWait - Optional: (Default = true) : Wait while the page is loading
  2408. ; Return Value ..: Success - 1
  2409. ; Failure - 0
  2410. ; @ERROR -
  2411. ; Author(s) .....: Thorsten Willert
  2412. ; Date ..........: Mon Mar 23 22:44:43 CET 2009 @947 /Internet Time/
  2413. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2414. ; Related .......: _FFTabDuplicate, _FFTabClose, _FFTabCloseAll, _FFTabExists, _FFTabSetSelected, _FFTabGetSelected
  2415. ; Example .......: Yes
  2416. ; ==============================================================================
  2417. Func _FFTabAdd($sURL = "about:blank", $bSelect = True, $bLoadWait = True)
  2418. Local Const $sFuncName = "_FFOpenURL"
  2420. If $sURL = Default Then $sURL = "about:blank"
  2421. If Not __FFCheckURL($sURL) Then
  2422. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(URL) $sURL: " & $sURL))
  2423. Return 0
  2424. EndIf
  2426. If $bSelect Then
  2427. _FFCmd("gBrowser.selectedTab = gBrowser.addTab('" & $sURL & "')", 3000)
  2428. If Not @error Then
  2429. If $bLoadWait Then Return _FFLoadWait()
  2430. Return 1
  2431. EndIf
  2432. Else
  2433. _FFCmd("gBrowser.loadOneTab('" & $sURL & "',null,null,null,true)", 3000)
  2434. If Not @error Then
  2435. If $bLoadWait Then Return _FFLoadWait()
  2436. Return 1
  2437. EndIf
  2438. EndIf
  2440. Return 0
  2442. EndFunc ;==>_FFTabAdd
  2444. ; #FUNCTION# ===================================================================
  2445. ; Name ..........: _FFTabClose
  2446. ; Description ...: Closes one or all existing tabs.
  2447. ; Beschreibung ..: Schließt einen oder alle vorhandenen Tabs.
  2448. ; AutoIt Version : V3.3.0.0
  2449. ; Syntax ........: _FFTabClose([$vTab = -1[, $sMode = "index"]])
  2450. ; Parameter(s): .: $vTab - Optional: (Default = -1 = current tab) :
  2451. ; | index (0-n)
  2452. ; | label
  2453. ; | prev
  2454. ; | next
  2455. ; | first
  2456. ; | last
  2457. ; | all (except current)
  2458. ; $sMode - Optional: (Default = "index") :
  2459. ; | index
  2460. ; | label
  2461. ; | key or keyword
  2462. ; Return Value ..: Success - 1
  2463. ; Failure - 0
  2464. ; @ERROR -
  2465. ; Author(s) .....: Thorsten Willert
  2466. ; Date ..........: Mon Aug 03 16:13:15 CEST 2009
  2467. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2468. ; Related .......: _FFTabAdd, _FFTabDuplicate, _FFTabCloseAll, _FFTabExists, _FFTabSetSelected, _FFTabGetSelected
  2469. ; Example .......: Yes
  2470. ; ==============================================================================
  2471. Func _FFTabClose($vTab = -1, $sMode = "index")
  2472. Local Const $sFuncName = "_FFTabClose"
  2474. Local $sCommand
  2475. ;Local $bWarn
  2476. Local $iLength = _FFGetLength("tabs")
  2478. Switch StringLower($sMode)
  2479. Case "index"
  2480. If $vTab = -1 Then
  2481. $sCommand = "gBrowser.removeCurrentTab();"
  2482. ElseIf $vTab > -1 And $vTab < $iLength Then
  2483. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[" & $vTab & "]);"
  2484. Else
  2485. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(int) $vTab: " & $vTab))
  2486. Return 0
  2487. EndIf
  2488. Case "label"
  2489. If _FFTabExists($vTab) Then
  2490. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[" & @extended & "]);"
  2491. Else
  2492. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vTab: " & $vTab))
  2493. Return 0
  2494. EndIf
  2495. Case "key", "keyword"
  2496. Switch StringLower($vTab)
  2497. Case "prev"
  2498. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[gBrowser.tabContainer.selectedIndex-1]);"
  2499. Case "next"
  2500. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[gBrowser.tabContainer.selectedIndex+1]);"
  2501. Case "first"
  2502. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[0]);"
  2503. Case "last"
  2504. $sCommand = "gBrowser.removeTab(gBrowser.mTabs[gBrowser.tabContainer.childNodes.length-1]);"
  2505. Case "all"
  2506. ; browser.tabs.warnOnClose
  2507. $sCommand = "gBrowser.removeAllTabsBut(gBrowser.selectedTab);"
  2508. Case Else
  2509. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(prev|next|first|last|all) $vTab: " & $vTab))
  2510. Return 0
  2511. EndSwitch
  2512. Case Else
  2513. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|label|key|keyword) $sMode: " & $sMode))
  2514. Return 0
  2515. EndSwitch
  2517. If _FFCmd($sCommand & "gBrowser.tabContainer.childNodes.length", 3000) < $iLength - 1 Then
  2518. Sleep(100)
  2519. Return 1
  2520. EndIf
  2522. Return 0
  2523. EndFunc ;==>_FFTabClose
  2525. ; #FUNCTION# ===================================================================
  2526. ; Name ..........: _FFTabDuplicate
  2527. ; Description ...: Duplicates a tab
  2528. ; Beschreibung ..: Dupliziert einen Tab
  2529. ; AutoIt Version : V3.3.0.0
  2530. ; Syntax ........: _FFTabDuplicate([$vTab = -1[, $sMode = "index"[, $bSelect = False]]])
  2531. ; Parameter(s): .: $vTab - Optional: (Default = -1) : Tab to duplicate, -1 = current tab
  2532. ; $sMode - Optional: (Default = "index") :
  2533. ; | index
  2534. ; | label
  2535. ; $bToFront - Optional: (Default = false) : Bring duplicated tab to front
  2536. ; Return Value ..: Success - Lenght of tabs >= 1
  2537. ; Failure - 0
  2538. ; @ERROR -
  2539. ; Author(s) .....: Thorsten Willert
  2540. ; Date ..........: Mon Aug 03 16:13:08 CEST 2009
  2541. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2542. ; Related .......: _FFTabAdd, _FFTabClose, _FFTabCloseAll, _FFTabExists, _FFTabSetSelected, _FFTabGetSelected
  2543. ; Example .......: Yes
  2544. ; ==============================================================================
  2545. Func _FFTabDuplicate($vTab = -1, $sMode = "index", $bSelect = False)
  2546. Local Const $sFuncName = "_FFTabDuplicate"
  2548. If $sMode = "index" And Not IsInt($vTab) Then
  2549. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vTab: " & $vTab))
  2550. Return 0
  2551. EndIf
  2553. If $vTab = Default Then $vTab = -1
  2554. If $sMode = Default Then $sMode = "index"
  2556. Local $iRet
  2557. Local $sCommand
  2559. Switch StringLower($sMode)
  2560. Case "index"
  2561. If $vTab = -1 Then
  2562. $sCommand = "gBrowser.duplicateTab(gBrowser.mCurrentTab);"
  2563. ElseIf $vTab >= 0 And $vTab < _FFGetLength("tabs") Then
  2564. $sCommand = "gBrowser.duplicateTab(gBrowser.mTabs[" & $vTab & "]);"
  2565. Else
  2566. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$vTab: " & $vTab))
  2567. Return 0
  2568. EndIf
  2569. Case "label"
  2570. If _FFTabExists($vTab) Then
  2571. $sCommand = "gBrowser.duplicateTab(gBrowser.mTabs[" & @extended & "]);"
  2572. Else
  2573. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$vTab: " & $vTab))
  2574. Return 0
  2575. EndIf
  2576. Case Else
  2577. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|label) $sMode: " & $sMode))
  2578. Return 0
  2579. EndSwitch
  2581. $iRet = _FFCmd($sCommand & "gBrowser.tabContainer.childNodes.length;", 3000)
  2583. If $bSelect Then _FFTabSetSelected("last")
  2585. Return $iRet
  2587. EndFunc ;==>_FFTabDuplicate
  2589. ; #FUNCTION# ===================================================================
  2590. ; Name ..........: _FFTabExists
  2591. ; Description ...: Checks if a tab exists
  2592. ; Beschreibung ..: Prüft ob ein Tab existiert.
  2593. ; AutoIt Version : V3.3.0.0
  2594. ; Syntax ........: _FFTabExists($sLabel)
  2595. ; Parameter(s): .: $sLabel - Label of the tab (substring or RegEx)
  2596. ; Return Value ..: Success - 1
  2597. ; @EXTENDED - Index of the tab
  2598. ; Failure - 0
  2599. ; @ERROR -
  2600. ; Author(s) .....: Thorsten Willert
  2601. ; Date ..........: Mon Jul 27 08:47:03 CEST 2009
  2602. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2603. ; Related .......: _FFTabAdd, _FFTabDuplicate, _FFTabClose, _FFTabCloseAll, _FFTabSetSelected, _FFTabGetSelected
  2604. ; Example .......: Yes
  2605. ; ==============================================================================
  2606. Func _FFTabExists($sLabel)
  2607. Local Const $sFuncName = "_FFTabExists"
  2609. _FFLoadWait()
  2610. Local $RetVal = Int(_FFCmd("FFau3.SearchTab('" & $sLabel & "')", 3000))
  2611. Switch @error
  2612. Case $_FF_ERROR_Success
  2613. If $RetVal > -1 Then
  2614. SetExtended($RetVal)
  2615. Return 1
  2616. ElseIf $RetVal = -3 Then
  2617. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidExpression, "$sLabel: " & $sLabel))
  2618. Return 0
  2619. Else
  2620. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sLabel: " & $sLabel))
  2621. Return 0
  2622. EndIf
  2623. Case Else
  2624. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError))
  2625. Return 0
  2626. EndSwitch
  2627. EndFunc ;==>_FFTabExists
  2629. ; #FUNCTION# ===================================================================
  2630. ; Name ..........: _FFTabSetSelected
  2631. ; Description ...: Select a tab
  2632. ; Beschreibung ..: Wählt ein Tab aus.
  2633. ; AutoIt Version : V3.3.0.0
  2634. ; Syntax ........: _FFTabSetSelected([$vTab = 0[, $sMode = "index"]])
  2635. ; Parameter(s): .: $vTab - Optional: (Default = 0) :
  2636. ; | index (0-n)
  2637. ; | label = Substring or RegEx
  2638. ; | prev
  2639. ; | next
  2640. ; | first
  2641. ; | last
  2642. ; $sMode - Optional: (Default = "index") :
  2643. ; | index
  2644. ; | label
  2645. ; | otherwise the keywords in $vTab are used
  2646. ; Return Value ..: Success -
  2647. ; Failure - -1
  2648. ; @ERROR -
  2649. ; Author(s) .....: Thorsten Willert
  2650. ; Date ..........: Mon Aug 03 16:12:59 CEST 2009
  2651. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2652. ; Related .......: _FFTabAdd, _FFTabDuplicate, _FFTabClose, _FFTabCloseAll, _FFTabExists, _FFTabGetSelected
  2653. ; Example .......: Yes
  2654. ; ==============================================================================
  2655. Func _FFTabSetSelected($vTab = 0, $sMode = "index")
  2656. Local Const $sFuncName = "_FFTabSetSelected"
  2658. Local $sCommand = "gBrowser.tabContainer"
  2660. If $sMode = "index" Then
  2661. $sCommand &= ".selectedIndex = " & $vTab
  2662. ElseIf $sMode = "label" Then
  2663. If _FFTabExists($vTab) Then
  2664. $sCommand &= ".selectedIndex = " & @extended
  2665. Else
  2666. Return -1
  2667. EndIf
  2668. Else
  2669. Switch StringLower($vTab)
  2670. Case "prev"
  2671. $sCommand &= ".advanceSelectedTab( -1, true )"
  2672. Case "next"
  2673. $sCommand &= ".advanceSelectedTab( 1, true )"
  2674. Case "first"
  2675. $sCommand &= ".selectedIndex = 0"
  2676. Case "last"
  2677. $sCommand &= ".selectedIndex = gBrowser.tabContainer.childNodes.length -1"
  2678. Case Else
  2679. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|label|prev|next|first|last) $sMode: " & $sMode))
  2680. Return -1
  2681. EndSwitch
  2682. EndIf
  2684. Local $RetVal = _FFCmd($sCommand, 3000)
  2685. Sleep(50)
  2686. Return $RetVal
  2688. EndFunc ;==>_FFTabSetSelected
  2690. ; #FUNCTION# ===================================================================
  2691. ; Name ..........: _FFTabGetSelected
  2692. ; Description ...: Returns the name or the index of the selected tab.
  2693. ; Beschreibung ..: Gibt den Namen (label) oder den Index des aktuellen Tabs zurück.
  2694. ; AutoIt Version : V3.3.0.0
  2695. ; Syntax ........: _FFTabGetSelected([$sMode = "index"])
  2696. ; Parameter(s): .: $sMode - Optional: (Default = "index") :
  2697. ; | index
  2698. ; | label
  2699. ; Return Value ..: Success - Tab index 0-n or label
  2700. ; Failure - -1
  2701. ; @ERROR -
  2702. ; Author(s) .....: Thorsten Willert
  2703. ; Date ..........: Thu Apr 23 08:52:13 CEST 2009 @327 /Internet Time/
  2704. ; Link ..........: https://developer.mozilla.org/en/XUL/tabs
  2705. ; Related .......: _FFTabAdd, _FFTabDuplicate, _FFTabClose, _FFTabCloseAll, _FFTabExists, _FFTabSetSelected
  2706. ; Example .......: Yes
  2707. ; ==============================================================================
  2708. Func _FFTabGetSelected($sMode = "index")
  2709. Local Const $sFuncName = "_FFTabGetSelected"
  2711. _FFLoadWait()
  2712. Switch StringLower($sMode)
  2713. Case "index"
  2714. Return Int(_FFCmd("gBrowser.tabContainer.selectedIndex", 3000))
  2715. Case "label"
  2716. Return _FFCmd("gBrowser.mTabs[gBrowser.tabContainer.selectedIndex].label", 3000)
  2717. Case Else
  2718. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|label) $sMode: " & $sMode))
  2719. Return -1
  2720. EndSwitch
  2722. EndFunc ;==>_FFTabGetSelected
  2724. ; #FUNCTION# ===================================================================
  2725. ; Name ..........: _FFTableWriteToArray
  2726. ; Description ...: Writes a HTML-table to an array
  2727. ; Beschreibung ..: Kopiert eine HTML-Tabelle in ein Array.
  2728. ; AutoIt Version : V3.3.0.0
  2729. ; Syntax ........: _FFTableWriteToArray([$vTable = 0[, $sMode = "index"[, $sReturnMode = "text"[, $iFilter = 0[, $bTransponse = False]]]]])
  2730. ; Parameter(s): .: $vTable - Optional: (Default = 0) : Table selection by $sMode
  2731. ; $sMode - Optional: (Default = "index") :
  2732. ; | index (0-n)
  2733. ; | name
  2734. ; | id
  2735. ; $sReturnMode - Optional: (Default = "text") :
  2736. ; | text
  2737. ; | html
  2738. ; $iFilter - Optional: (Default = 0) :
  2739. ; | 0 = No filter
  2740. ; | 1 = Remove all non ASCII
  2741. ; | 2 = Remove all double withespaces
  2742. ; | 4 = Remove all double linefeeds
  2743. ; | 8 = Remove all HTML-tags
  2744. ; | 16 = simple html-tag / entities convertor
  2745. ; $bTransponse - Optional: (Default = False) : Switch Rows and Columns
  2746. ; Return Value ..: Success - Array containing contents of the table
  2747. ; Failure - 0
  2748. ; @ERROR -
  2749. ; Author(s) .....: Thorsten Willert, Johannes Schirmer
  2750. ; Date ..........: Fri Sep 18 17:38:05 CEST 2009 @693 /Internet Time/
  2751. ; Link ..........:
  2752. ; Related .......: _FFXpath
  2753. ; Example .......: Yes
  2754. ; ==============================================================================
  2755. Func _FFTableWriteToArray($vTable = 0, $sMode = "index", $sReturnMode = "text", $iFilter = 0, $bTransponse = False)
  2756. Local $sFuncName = "_FFTableWriteToArray"
  2758. Local $sTable, $sRnd
  2760. Local $bTrace = $_FF_COM_TRACE
  2761. $_FF_COM_TRACE = False
  2763. Switch StringLower($sMode)
  2764. Case "index"
  2765. If IsInt($vTable) And $vTable < _FFGetLength("tables") Then
  2766. $sTable = "//table[" & $vTable + 1 & "]"
  2767. Else
  2768. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(INT) $vTable: " & $vTable))
  2769. Return 0
  2770. EndIf
  2771. Case "name"
  2772. $sTable = "//table[@name='" & $vTable & "']"
  2773. Case "id"
  2774. $sTable = "//table[@id='" & $vTable & "']"
  2775. Case Else
  2776. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(index|name|id) $sMode: " & $sMode))
  2777. Return 0
  2778. EndSwitch
  2780. Switch StringLower($sReturnMode)
  2781. Case "text"
  2782. $sReturnMode = "textContent"
  2783. Case "html"
  2784. $sReturnMode = "innerHTML"
  2785. Case Else
  2786. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(text|html) $sReturnMode: " & $sReturnMode))
  2787. Return 0
  2788. EndSwitch
  2790. If Not IsInt($iFilter) Then
  2791. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iFilter: " & $iFilter))
  2792. Return 0
  2793. EndIf
  2795. If Not IsBool($bTransponse) Then
  2796. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(boolean) $bTransponse: " & $bTransponse))
  2797. Return 0
  2798. EndIf
  2800. Local $iRows = _FFXpath($sTable & "//tr", Default, 10)
  2801. If @error Or $iRows = 0 Then
  2802. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, $sTable & " not found."))
  2803. Return 0
  2804. EndIf
  2806. Local $aCols
  2808. If _FFXPath($sTable & "//@colspan", Default, 10) > 0 Or _FFXPath($sTable & "//@rowspan", Default, 10) > 0 Then
  2809. Local $iColsTmp[$iRows + 1]
  2810. Local $iCols = 0, $iSum, $iCol
  2811. For $i = 1 To $iRows
  2812. $iSum = 0
  2813. $aCols = _FFXpath($sTable & "//tr[" & $i & "]//td", "colSpan", 6)
  2814. $iColsTmp[$i - 1] = $aCols[0]
  2815. For $j = 1 To $aCols[0]
  2816. $iSum += $aCols[$j]
  2817. Next
  2818. If $iSum > $iCols Then $iCols = $iSum
  2819. Next
  2821. Local $aTable[$iRows][$iCols]
  2822. Local $iRow = 0
  2823. Local $sCmd, $aTmp
  2825. For $i = 0 To $iRows
  2826. $sRnd = "FF" & Random(100,999,1)
  2827. $iCol = 0
  2828. If $iColsTmp[$i] < $iCols Then
  2829. For $j = 0 To $iColsTmp[$i] - 1
  2830. $sCmd = "FFau3.xpath=window.content.document.evaluate('//tr[" & $i + 1 & "]//td[" & $j + 1 & "]',window.content.document,null,XPathResult.FIRST_ORDERED_NODE_TYPE,null).singleNodeValue;FFau3.xpath." & $sReturnMode & "+'" & $sRnd & "'+FFau3.xpath.colSpan"
  2831. $aTmp = StringSplit(_FFCmd($sCmd), $sRnd, 3)
  2832. $aTable[$iRow][$iCol] = __FFFilterString($aTmp[0], $iFilter)
  2833. $iCol += $aTmp[1]
  2834. Next
  2836. Else
  2837. Local $aRows = _FFXpath($sTable & "//tr[" & $i + 1 & "]//td", $sReturnMode, 6, $iFilter)
  2838. If $aRows[0] > 0 Then
  2839. For $j = 1 To $aRows[0]
  2840. $aTable[$i][$j - 1] = $aRows[$j]
  2841. Next
  2842. EndIf
  2843. EndIf
  2845. $iRow += 1
  2846. Next
  2847. Else
  2848. $iCols = _FFXpath($sTable & "//tr[last()]//td", Default, 10)
  2849. Local $aTable[$iRows][$iCols]
  2851. If $iCols > $iRows Then
  2852. For $i = 0 To $iRows - 1
  2853. $aCols = _FFXpath($sTable & "//tr[" & $i + 1 & "]//td", $sReturnMode, 6, $iFilter)
  2854. If $aCols[0] > 0 Then
  2855. For $j = 0 To $iCols - 1
  2856. $aTable[$i][$j] = $aCols[$j + 1]
  2857. Next
  2858. EndIf
  2859. Next
  2860. Else
  2861. For $i = 0 To $iCols - 1
  2862. $aRows = _FFXpath($sTable & "//tr//td[" & $i + 1 & "]", $sReturnMode, 6, $iFilter)
  2863. If $aRows[0] > 0 Then
  2864. For $j = 0 To $iRows - 1
  2865. $aTable[$j][$i] = $aRows[$i + 1]
  2866. Next
  2867. EndIf
  2868. Next
  2869. EndIf
  2870. EndIf
  2872. If $bTransponse Then
  2873. Local $iD1 = UBound($aTable, 1), $iD2 = UBound($aTable, 2), $aTmp[$iD2][$iD1]
  2874. For $i = 0 To $iD2 - 1
  2875. For $j = 0 To $iD1 - 1
  2876. $aTmp[$i][$j] = $aTable[$j][$i]
  2877. Next
  2878. Next
  2879. $aTable = $aTmp
  2880. EndIf
  2882. $_FF_COM_TRACE = $bTrace
  2884. Return $aTable
  2885. EndFunc ;==>_FFTableWriteToArray
  2887. ; #FUNCTION# ===================================================================
  2888. ; Name ..........: _FFWindowClose
  2889. ; Description ...: Closes a browser window
  2890. ; Beschreibung ..: Schließt ein Browser Fenster.
  2891. ; Syntax ........: _FFWindowClose([$sSearch = ""[, $sSearchMode = "title"]])
  2892. ; Parameter(s): .: $sSearch - Optional: (Default = "") : "" = current window, Substring to search
  2893. ; $sSearchMode - Optional: (Default = "title") :
  2894. ; | "title" window title
  2895. ; | "label" tab label
  2896. ; | "href" current url
  2897. ; Return Value ..: Success - 1
  2898. ; Failure - 0
  2899. ; @ERROR -
  2900. ; Author(s) .....: Thorsten Willert
  2901. ; Date ..........: Mon Mar 23 22:33:01 CET 2009 @939 /Internet Time/
  2902. ; Link ..........: https://developer.mozilla.org/En/DOM/Window, https://developer.mozilla.org/En/NsIWindowMediator
  2903. ; Related .......: _FFWindowSelect, _FFWindowOpen
  2904. ; Example .......: Yes
  2905. ; ==============================================================================
  2906. Func _FFWindowClose($sSearch = "", $sSearchMode = "title")
  2907. Local Const $sFuncName = "_FFWindowClose"
  2909. If $sSearch = "" Then
  2910. _FFCmd("window.close();")
  2911. Return @error
  2912. EndIf
  2914. Switch StringLower($sSearchMode)
  2915. Case "title", "label", "href" ; current href
  2916. Local $sRetVal = _FFCmd(StringFormat("FFau3.CloseWin('%s','%s')", $sSearch, $sSearchMode))
  2917. If Not @error And $sRetVal = 1 Then
  2918. Return 1
  2919. Else
  2920. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sSearch: " & $sSearch))
  2921. EndIf
  2922. Case Else
  2923. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(title|label|href) $sSearchMode: " & $sSearchMode))
  2924. EndSwitch
  2926. Return 0
  2927. EndFunc ;==>_FFWindowClose
  2929. ; #FUNCTION# ===================================================================
  2930. ; Name ..........: _FFWindowGetHandle
  2931. ; Description ...: Returns the window-handle (hwnd) from the current browser-window.
  2932. ; Beschreibung ..: Liefert das Window-handle (hwnd) des aktuellen Browser Fenster.
  2933. ; AutoIt Version : V3.3.0.0
  2934. ; Syntax ........: _FFWindowGetHandle()
  2935. ; Parameter(s): .:
  2936. ; Return Value ..: Success - Window handle
  2937. ; Failure - ""
  2938. ; @ERROR -
  2939. ; Author(s) .....: Thorsten Willert
  2940. ; Date ..........: Sun Oct 18 21:35:12 CEST 2009
  2941. ; Link ..........:
  2942. ; Related .......: _FFWindowClose, _FFWindowSelect, _FFWindowOpen
  2943. ; Example .......: Yes
  2944. ; ==============================================================================
  2945. Func _FFWindowGetHandle()
  2946. Local Const $sFuncName = "_FFWindowGetHandle"
  2947. ; in the future to handle with XPCOM =#=
  2948. Local $bErr = False
  2949. Local $hWindow = ""
  2951. BlockInput(1) ; =#=
  2952. If Not @error Then
  2953. Local $sTitleRnd = "FFAU3" & Random(1000000000, 9999999999, 1)
  2954. _FFCmd("FFau3.tmp=document.title;document.title='" & $sTitleRnd & "'")
  2955. Local $iMatchMode = AutoItSetOption("WinTitleMatchMode", 1)
  2956. Sleep(500)
  2957. $hWindow = WinGetHandle($sTitleRnd)
  2958. If @error Then $bErr = True
  2959. AutoItSetOption("WinTitleMatchMode", $iMatchMode)
  2960. _FFCmd("document.title=FFau3.tmp")
  2961. ConsoleWrite("_FFWindowGetHandle: " & $hWindow & @CRLF)
  2962. EndIf
  2963. BlockInput(0)
  2965. If $bErr Then SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError))
  2966. Return $hWindow
  2967. EndFunc ;==>_FFWindowGetHandle
  2969. ; #FUNCTION# ===================================================================
  2970. ; Name ..........: _FFWindowSelect
  2971. ; Description ...: Selects the active window for all other functions
  2972. ; Beschreibung ..: Wählt das aktive Browser Fenster für alle nachfolgenden Befehle.
  2973. ; Syntax ........: _FFWindowSelect([$sSearch = ""[, $sSearchMode = "title"[, $bActivate = True]]])
  2974. ; Parameter(s): .: $sSearch - Optional: (Default = "") : "" = most recent window, Substring to search
  2975. ; $sSearchMode - Optional: (Default = "title") :
  2976. ; | "title" window title
  2977. ; | "label" tab label
  2978. ; | "href" current url
  2979. ; $bActivate - Optional: (Default = True) :
  2980. ; Return Value ..: Success - 1
  2981. ; @EXTENDED - Window handle
  2982. ; Failure - 0
  2983. ; @ERROR -
  2984. ; @EXTENDED - ""
  2985. ; Author(s) .....: Thorsten Willert
  2986. ; Date ..........: Mon Mar 23 22:32:05 CET 2009 @938 /Internet Time/
  2987. ; Link ..........: https://developer.mozilla.org/En/DOM/Window, https://developer.mozilla.org/En/NsIWindowMediator
  2988. ; Related .......: _FFWindowOpen, _FFWindowClose, _FFWindowGetHandle
  2989. ; Example .......: Yes
  2990. ; ==============================================================================
  2991. Func _FFWindowSelect($sSearch = "", $sSearchMode = "title", $bActivate = True)
  2992. Local Const $sFuncName = "_FFWindowSelect"
  2994. Local $hWin = ""
  2996. If $sSearch = "" Then
  2997. Local $sCommand = 'Components.classes["@mozilla.org/appshell/window-mediator;1"].getService(Components.interfaces.nsIWindowMediator).getMostRecentWindow("navigator:browser")'
  2998. _FFCmd("repl.enter(" & $sCommand & ")")
  2999. If Not @error Then
  3000. $hWin = _FFWindowGetHandle()
  3001. If Not @error And $bActivate Then WinActivate($hWin)
  3002. SetExtended($hWin)
  3003. Return 1
  3004. EndIf
  3005. SetExtended($hWin)
  3006. Return 0
  3007. EndIf
  3009. Switch StringLower($sSearchMode)
  3010. Case "title", "label", "href"
  3011. Local $sRetVal = _FFCmd(StringFormat("FFau3.SelectWin('%s','%s','navigator:browser');", $sSearch, $sSearchMode))
  3012. If Not @error And $sRetVal = 1 Then
  3013. $hWin = _FFWindowGetHandle()
  3014. If Not @error And $bActivate Then WinActivate($hWin)
  3015. SetExtended($hWin)
  3016. Return 1
  3017. Else
  3018. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sSearch: " & $sSearch), $hWin)
  3019. EndIf
  3020. Case Else
  3021. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(title|label|href) $sSearchMode: " & $sSearchMode), $hWin)
  3022. EndSwitch
  3024. SetExtended($hWin)
  3025. Return 0
  3026. EndFunc ;==>_FFWindowSelect
  3028. ; #FUNCTION# ===================================================================
  3029. ; Name ..........: _FFWindowOpen
  3030. ; Description ...: Opens a new browser window
  3031. ; Beschreibung ..: Öffnet ein neues Browser Fenster.
  3032. ; Syntax ........: _FFWindowOpen([$sURL = "about:blank"[, $bActivate = True[, $bLoadWait = True]]])
  3033. ; Parameter(s): .: $sURL - Optional: (Default = "about:blank") :
  3034. ; $bActivate - Optional: (Default = True)
  3035. ; $bLoadWait - Optional: (Default = True) :
  3036. ; Return Value ..: Success - 1 and sets
  3037. ; @EXTENDED - Window handle
  3038. ; Failure - 0 and sets
  3039. ; @ERROR -
  3040. ; @EXTENDED - ""
  3041. ; Author(s) .....: Thorsten Willert
  3042. ; Date ..........: Fri Nov 13 18:31:06 CET 2009
  3043. ; Link ..........: https://developer.mozilla.org/En/DOM/Window, https://developer.mozilla.org/En/NsIWindowMediator
  3044. ; Related .......: _FFWindowSelect, _FFWindowClose, _FFWindowGetHandle
  3045. ; Example .......: Yes
  3046. ; ==============================================================================
  3047. Func _FFWindowOpen($sURL = "about:blank", $bActivate = True, $bLoadWait = True)
  3048. Local Const $sFuncName = "_FFWindowOpen"
  3050. If Not __FFCheckURL($sURL) Then
  3051. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(URL) $sURL: " & $sURL))
  3052. Return 0
  3053. EndIf
  3055. Local $bTrace = $_FF_COM_TRACE
  3056. $_FF_COM_TRACE = False
  3058. ConsoleWrite("_FFWindowOpen: " & $sURL & @CRLF)
  3060. _FFCmd("window.open('" & $sURL & "');")
  3061. If $bLoadWait Then _FFLoadWait()
  3062. If Not @error Then
  3063. If _FFWindowSelect() Then
  3064. Local $hWin = @extended
  3065. If Not @error And $bActivate Then WinActivate($hWin)
  3066. __FFSendJavaScripts()
  3067. $_FF_COM_TRACE = $bTrace
  3068. SetExtended($hWin)
  3069. Return 1
  3070. EndIf
  3071. EndIf
  3073. $_FF_COM_TRACE = $bTrace
  3074. SetExtended("")
  3075. Return 0
  3076. EndFunc ;==>_FFWindowOpen
  3078. ; #FUNCTION# ===================================================================
  3079. ; Name ..........: _FFWriteHTML
  3080. ; Description ...: Replaces the html of body element
  3081. ; Beschreibung ..: Ersetzt das HTML des Body Elements.
  3082. ; Syntax ........: _FFWriteHTML([$sHTML = ""[, $sMode = "body"]])
  3083. ; Parameter(s): .: $sHTML - Optional: (Default = "") :
  3084. ; $sMode - Optional: (Default = "body") :
  3085. ; | body
  3086. ; | html
  3087. ; Return Value ..: Success - 1
  3088. ; Failure - 0
  3089. ; @ERROR -
  3090. ; Author(s) .....: Thorsten Willert
  3091. ; Date ..........: Mon Mar 23 22:30:01 CET 2009 @937 /Internet Time/
  3092. ; Link ..........:
  3093. ; Related .......:
  3094. ; Example .......: Yes
  3095. ; ==============================================================================
  3096. Func _FFWriteHTML($sHTML = "", $sMode = "body")
  3097. Local Const $sFuncName = "_FFWriteHTML"
  3099. Local $sCommand
  3101. Switch StringLower($sMode)
  3102. Case "body"
  3103. $sCommand = "body"
  3104. Case "html"
  3105. $sCommand = "documentElement"
  3106. Case Else
  3107. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(body|html) $sMode: " & $sMode))
  3108. Return 0
  3109. EndSwitch
  3111. $sCommand = StringFormat("content.document.%s.innerHTML='" & $sHTML & "';", $sCommand)
  3113. Local $sRetVal = _FFCmd($sCommand)
  3114. If Not @error And $sRetVal <> "_FFCmd_Err" Then Return 1
  3116. Return 0
  3117. EndFunc ;==>_FFWriteHTML
  3119. ; #FUNCTION# ===================================================================
  3120. ; Name ..........: _FFXPath
  3121. ; Description ...: Returns and sets values due to a XPath-query.
  3122. ; Beschreibung ..: Abfrage und setzen von Werten anhand einer XPath-Abfrage.
  3123. ; AutoIt Version : V3.3.0.0
  3124. ; Syntax ........: _FFXPath($sQuery[, $sAttribute = "textContent"[, $iReturnType = 2[, $iFilter = 0]]])
  3125. ; Parameter(s): .: $sQuery - XPath query
  3126. ; $sAttribute - Optional: (Default = "textContent") : attribute OR searchstring for SEARCH
  3127. ; $iReturnType - Optional: (Default = 0) :
  3128. ; | 0 = ANY_TYPE
  3129. ; | 1 = NUMBER_TYPE (Returns numberValue)
  3130. ; | 2 = STRING_TYPE (Return stringValue)
  3131. ; | 3 = BOOLEAN_TYPE (Returns booleanValue)
  3132. ; | 4 = UNORDERED_NODE_ITERATOR_TYPE - not implemented
  3133. ; | 5 = ORDERED_NODE_ITERATOR_TYPE - not implemented
  3134. ; | 6 = UNORDERED_NODE_SNAPSHOT_TYPE (Returns arrray)
  3135. ; | 7 = ORDERED_NODE_SNAPSHOT_TYPE (Returns arrray)
  3136. ; | 8 = ANY_UNORDERED_NODE_TYPE (Returns singleNodeValue) (Object in FFau3.xpath)
  3137. ; | 9 = FIRST_ORDERED_NODE_TYPE (Returns singleNodeValue) (Object in FFau3.xpath)
  3138. ; | 10 = COUNT (Returns the number of matches)
  3139. ; | 11 = CONTAINS (stringValue contains substring in $sAttribute) (Returns booleanValue)
  3140. ; | 12 = STARTS-WITH (stringValue start-with string in $sAttribute) (Returns booleanValue)
  3141. ; | 13 = SUBSTRING-AFTER (stringValue substring-after in $sAttribute)
  3142. ; | 14 = SUBSTRING-BEFORE (stringValue substring-bevore in $sAttribute)
  3143. ; $iFilter - Optional: (Default = 0) :
  3144. ; | 0 = No filter
  3145. ; | 1 = Remove all non ASCII
  3146. ; | 2 = Remove all double withespaces
  3147. ; | 4 = Remove all double linefeeds
  3148. ; | 8 = Remove all HTML-tags
  3149. ; | 16 = simple html-tag / entities convertor
  3150. ; Return Value ..: Success - Value $iReturnType 0-5 and 8-10
  3151. ; | Value $iReturnType 8-9 + object FFau3.xpath
  3152. ; | Array $iReturnType 6-7 or if an attribute is set the number of the matches.
  3153. ; Failure - 0 and sets
  3154. ; @ERROR -
  3155. ; Author(s) .....: Thorsten Willert
  3156. ; Date ..........: Fri Sep 18 06:06:26 CEST 2009 @212 /Internet Time/
  3157. ; Link ..........: http://www.w3.org/TR/xpath, https://developer.mozilla.org/en/XPath, https://developer.mozilla.org/En/XPathResult, https://developer.mozilla.org/en/Introduction_to_using_XPath_in_JavaScript
  3158. ; Related .......: _FFGetValue, _FFSetValue
  3159. ; Example .......: Yes
  3160. ; ==============================================================================
  3161. Func _FFXPath($sQuery, $sAttribute = "textContent", $iReturnType = 2, $iFilter = 0)
  3162. Local Const $sFuncName = "_FFXPath"
  3164. If $sQuery = "" Then
  3165. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "Empty String $sQuery"))
  3166. Return 0
  3167. EndIf
  3168. If Not IsInt($iFilter) Then
  3169. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $iFilter: " & $iFilter))
  3170. Return 0
  3171. EndIf
  3172. If $iReturnType < 10 And Not StringInStr($sAttribute, "=") And StringRegExp($sAttribute, "[\W]+") Then
  3173. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sAttribute: " & $sAttribute))
  3174. Return 0
  3175. EndIf
  3177. If $sAttribute = Default Then $sAttribute = "textContent"
  3178. If $iReturnType = Default Then $iReturnType = 0
  3179. $sQuery = StringReplace($sQuery, '"', "'")
  3181. Local $sResult, $sValue
  3183. Switch StringLower($sAttribute)
  3184. Case "textcontent"
  3185. $sAttribute = "textContent"
  3186. Case "innerhtml"
  3187. $sAttribute = "innerHTML"
  3188. EndSwitch
  3190. Switch $iReturnType
  3191. Case 0
  3192. $sResult = "ANY_TYPE"
  3193. Case 1
  3194. $sResult = "NUMBER_TYPE"
  3195. $sValue = ".numberValue"
  3196. Case 2
  3197. $sResult = "STRING_TYPE"
  3198. $sValue = ".stringValue"
  3199. Case 3
  3200. $sResult = "BOOLEAN_TYPE"
  3201. $sValue = ".booleanValue"
  3202. #cs - not implemented yet
  3203. Case 4
  3204. $sResult = "UNORDERED_NODE_ITERATOR_TYPE"
  3205. Case 5
  3206. $sResult = "ORDERED_NODE_ITERATOR_TYPE"
  3207. #ce
  3208. Case 6
  3209. $sResult = "UNORDERED_NODE_SNAPSHOT_TYPE"
  3210. If $sAttribute <> "" And StringLeft($sAttribute, 1) <> "." Then $sValue &= "." & $sAttribute
  3211. Case 7
  3212. $sResult = "ORDERED_NODE_SNAPSHOT_TYPE"
  3213. If $sAttribute <> "" And StringLeft($sAttribute, 1) <> "." Then $sValue &= "." & $sAttribute
  3214. Case 8
  3215. $sResult = "ANY_UNORDERED_NODE_TYPE"
  3216. $sValue = ".singleNodeValue"
  3217. If $sAttribute <> "" And StringLeft($sAttribute, 1) <> "." Then $sValue &= "." & $sAttribute
  3218. Case 9
  3219. $sResult = "FIRST_ORDERED_NODE_TYPE"
  3220. $sValue = ".singleNodeValue"
  3221. If $sAttribute <> "" And StringLeft($sAttribute, 1) <> "." Then $sValue &= "." & $sAttribute
  3222. ; no datatypes
  3223. Case 10
  3224. $sQuery = "count(" & $sQuery & ")"
  3225. $sResult = "NUMBER_TYPE"
  3226. $sValue = ".numberValue"
  3227. Case 11
  3228. $sQuery = "contains(" & $sQuery & ",'" & $sAttribute & "')"
  3229. $sResult = "BOOLEAN_TYPE"
  3230. $sValue = ".booleanValue"
  3231. Case 12
  3232. $sQuery = "starts-with(" & $sQuery & ",'" & $sAttribute & "')"
  3233. $sResult = "BOOLEAN_TYPE"
  3234. $sValue = ".booleanValue"
  3235. Case 13
  3236. $sQuery = "substring-after(" & $sQuery & ",'" & $sAttribute & "')"
  3237. $sResult = "STRING_TYPE"
  3238. $sValue = ".stringValue"
  3239. Case 14
  3240. $sQuery = "substring-before(" & $sQuery & ",'" & $sAttribute & "')"
  3241. $sResult = "STRING_TYPE"
  3242. $sValue = ".stringValue"
  3243. Case Else
  3244. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(int) $iReturnType: 0-9 10-14: " & $iReturnType))
  3245. Return 0
  3246. EndSwitch
  3248. Local $sErrVal = "_FFXPath_Error: "
  3249. Local $sCommand
  3251. If $iReturnType < 6 Or $iReturnType >= 8 Then
  3253. $sCommand = 'try{FFau3.xpath=window.content.document.evaluate("' & $sQuery & '",window.content.document,null,XPathResult.' & $sResult & ',null)'
  3254. $sCommand &= $sValue & ";}catch(e){'" & $sErrVal & "'+e;};"
  3255. ElseIf $iReturnType = 6 Or $iReturnType = 7 Then
  3257. Local $sDelimiter = "FF" & Random(100, 999, 1)
  3258. $sCommand = 'try{with(FFau3){'
  3259. $sCommand &= 'this.obj=window.content.document.evaluate("' & $sQuery & '",window.content.document,null,XPathResult.' & $sResult & ',null);'
  3260. $sCommand &= 'this.tmp=this.obj.snapshotLength;'
  3261. If Not StringInStr($sAttribute, "=") Then
  3262. $sCommand &= 'for(var i=0;i<this.obj.snapshotLength;i++){this.tmp+="' & $sDelimiter & '"+this.obj.snapshotItem(i)' & $sValue & ';};'
  3263. Else
  3264. $sCommand &= 'for(var i=0;i<this.obj.snapshotLength;i++){this.obj.snapshotItem(i)' & $sValue & ';};'
  3265. EndIf
  3266. $sCommand &= "this.tmp;}}catch(e){'" & $sErrVal & "' +e;};"
  3267. EndIf
  3269. Local $sRetVal = _FFCmd("FFau3.xpath=null;" & $sCommand)
  3270. If Not StringInStr($sRetVal, $sErrVal) Then
  3271. __FFFilterString($sRetVal, $iFilter)
  3272. If $iFilter > 0 Then __FFFilterString($sRetVal, $iFilter)
  3274. If $iReturnType = 6 Or $iReturnType = 7 Then
  3275. Return StringSplit($sRetVal, $sDelimiter, 3)
  3276. Else
  3277. If $iReturnType < 10 And $sAttribute = "" Then Return "OBJECT|FFau3.xpath"
  3278. Return StringStripWS($sRetVal, 3)
  3279. EndIf
  3280. Else
  3281. If StringInStr($sRetVal, "TypeError") And StringInStr($sRetVal, "is null") Then
  3282. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "singleNodeValue is null $sQuery: " & $sQuery & " - " & $sAttribute))
  3283. ElseIf StringInStr($sRetVal, "NS_ERROR_DOM_INVALID_EXPRESSION_ERR") Then
  3284. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidExpression, "NS_ERROR_DOM_INVALID_EXPRESSION_ERR $sQuery: " & $sQuery))
  3285. Else
  3286. SetError(__FFError($sFuncName, $_FF_ERROR_RetValue, $sRetVal))
  3287. EndIf
  3288. Return 0
  3289. EndIf
  3290. EndFunc ;==>_FFXPath
  3292. ; #FUNCTION# ===================================================================
  3293. ; Name ..........: _FFObjGet
  3294. ; Description ...: Returns an object (string to use with the other _FFObj* functions)
  3295. ; Beschreibung ..: Liefert ein Object zurueck. (String zur Verwendung mit den anderen _FFObj* Funktionen)
  3296. ; AutoIt Version : V3.3.0.0
  3297. ; Syntax ........: _FFObjGet($sElement[, $sMode = "id"[, $iIndex = 0]])
  3298. ; Parameter(s): .: $sElement -
  3299. ; $sMode - Optional: (Default = "id") :
  3300. ; | ID
  3301. ; | Name + index
  3302. ; | Class + index
  3303. ; | Tag-name + index
  3304. ; $iIndex - Optional: (Default = 0) :
  3305. ; Return Value ..: Success - String (object to use in the _FFObj* functions)
  3306. ; Failure - Epmty string
  3307. ; @ERROR -
  3308. ; Author(s) .....: Thorsten Willert
  3309. ; Date ..........: Fri Oct 16 19:08:02 CEST 2009
  3310. ; Link ..........:
  3311. ; Related .......: _FFObj, _FFObjNew, _FFObjDelete, _FFClick
  3312. ; Example .......: Yes
  3313. ; ==============================================================================
  3314. Func _FFObjGet($sElement, $sMode = "id", $iIndex = 0)
  3315. Local Const $sFuncName = "_FFObjGet"
  3317. Local $sRet
  3319. Switch StringLower($sMode)
  3320. Case "id"
  3321. $sRet = ".getElementById('" & $sElement & "')"
  3322. Case "name"
  3323. $sRet = ".getElementsByName('" & $sElement & "')[" & $iIndex & "]"
  3324. Case "class"
  3325. $sRet = ".getElementsByClassName('" & $sElement & "')[" & $iIndex & "]"
  3326. Case "tag"
  3327. $sRet = ".getElementsByTagName('" & $sElement & "')[" & $iIndex & "]"
  3328. Case Else
  3329. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(id|name|class|tag) $sMode: " & $sMode))
  3330. Return ""
  3331. EndSwitch
  3333. Local $RetVal = _FFCmd( "window.content.document" & $sRet & "?1:0;")
  3334. If Not @error And $RetVal = 1 Then
  3335. Return "OBJECT|" & $sRet
  3336. Else
  3337. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sElement not found: " & $sElement))
  3338. Return ""
  3339. EndIf
  3340. EndFunc ;==>_FFObjGet
  3342. ; #FUNCTION# ===================================================================
  3343. ; Name ..........: _FFObj
  3344. ; Description ...: Returns or sets an value of an attribute.
  3345. ; Beschreibung ..: Liefert oder setzt den Wert eines Attributes.
  3346. ; AutoIt Version : V3.3.0.0
  3347. ; Syntax ........: _FFObj($sObject[, $sAttrib = ""[, $vValue = ""]])
  3348. ; Parameter(s): .: $sObject - Object or element in FireFox
  3349. ; $sAttrib - Optional: (Default = "") :
  3350. ; $vValue - Optional: (Default = "") :
  3351. ; Return Value ..: Success -
  3352. ; Failure - ""
  3353. ; @ERROR -
  3354. ; Author(s) .....: Thorsten Willert
  3355. ; Date ..........: Fri Oct 16 19:07:54 CEST 2009
  3356. ; Link ..........:
  3357. ; Related .......: _FFObjGet, _FFObjNew, _FFObjDelete
  3358. ; Example .......: Yes
  3359. ; ==============================================================================
  3360. Func _FFObj($sObject, $sAttrib = "", $vValue = "")
  3361. Local Const $sFuncName = "_FFObj"
  3363. If StringLeft($sObject, 7) = "OBJECT|" Then $sObject = StringMid($sObject, 8)
  3364. If StringLeft($sObject, 1) = "." Then $sObject = "window.content.document" & $sObject
  3365. If Not (StringInStr($sObject, "window.content") Or StringInStr($sObject, "FFau3.")) Then $sObject = "FFau3." & $sObject
  3367. If $sAttrib <> "" Then
  3368. If Not StringInStr($sAttrib, "(") Then
  3369. _FFCmd($sObject & ".hasAttribute('" & $sAttrib & "')")
  3370. If @error And $vValue <> "" Then
  3371. ;SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "$sAttrib not found: " & $sAttrib))
  3372. _FFCmd($sObject & "setAttributeNode('" & $sAttrib & "')")
  3373. EndIf
  3374. EndIf
  3375. $sObject &= "." & $sAttrib
  3377. If IsInt($vValue) Then
  3378. $sObject &= "=" & $vValue
  3379. ElseIf IsBool($vValue) Then
  3380. $sObject &= "=" & __FFB2S($vValue)
  3381. ElseIf $vValue <> "" Then
  3382. $sObject &= "='" & $vValue & "'"
  3383. EndIf
  3384. EndIf
  3386. Local $RetVal = _FFCmd($sObject)
  3387. If Not @error And $RetVal <> "_FFCmd_Err" Then
  3388. Return $RetVal
  3389. Else
  3390. SetError(__FFError($sFuncName, $_FF_ERROR_NoMatch, "$sObject not found: " & $sObject))
  3391. Return ""
  3392. EndIf
  3393. EndFunc ;==>_FFObj
  3395. ; #FUNCTION# ===================================================================
  3396. ; Name ..........: _FFObjNew
  3397. ; Description ...: Creates a new object in FireFox.
  3398. ; Beschreibung ..: Erzeugt ein neues Object in FireFox.
  3399. ; AutoIt Version : V3.3.0.0
  3400. ; Syntax ........: _FFObjNew($sNewObject, $sObject)
  3401. ; Parameter(s): .: $sNewObject -
  3402. ; $sObject -
  3403. ; Return Value ..: Success - 1
  3404. ; Failure - 0
  3405. ; @ERROR -
  3406. ; Author(s) .....: Thorsten Willert
  3407. ; Date ..........: Tue Apr 07 15:14:59 CEST 2009
  3408. ; Link ..........:
  3409. ; Related .......: _FFObjGet, _FFObj, _FFObjDelete
  3410. ; Example .......: Yes
  3411. ; ==============================================================================
  3412. Func _FFObjNew($sNewObject, $sObject)
  3413. If StringRegExp($sNewObject, "[\W]+") Then Return 0
  3414. Local $RetVal = _FFCmd("try{FFau3." & $sNewObject & "=" & $sObject & "}catch(e){};FFau3." & $sNewObject & "?1:0;", 3000, False)
  3415. Return SetError(Number($RetVal), @extended, $RetVal)
  3416. EndFunc ;==>_FFObjNew
  3418. ; #FUNCTION# ===================================================================
  3419. ; Name ..........: _FFObjDelete
  3420. ; Description ...: Deletes an object in FireFox.
  3421. ; Beschreibung ..: Loescht ein Objekt in FireFox.
  3422. ; AutoIt Version : V3.3.0.0
  3423. ; Syntax ........: _FFObjDelete($sObject)
  3424. ; Parameter(s): .: $sObject -
  3425. ; Return Value ..: Success - 1
  3426. ; Failure - 0
  3427. ; @ERROR -
  3428. ; Author(s) .....: Thorsten Willert
  3429. ; Date ..........: Wed Apr 08 14:21:26 CEST 2009 @556 /Internet Time/
  3430. ; Link ..........:
  3431. ; Related .......: _FFObjGet, _FFObjNew, _FFObj
  3432. ; Example .......: Yes
  3433. ; ==============================================================================
  3434. Func _FFObjDelete($sObject)
  3435. Local $sFFau3 = "simulateevent getlinkinfo getlinks searchimagebysize searchlink searchtab closewin selectwin"
  3436. If StringInStr($sFFau3, StringLower($sObject)) Then Return 0
  3437. Return _FFCmd("delete FFau3." & $sObject & ";!FFau3." & $sObject & "?1:0;")
  3438. EndFunc ;==>_FFObjDelete
  3440. ; #FUNCTION# ===================================================================
  3441. ; Name ..........: _FFAu3Option
  3442. ; Description ...: Sets and get options for the FF.au3
  3443. ; Beschreibung ..: Abfrage und Setzen von Optionen für die FF.au3
  3444. ; AutoIt Version : V3.3.0.0
  3445. ; Syntax ........: _FFAu3Option($sOption[, $vValue = ""])
  3446. ; Parameter(s): .: $sOption - LoadWaitTimeOut
  3447. ; | SearchMode
  3448. ; | ComTrace
  3449. ; | ErrorMsgBox
  3450. ; $vValue - Optional: (Default = "") : if noe value is given, the current value is returned
  3451. ; | LoadWaitTimeOut (int / min. 1000)
  3452. ; | ComTrace (bool)
  3453. ; | ErrorMsgBox (bool)
  3454. ; Return Value ..: Success - 1 / current value
  3455. ; Failure - 0
  3456. ; @ERROR -
  3457. ; Author(s) .....: Thorsten Willert
  3458. ; Date ..........: Fri Nov 06 17:53:58 CET 2009
  3459. ; Link ..........:
  3460. ; Related .......:
  3461. ; Example .......: Yes
  3462. ; ==============================================================================
  3463. Func _FFAu3Option($sOption, $vValue="")
  3464. Local Const $sFuncName = "_FFOption"
  3466. Switch $sOption
  3467. Case "SearchMode"
  3468. If $vValue = "" Then Return $_FF_SEARCH_MODE
  3469. If Not IsInt($vValue) Then
  3470. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vValue: " & $vValue))
  3471. Return 0
  3472. EndIf
  3473. If $vValue > 1 Then $vValue = 0
  3474. $_FF_SEARCH_MODE = $vValue
  3475. Case "LoadWaitTimeOut"
  3476. If $vValue = "" Then Return $_FF_LOADWAIT_TIMEOUT
  3477. If Not IsInt($vValue) Then
  3478. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(int) $vValue: " & $vValue))
  3479. Return 0
  3480. EndIf
  3481. If $vValue < 1000 Then $vValue = 1000
  3482. $_FF_LOADWAIT_TIMEOUT = $vValue
  3483. Case "ComTrace"
  3484. If $vValue = "" Then Return $_FF_COM_TRACE
  3485. If Not IsBool($vValue) Then
  3486. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(bool) $vValue: " & $vValue))
  3487. Return 0
  3488. EndIf
  3489. $_FF_COM_TRACE = $vValue
  3490. Case "ErrorMsgBox"
  3491. If $vValue = "" Then Return $_FF_ERROR_MSGBOX
  3492. If Not IsBool($vValue) Then
  3493. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidDataType, "(bool) $vValue: " & $vValue))
  3494. Return 0
  3495. EndIf
  3496. $_FF_ERROR_MSGBOX = $vValue
  3497. Case Else
  3498. SetError(__FFError($sFuncName, $_FF_ERROR_InvalidValue, "(LoadWaitTimeOut|ComTrace|ErrorMsgBox) $sOption" & $sOption))
  3499. EndSwitch
  3501. Return 1
  3502. EndFunc
  3504. ;===============================================================================
  3505. ;
  3506. ; Internal Functions with names starting with two underscores will not be documented
  3507. ; as user functions
  3508. ;
  3509. ; #INTERNAL_USE_ONLY# ==========================================================
  3510. ; Name ..........: __FFRecv
  3511. ; Description ...:
  3512. ; AutoIt Version : V3.3.0.0
  3513. ; Syntax ........: __FFRecv([$iTimeOut = 10000])
  3514. ; Parameter(s): .: $iTimeOut - Optional: (Default = 10000) : TimeOut for __FFWaitForRepl
  3515. ; Return Value ..: Success - Return value from MozRepl
  3516. ; Failure - ""
  3517. ; @ERROR -
  3518. ; Author(s) .....: Thorsten Willert
  3519. ; Date ..........: Mon Mar 23 22:27:52 CET 2009 @936 /Internet Time/
  3520. ; ==============================================================================
  3521. Func __FFRecv($iTimeOut = 30000)
  3522. Local $sRet = __FFWaitForRepl($iTimeOut)
  3523. Local $iErr = @error
  3524. $sRet = StringStripWS($sRet, 3)
  3526. ; Removing leading and trailing "
  3527. If StringLeft($sRet, 1) = '"' Then $sRet = StringTrimLeft($sRet, 1)
  3528. If StringRight($sRet, 1) = '"' Then $sRet = StringTrimRight($sRet, 1)
  3530. ; String to bool
  3531. If $sRet = "true" Then
  3532. $sRet = 1
  3533. ElseIf $sRet = "false" Then
  3534. $sRet = 0
  3535. EndIf
  3537. If $_FF_COM_TRACE Then ConsoleWrite("__FFRecv: " & $sRet & @CRLF)
  3539. SetError($iErr)
  3540. Return $sRet
  3541. EndFunc ;==>__FFRecv
  3543. ; #INTERNAL_USE_ONLY# ==========================================================
  3544. ; Name ..........: __FFSend
  3545. ; Description ...:
  3546. ; AutoIt Version : V3.3.0.0
  3547. ; Syntax ........: __FFSend($sCommand)
  3548. ; Parameter(s): .: $sCommand - String to send
  3549. ; Return Value ..: Success - 1
  3550. ; Failure - 0
  3551. ; @ERROR -
  3552. ; Author(s) .....: Thorsten Willert
  3553. ; Date ..........: Mon Mar 23 22:26:09 CET 2009 @934 /Internet Time/
  3554. ; ==============================================================================
  3555. Func __FFSend($sCommand)
  3556. Local Const $sFuncName = "__FFSend"
  3558. If Not __FFIsSocket($_FF_GLOBAL_SOCKET) Then
  3559. SetError(__FFError($sFuncName, $_FF_ERROR_SocketError))
  3560. Return 0
  3561. EndIf
  3563. TCPSend($_FF_GLOBAL_SOCKET, $sCommand & @CRLF)
  3564. If Not @error Then
  3565. If $_FF_COM_TRACE Then ConsoleWrite("__FFSend: " & $sCommand & @CRLF)
  3566. Return 1
  3567. Else
  3568. SetError(__FFError($sFuncName, $_FF_ERROR_SendRecv, "TCPSend: " & $sCommand))
  3569. Return 0
  3570. EndIf
  3571. EndFunc ;==>__FFSend
  3573. ; #INTERNAL_USE_ONLY# ==========================================================
  3574. ; Name ..........: __FFChromeSelect
  3575. ; Description ...: Some shortcuts for chrome
  3576. ; AutoIt Version : V3.3.0.0
  3577. ; Syntax ........: __FFChromeSelect($sOpt)
  3578. ; Parameter(s): .: $sOpt - Shortcut
  3579. ; Return Value ..: Success - crome: + ....xul
  3580. ; Failure - crome: + $sOpt
  3581. ; @ERROR -
  3582. ; Author(s) .....: Thorsten Willert
  3583. ; Date ..........: Sat Feb 14 12:33:16 CET 2009 @523 /Internet Time/
  3584. ; ==============================================================================
  3585. Func __FFChromeSelect($sOpt)
  3586. Local $sXUL
  3588. Switch StringLower($sOpt)
  3589. Case "bookmarks"
  3590. $sXUL = "//browser/content/bookmarks/bookmarksPanel.xul"
  3591. Case "history"
  3592. $sXUL = "//browser/content/history/history-panel.xul"
  3593. Case "extensions"
  3594. $sXUL = "//mozapps/content/extensions/extensions.xul?type=extensions"
  3595. Case "advanced-scripts"
  3596. $sXUL = "//browser/content/preferences/advanced-scripts.xul"
  3597. Case "changeaction"
  3598. $sXUL = "//browser/content/preferences/changeaction.xul"
  3599. Case "prefs"
  3600. $sXUL = "//browser/content/preferences/preferences.xul"
  3601. Case "colors"
  3602. $sXUL = "//browser/content/preferences/colors.xul"
  3603. Case "connection"
  3604. $sXUL = "//browser/content/preferences/connection.xul"
  3605. Case "cookies"
  3606. $sXUL = "//browser/content/preferences/cookies.xul"
  3607. Case "downloads"
  3608. $sXUL = "//mozapps/content/downloads/downloads.xul"
  3609. Case "downloadactions"
  3610. $sXUL = "//browser/content/preferences/downloadactions.xul"
  3611. Case "fonts"
  3612. $sXUL = "//browser/content/preferences/fonts.xul"
  3613. Case "languages"
  3614. $sXUL = "//browser/content/preferences/languages.xul"
  3615. Case "permissions"
  3616. $sXUL = "//browser/content/preferences/permissions.xul"
  3617. Case "sanitize"
  3618. $sXUL = "//browser/content/preferences/sanitize.xul"
  3619. Case "fireftp"
  3620. $sXUL = "//fireftp/content/fireftp.xul"
  3621. Case Else
  3622. $sXUL = $sOpt
  3623. EndSwitch
  3625. Return "chrome:" & $sXUL
  3626. EndFunc ;==>__FFChromeSelect
  3628. ; #FUNCTION# ===================================================================
  3629. ; Name ..........: __FFFilterString
  3630. ; Description ...: Filter for strings
  3631. ; AutoIt Version : V3.3.0.0
  3632. ; Syntax ........: __FFFilterString(ByRef $sString[, $iMode = 1])
  3633. ; Parameter(s): .: $sString - String to filter
  3634. ; $iMode - Optional: (Default = 0) : removes nothing
  3635. ; - 0 = no filter
  3636. ; - 1 = removes non ascii characters
  3637. ; - 2 = removes all double whitespaces
  3638. ; - 4 = removes all double linefeeds
  3639. ; - 8 = removes all html-tags
  3640. ; - 16 = simple html-tag / entities convertor
  3641. ; Return Value ..: Success - Filterd String
  3642. ; Failure - Input String
  3643. ; Author(s) .....: Thorsten Willert
  3644. ; Date ..........: Wed Apr 08 20:58:17 CEST 2009 @832 /Internet Time/
  3645. ; ==============================================================================
  3646. Func __FFFilterString(ByRef $sString, $iMode = 0)
  3647. If $iMode = 0 Then Return $sString
  3648. ;16 simple HTML tag converter
  3649. If $iMode >= 16 And $iMode < 32 Then
  3650. Local $sRepl[2][6] = [["<br>", "&nbsp;", ">", "<", "&", """], _
  3651. [@CRLF, " ", ">", "<", "&", '"']]
  3652. $sString = StringRegExpReplace($sString, "<p.*>", @CRLF & @CRLF)
  3653. For $i = 0 To UBound($sRepl, 2) - 1
  3654. $sString = StringReplace($sString, $sRepl[0][$i], $sRepl[1][$i])
  3655. Next
  3656. $iMode -= 16
  3657. EndIf
  3658. ;8 Tag filter
  3659. If $iMode >= 8 And $iMode < 16 Then
  3660. $sString = StringRegExpReplace($sString, "<[^>]*>", "")
  3661. $iMode -= 8
  3662. EndIf
  3663. ; 4 remove all double cr, lf
  3664. If $iMode >= 4 And $iMode < 8 Then
  3665. $sString = StringRegExpReplace($sString, "([ \t]*[\n\r]+[ \t]*)", @CRLF)
  3666. $sString = StringRegExpReplace($sString, "[\n\r]+", @CRLF)
  3667. $iMode -= 4
  3668. EndIf
  3669. ; 2 remove all double withespaces
  3670. If $iMode = 2 Or $iMode = 3 Then
  3671. $sString = StringRegExpReplace($sString, "[[:blank:]]+", " ")
  3672. $sString = StringRegExpReplace($sString, "\n[[:blank:]]+", @CRLF)
  3673. $sString = StringRegExpReplace($sString, "[[:blank:]]+\n", "")
  3674. $iMode -= 2
  3675. EndIf
  3676. ; 1 remove all non ASCII
  3677. If $iMode = 1 Then
  3678. $sString = StringRegExpReplace($sString, "[^\x00-\x7F]", " ")
  3679. EndIf
  3681. Return $sString
  3682. EndFunc ;==>__FFFilterString
  3684. ; #INTERNAL_USE_ONLY# ==========================================================
  3685. ; Name ..........: __FFError
  3686. ; Description ...: Writes Error to the console and show message-boxes if the script is compiled
  3687. ; AutoIt Version : V3.3.0.0
  3688. ; Syntax ........: __FFError($sWhere, ByRef $i_FF_ERROR[, $sMessage = ""])
  3689. ; Parameter(s): .: $i_FF_ERROR - Error Const
  3690. ; $sMessage - Optional: (Default = "") : Additional Information
  3691. ; Return Value ..: Success - Error Const from $i_FF_ERROR
  3692. ; Author(s) .....: Thorsten Willert
  3693. ; Date ..........: Sat Jul 18 11:52:36 CEST 2009
  3694. ; ==============================================================================
  3695. Func __FFError($sWhere, Const ByRef $i_FF_ERROR, $sMessage = "")
  3696. Local $sOut, $sMsg
  3697. Sleep(200)
  3699. Switch $i_FF_ERROR
  3700. Case $_FF_ERROR_Success
  3701. Return $_FF_ERROR_Success
  3702. Case $_FF_ERROR_GeneralError
  3703. $sOut = "General Error"
  3704. Case $_FF_ERROR_SocketError
  3705. $sOut = "Socket Error"
  3706. Case $_FF_ERROR_InvalidDataType
  3707. $sOut = "Invalid data type"
  3708. Case $_FF_ERROR_InvalidValue
  3709. $sOut = "Invalid value"
  3710. Case $_FF_ERROR_Timeout
  3711. $sOut = "Timeout"
  3712. Case $_FF_ERROR_NoMatch
  3713. $sOut = "No match"
  3714. Case $_FF_ERROR_RetValue
  3715. $sOut = "Error return value"
  3716. Case $_FF_ERROR_SendRecv
  3717. $sOut = "Error TCPSend / TCPRecv"
  3718. Case $_FF_ERROR_ReplException
  3719. $sOut = "MozRepl Exception"
  3720. Case $_FF_ERROR_SendRecv
  3721. $sOut = "Error TCPSend / TCPRecv"
  3722. Case $_FF_ERROR_InvalidExpression
  3723. $sOut = "Invalid Expression"
  3724. EndSwitch
  3725. If $sMessage = "" Then
  3726. $sMsg = $sWhere & " ==> " & $sOut & @CRLF
  3727. ConsoleWriteError($sMsg)
  3728. If @Compiled Then
  3729. If $_FF_ERROR_MSGBOX And $i_FF_ERROR < 6 Then MsgBox(16, "FF.au3 Error:", $sMsg)
  3730. DllCall("kernel32.dll", "none", "OutputDebugString", "str", $sMsg)
  3731. EndIf
  3733. Else
  3734. $sMsg = $sWhere & " ==> " & $sOut & ": " & $sMessage & @CRLF
  3735. ConsoleWriteError($sMsg)
  3736. If @Compiled Then
  3737. If $_FF_ERROR_MSGBOX And $i_FF_ERROR < 6 Then MsgBox(16, "FF.au3 Error:", $sMsg)
  3738. DllCall("kernel32.dll", "none", "OutputDebugString", "str", $sMsg)
  3739. EndIf
  3740. EndIf
  3742. Return $i_FF_ERROR
  3743. EndFunc ;==>__FFError
  3745. ; #INTERNAL_USE_ONLY# ==========================================================
  3746. ; Name ..........: __FFIsIP
  3747. ; Description ...: IP4 check
  3748. ; AutoIt Version : V3.3.0.0
  3749. ; Syntax ........: __FFIsIP(ByRef $IP[, $bSubstring = False])
  3750. ; Parameter(s): .: $IP - IP4 Address
  3751. ; Return Value ..: Success - 1
  3752. ; Failure - 0
  3753. ; Author(s) .....: Thorsten Willert
  3754. ; Date ..........: Sun Feb 15 00:21:41 CET 2009
  3755. ; ==============================================================================
  3756. Func __FFIsIP(ByRef $IP, $bSubstring = False)
  3757. If $bSubstring Then
  3758. Return StringRegExp(StringStripWS($IP, 3), "(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])")
  3759. Else
  3760. Return StringRegExp(StringStripWS($IP, 3), "^(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9])\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[1-9]|0)\.(25[0-5]|2[0-4][0-9]|[0-1]{1}[0-9]{2}|[1-9]{1}[0-9]{1}|[0-9])$")
  3761. EndIf
  3762. EndFunc ;==>__FFIsIP
  3764. ; #INTERNAL_USE_ONLY# ==========================================================
  3765. ; Name ..........: __FFIsPort
  3766. ; Description ...: Port check
  3767. ; AutoIt Version : V3.3.0.0
  3768. ; Syntax ........: __FFIsPort(ByRef $iPort)
  3769. ; Parameter(s): .: $iPort - Port number 1024-65535
  3770. ; Return Value ..: Success - 1
  3771. ; Failure - 0
  3772. ; Author(s) .....: Thorsten Willert
  3773. ; Date ..........: 28. August 2007
  3774. ; ==============================================================================
  3775. Func __FFIsPort(ByRef $iPort)
  3776. Return (IsInt($iPort) And $iPort >= 1024 And $iPort <= 65535)
  3777. EndFunc ;==>__FFIsPort
  3779. ; #INTERNAL_USE_ONLY# ==========================================================
  3780. ; Name ..........: __FFIsSocket
  3781. ; Description ...: Socket check
  3782. ; AutoIt Version : V3.3.0.0
  3783. ; Syntax ........: __FFIsSocket(ByRef $Socket)
  3784. ; Parameter(s): .: $Socket -
  3785. ; Return Value ..: Success - 1
  3786. ; Failure - 0
  3787. ; Author(s) .....: Thorsten Willert
  3788. ; Date ..........: Tue Apr 07 11:08:05 CEST 2009 @422 /Internet Time/
  3789. ; ==============================================================================
  3790. Func __FFIsSocket(ByRef $Socket)
  3791. Return ($Socket > 0 And IsInt($Socket))
  3792. EndFunc ;==>__FFIsSocket
  3794. ; #INTERNAL_USE_ONLY# ==========================================================
  3795. ; Name ..........: __FFIsURL
  3796. ; Description ...: URL check
  3797. ; AutoIt Version : V3.3.0.0
  3798. ; Syntax ........: __FFIsURL(ByRef $URL)
  3799. ; Parameter(s): .: $URL - http/https/ftp/about/chrome/file
  3800. ; Return Value ..: Success - 1
  3801. ; Failure - 0
  3802. ; Author(s) .....: Thorsten Willert
  3803. ; Date ..........: Tue Jul 07 11:32:45 CEST 2009
  3804. ; Link ..........: http://geekswithblogs.net/casualjim/archive/2005/12/01/61722.aspx
  3805. ; ==============================================================================
  3806. Func __FFIsURL(ByRef $URL)
  3807. Return (StringRegExp($URL, '^^((ht|f)tp(s?)\:\/\/|~/|/)([\w]+:\w+@)?([a-zA-Z]{1}([\w\-]+\.)+([\w]{2,5}))(:[\d]{1,5})?((/?\w+/)+|/?)(\w+\.[\w]{3,4})?((\?\w+=\w+)?(&\w+=\w+)*)?') Or _
  3808. StringRegExp($URL, '^^((ht|f)tp(s?)\:\/\/|~/|/)(\d{1,3}\.){3}\d{1,3}(:[\d]{1,5})?(/.*)?$') Or _
  3809. StringLeft($URL, 6) = "about:" Or _
  3810. StringLeft($URL, 7) = "chrome:" Or _
  3811. StringLeft($URL, 10) = "localhost:" Or _
  3812. StringLeft($URL, 8) = "file:///")
  3813. EndFunc ;==>__FFIsURL
  3815. Func __FFCheckURL(ByRef $URL)
  3816. If Not __FFIsURL($URL) Then
  3817. If Not StringRegExp($URL, '^((ht|f)tp(s?)\:\/\/|~/|/)') Then $URL = "http://" & $URL
  3818. EndIf
  3820. Return __FFIsURL($URL)
  3821. EndFunc ;==>__FFCheckURL
  3823. ; #INTERNAL_USE_ONLY# ==========================================================
  3824. ; Name ..........: __FFB2S
  3825. ; Description ...: Bool to string
  3826. ; AutoIt Version : V3.3.0.0
  3827. ; Syntax ........: __FFB2S($bBool)
  3828. ; Parameter(s): .: $bBool - true / false
  3829. ; Return Value ..: Success - String "true" or "false"
  3830. ; Failure - ""
  3831. ; Author(s) .....: Thorsten Willert
  3832. ; Date ..........: Sun Feb 15 00:26:46 CET 2009
  3833. ; ==============================================================================
  3834. Func __FFB2S($bBool)
  3835. If $bBool Then
  3836. Return "true"
  3837. Else
  3838. Return "false"
  3839. EndIf
  3840. EndFunc ;==>__FFB2S
  3842. ; #INTERNAL_USE_ONLY# ==========================================================
  3843. ; Name ..........: __FFValue2JavaScript
  3844. ; Description ...:
  3845. ; AutoIt Version : V3.3.0.0
  3846. ; Syntax ........: __FFValue2JavaScript(ByRef $sValue)
  3847. ; Parameter(s): .: $sValue -
  3848. ; Return Value ..: Success -
  3849. ; Failure -
  3850. ; Author(s) .....: Thorsten Willert
  3851. ; Date ..........: Mon Apr 13 15:42:21 CEST 2009
  3852. ; ==============================================================================
  3853. Func __FFValue2JavaScript(ByRef $sValue)
  3854. If $sValue = "" Then Return ""
  3855. Local $sTmp = "", $c
  3857. $sValue = StringRegExpReplace($sValue, "([\\""'])", "\\$1")
  3858. $sValue = StringReplace($sValue, @CRLF, "\n")
  3859. $sValue = StringReplace($sValue, @CR, "\r")
  3860. $sValue = StringReplace($sValue, @TAB, "\t")
  3862. If StringRegExp($sValue, "[^\x00-\x7F]", 0) Then
  3863. ;$sValue = BinaryToString(StringToBinary($sValue,1),4)
  3864. For $i = 0 To StringLen($sValue)
  3865. $c = StringMid($sValue, $i, 1)
  3866. If StringRegExp($c, "[^\x00-\x7F]", 0) Then $c = StringFormat("\\u%0000s", Hex(AscW($c), 4))
  3867. $sTmp &= $c
  3868. Next
  3869. $sValue = $sTmp
  3870. EndIf
  3872. Return $sValue
  3874. EndFunc ;==>__FFValue2JavaScript
  3876. ; #INTERNAL_USE_ONLY# ==========================================================
  3877. ; Name ..........: __FFSendJavaScripts
  3878. ; Description ...: JavaScript functions
  3879. ; AutoIt Version : V3.3.0.0
  3880. ; Syntax ........: __FFSendJavaScripts([$bRefresh = False[, $bTrace = False]])
  3881. ; Parameter(s): .: $bRefresh - Optional: (Default = false) : Send again to FF
  3882. ; Return Value ..: Success - 1
  3883. ; Failure - 0
  3884. ; Author(s) .....: Thorsten Willert
  3885. ; Date ..........: Wed Oct 28 15:33:16 CET 2009 @648 /Internet Time/
  3886. ; Link ..........: http://developer.mozilla.org/en/docs/DOM:event.initMouseEvent
  3887. ; ==============================================================================
  3888. Func __FFSendJavaScripts($bRefresh = true, $bTrace = False)
  3890. Local $bTrc = $_FF_COM_TRACE
  3891. $_FF_COM_TRACE = $bTrace
  3893. If _FFCmd("repl.search(/FFau3/i)", 3000) = "FFau3" And Not $bRefresh Then
  3894. $_FF_COM_TRACE = $bTrace
  3895. Return 1
  3896. EndIf
  3897. If $bRefresh Then _FFCmd('try{delete FFau3;}catch(e){e};')
  3899. ConsoleWrite("__FFSendJavaScripts: Sending functions to FireFox .")
  3901. Local $sJavaScript = 'FFau3=new Object();FFau3.tmp="";FFau3.obj=null;FFau3.WCD=window.content.top.document;'
  3903. _FFCmd($sJavaScript)
  3904. ConsoleWrite(".")
  3906. ; sEvent = MouseEvents | KeyboardEvent | Event
  3907. ; sType:
  3908. ; MouseEvents: click
  3909. ; KeyboardEvent: keyup | keydown | keypress
  3910. ; Event: change | select | focus | blur | resize
  3911. ; args: oObject, sEvent, sType[, Key[, X[ ,Y]]]
  3912. ; key = dec-ASCII-code
  3913. ; X = clientX
  3914. ; Y = clientY
  3915. $sJavaScript = 'FFau3.simulateEvent=function simulateEvent(oObject,sEvent,sType){'
  3916. $sJavaScript &= 'try{ var evt=document.createEvent(sEvent);'
  3917. $sJavaScript &= 'switch(sEvent){'
  3918. $sJavaScript &= ' case "MouseEvents":'
  3919. $sJavaScript &= ' evt.initMouseEvent(sType,true,true,window,0,0,0,simulateEvent.arguments[4],simulateEvent.arguments[5],false,false,false,false,0,null);break;'
  3920. $sJavaScript &= ' case "KeyboardEvent":'
  3921. $sJavaScript &= ' evt.initKeyEvent(sType,true,true,null,false,false,false,false,simulateEvent.arguments[3],0);break;'
  3922. $sJavaScript &= ' case "Event":'
  3923. $sJavaScript &= ' evt.initEvent(sType,true,true);break; }'
  3924. $sJavaScript &= 'oObject.dispatchEvent(evt);'
  3925. $sJavaScript &= 'return 1;'
  3926. $sJavaScript &= '}catch(e){return -3;}return 0;};'
  3928. _FFCmd($sJavaScript)
  3929. ConsoleWrite(".")
  3931. ; GetLinkInfo(): JavaScript to get all informations about a link
  3932. $sJavaScript = 'FFau3.GetLinkInfo = function GetLinkInfo(i,sLimiter)'
  3933. $sJavaScript &= '{ var info=""; with(FFau3.WCD) {'
  3934. $sJavaScript &= 'try {'
  3935. $sJavaScript &= 'info = links[i].href + sLimiter;'
  3936. $sJavaScript &= 'info += links[i].hash + sLimiter;'
  3937. $sJavaScript &= 'info += links[i].search + sLimiter;'
  3938. $sJavaScript &= 'info += links[i].name + sLimiter;'
  3939. $sJavaScript &= 'info += links[i].id + sLimiter;'
  3940. $sJavaScript &= 'info += links[i].text + sLimiter;'
  3941. $sJavaScript &= 'info += links[i].innerHTML + sLimiter;'
  3942. $sJavaScript &= 'info += (links[i].hasAttribute("target") ? links[i].target + sLimiter : sLimiter);'
  3943. $sJavaScript &= 'info += links[i].protocol + sLimiter;'
  3944. $sJavaScript &= 'info += links[i].port;'
  3945. $sJavaScript &= 'return info.replace(/[\s]+/g," ");'
  3946. $sJavaScript &= '}catch(e){return -3;}'
  3947. $sJavaScript &= '}};'
  3949. _FFCmd($sJavaScript)
  3950. ConsoleWrite(".")
  3952. ; GetLinks(): JavaScript to get an information of all links
  3953. $sJavaScript = 'FFau3.GetLinks = function GetLinks(sLimiter)'
  3954. $sJavaScript &= '{ var res=""; with(FFau3.WCD) {try{'
  3955. $sJavaScript &= 'for (var i=0;i<links.length;i++){res += this.GetLinkInfo(i,sLimiter) + "\n";}'
  3956. $sJavaScript &= 'return res; } catch(e) {return -3;}}};'
  3958. _FFCmd($sJavaScript)
  3959. ConsoleWrite(".")
  3961. ; SearchImageBySize(): JavaScript
  3962. $sJavaScript = 'FFau3.SearchImageBySize = function SearchImageBySize(iH, iW, sMode, iP){'
  3963. $sJavaScript &= 'var sRet=""; with(FFau3.WCD) {'
  3964. $sJavaScript &= 'for (var i=0;i<images.length;i++){'
  3965. $sJavaScript &= 'var iWidth=images[i].width;'
  3966. $sJavaScript &= 'var iHeight=images[i].height;'
  3967. $sJavaScript &= 'switch (sMode) {'
  3968. $sJavaScript &= 'case "eq": if ((iWidth<=iW+iW/100*iP && iHeight<=iH+iH/100*iP && iWidth>=iW-iW/100*iP && iHeight>=iH-iH/100*iP)) sRet += " " + i; break;'
  3969. $sJavaScript &= 'case "lt": if ((iWidth<=iW && iHeight<=iH) && (iWidth>=iW-iW/100*iP && iHeight>=iH-iH/100*iP)) sRet += " " + i; break;'
  3970. $sJavaScript &= 'case "gt": if ((iWidth>=iW && iHeight>=iH) && (iWidth<=iW+iW/100*iP && iHeight<=iH+iH/100*iP)) sRet += " " + i; break;'
  3971. $sJavaScript &= 'default: return -1}'
  3972. $sJavaScript &= '} return sRet; } };'
  3974. _FFCmd($sJavaScript)
  3975. ConsoleWrite(".")
  3977. $sJavaScript = "FFau3.findPos = function findPos(obj){try{"
  3978. $sJavaScript &= "var curleft=curtop=0;"
  3979. $sJavaScript &= "if (obj.offsetParent) {"
  3980. $sJavaScript &= "do {curleft+=obj.offsetLeft;"
  3981. $sJavaScript &= " curtop+=obj.offsetTop;"
  3982. $sJavaScript &= "} while (obj=obj.offsetParent);"
  3983. $sJavaScript &= "return curleft+' '+curtop;"
  3984. $sJavaScript &= "}}catch(e){return -3}}"
  3986. _FFCmd($sJavaScript)
  3987. ConsoleWrite(".")
  3989. ; SearchTab(); JavaScript to search a tab by label
  3990. $sJavaScript = 'FFau3.SearchTab = function SearchTab(RegEx)'
  3991. $sJavaScript &= '{try{'
  3992. $sJavaScript &= 'for (var i=0;i<gBrowser.mTabs.length;i++){'
  3993. $sJavaScript &= 'if (RegExp(RegEx).test(gBrowser.mTabs[i].label)) return i;};'
  3994. $sJavaScript &= 'return -1;}catch(e){return -3;}};'
  3996. _FFCmd($sJavaScript)
  3997. ConsoleWrite(".")
  3999. ; CloseWin()
  4000. $sJavaScript = 'FFau3.CloseWin = function CloseWin(sSearch,sMode){'
  4001. $sJavaScript &= 'var win;var enum = Components.classes["@mozilla.org/appshell/window-mediator;1"].getService(Components.interfaces.nsIWindowMediator).getEnumerator("navigator:browser");'
  4002. $sJavaScript &= 'while(enum.hasMoreElements() ){'
  4003. $sJavaScript &= 'win=enum.getNext();'
  4004. $sJavaScript &= 'switch(sMode){'
  4005. $sJavaScript &= 'case "title": if (win.title.indexOf(sSearch) != -1){win.close();return 1;};break;'
  4006. $sJavaScript &= 'case "label": if (FFau3.SearchTab(sSearch)>-1){win.close();return 1;};break;'
  4007. $sJavaScript &= 'case "href": if (win.content.document.location.href.indexOf(sSearch) != -1){win.close();return 1;}break;'
  4008. $sJavaScript &= 'default: return -1;'
  4009. $sJavaScript &= '}}return -1;};'
  4011. _FFCmd($sJavaScript)
  4012. ConsoleWrite(".")
  4014. ; SelectWin()
  4015. $sJavaScript = 'FFau3.SelectWin = function SelectWin(sSearch,sMode,sType){'
  4016. $sJavaScript &= 'var win;var enum = Components.classes["@mozilla.org/appshell/window-mediator;1"].getService(Components.interfaces.nsIWindowMediator).getEnumerator(sType);'
  4017. $sJavaScript &= 'while(enum.hasMoreElements() ){'
  4018. $sJavaScript &= 'win=enum.getNext();'
  4019. $sJavaScript &= 'switch(sMode){'
  4020. $sJavaScript &= 'case "title": if (win.title.indexOf(sSearch) != -1){repl.enter(win);return 1;};break;'
  4021. $sJavaScript &= 'case "label": if (FFau3.SearchTab(sSearch)>-1){repl.enter(win);return 1;};break;'
  4022. $sJavaScript &= 'case "href": if (win.content.document.location.href.indexOf(sSearch) != -1){repl.enter(win);return 1;};break;'
  4023. $sJavaScript &= 'default: return -1};'
  4024. $sJavaScript &= '}return -1;};'
  4026. _FFCmd($sJavaScript)
  4027. ConsoleWrite(". done" & @CRLF)
  4029. $_FF_COM_TRACE = $bTrc
  4030. ;
  4031. Return 1
  4033. EndFunc ;==>__FFSendJavaScripts
  4035. ; #INTERNAL_USE_ONLY# ==========================================================
  4036. ; Name ..........: __FFWaitForRepl
  4037. ; Description ...:
  4038. ; AutoIt Version : V3.3.0.0
  4039. ; Syntax ........: __FFWaitForRepl($iTimeOut)
  4040. ; Parameter(s): .: $iTimeOut
  4041. ; Return Value ..: Success - Return value from MozRepl
  4042. ; Failure - ""
  4043. ; @ERROR -
  4044. ; Author(s) .....: Thorsten Willert
  4045. ; Date ..........: Mon Mar 23 22:19:52 CET 2009 @930 /Internet Time/
  4046. ; ==============================================================================
  4047. Func __FFWaitForRepl($iTimeOut)
  4048. Local Const $sFuncName = "__FFWaitForRepl"
  4050. Local $recv, $sRet = "", $TimeOutTimer = TimerInit()
  4051. If $iTimeOut < 200 Then $iTimeOut = 200
  4053. While TimerDiff($TimeOutTimer) < $iTimeOut
  4055. ; connection delay
  4056. Sleep($_FF_CON_DELAY)
  4058. $recv = TCPRecv($_FF_GLOBAL_SOCKET, 4096)
  4059. ;ConsoleWrite($recv & @CRLF)
  4060. ; TCP error
  4061. If @error Then
  4062. SetError(__FFError($sFuncName, $_FF_ERROR_SendRecv, "TCPRecv :" & @error))
  4063. Return ""
  4064. EndIf
  4065. $sRet &= $recv
  4067. ; error from MozRepl
  4068. If StringRegExp($recv, "!!!(.*?)(TypeError|Exception|ReferenceError):?") Then
  4069. $recv = StringLeft($recv, StringInStr($recv, "location") - 1)
  4070. SetError(__FFError($sFuncName, $_FF_ERROR_ReplException, StringStripWS($recv, 3)))
  4071. Return ""
  4072. ElseIf StringInStr($recv, "....>") Then
  4073. __FFSend(";") ; MozRepl-Reset
  4074. Sleep(100)
  4075. SetError(__FFError($sFuncName, $_FF_ERROR_RetValue, "MozRepl ....>"))
  4076. Return ""
  4077. ElseIf StringInStr($recv, "beginning of the line to force evaluation") Then
  4078. Sleep(500) ; first connection delay
  4079. EndIf
  4081. ; multiple connections to MozRepl (e.g repl2?> ...)
  4082. If StringRegExp($recv, "repl[\d]?>") Then Return StringRegExpReplace($sRet, "repl[\d]?>", "")
  4083. WEnd
  4085. ; Timeout
  4086. SetError(__FFError($sFuncName, $_FF_ERROR_Timeout, Round(TimerDiff($TimeOutTimer)) & "ms > " & $iTimeOut & "ms $iTimeOut"))
  4087. Return ""
  4089. EndFunc ;==>__FFWaitForRepl
  4091. ; #INTERNAL_USE_ONLY# ==========================================================
  4092. ; Name ..........: __FFStartProcess
  4093. ; Description ...: Starts the firefox.exe
  4094. ; AutoIt Version : V3.3.0.0
  4095. ; Syntax ........: __FFStartProcess([$sURL = "about:blank"[, $bNewWin = False[, $sProfile = "default"[, $bNoRemote = False[, $bHide = False[, $iPort = 4242[, $iTimeOut = 30000]]]]]]])
  4096. ; Parameter(s): .: $sProfile - Optional: (Default = "default") :
  4097. ; $bNewWin - Optional: (Default = false) :
  4098. ; $bNoRemote - Optional: (Default = false) :
  4099. ; $bHide - Optional: (Default = False) :
  4100. ; $iPort - Optional: (Default = 4242) :
  4101. ; $iTimeOut - Optional: (Default = 30000) : min. 2000ms
  4102. ; Return Value ..: Success - 1
  4103. ; Failure - 0
  4104. ; @ERROR -
  4105. ; @EXTENDED - PID from the firefox.exe
  4106. ; Author(s) .....: Thorsten Willert
  4107. ; Date ..........: Wed Nov 04 16:01:59 CET 2009
  4108. ; ==============================================================================
  4109. Func __FFStartProcess($sURL = "about:blank", $bNewWin = False, $sProfile = "default", $bNoRemote = False, $bHide = False, $iPort = 4242, $iTimeOut = 30000)
  4110. Local Const $sFuncName = "__FFStartProcess"
  4112. Local $PID = -1
  4113. Local $sNoRemote = "", $sNewWin
  4114. Local $sProcName = $_FF_PROC_NAME
  4116. If $sProfile = "default" Then
  4117. $sProfile = ''
  4118. Else
  4119. $sProfile = ' -P "' & $sProfile & '"'
  4120. EndIf
  4121. If $bNoRemote Then $sNoRemote = "-no-remote"
  4122. If $bNewWin Then $sNewWin = "-new-window"
  4123. $sURL = '"' & $sURL & '"'
  4124. If $iTimeOut < 2000 Then $iTimeOut = 2000
  4126. Local $sHKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox"
  4127. Local $sFFExe = RegRead($sHKLM & "\" & RegRead($sHKLM, "CurrentVersion") & "\Main", "PathToExe")
  4128. If @error Then
  4129. SetError(__FFError($sFuncName, $_FF_ERROR_GeneralError, "Error reading registry entry for FireFox." & @crlf & _
  4130. "HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\Mozilla Firefox\*CurrentVersion*\Main\PathToExe" & @crlf & _
  4131. "Error from RegRead: " & @error))
  4132. Return 0
  4133. EndIf
  4135. Local $sCommand = StringFormat('"%s" %s %s %s -repl %i %s', $sFFExe, $sNewWin, $sURL, $sNoRemote, $iPort, $sProfile)
  4136. $PID = Run($sCommand)
  4137. If $bHide Then BlockInput(1)
  4139. Local $iTimeOutTimer = TimerInit()
  4140. While 1
  4141. Sleep(2000)
  4142. If ProcessExists($sProcName) Then ExitLoop
  4143. If (TimerDiff($iTimeOutTimer) > $iTimeOut) Then
  4144. SetError(__FFError($sFuncName, $_FF_ERROR_Timeout, "Browser process not exists: " & $sProcName))
  4145. BlockInput(0)
  4146. Return 0
  4147. EndIf
  4148. WEnd
  4150. If $bHide Then
  4151. Local $WINTITLE_MATCH_MODE = AutoItSetOption("WinTitleMatchMode", 4)
  4152. WinWaitActive("[CLASS:MozillaUIWindowClass]")
  4153. Sleep(500)
  4154. WinSetState("[CLASS:MozillaUIWindowClass]", "", @SW_MINIMIZE)
  4155. BlockInput(0)
  4156. AutoItSetOption("WinTitleMatchMode", $WINTITLE_MATCH_MODE)
  4157. Else
  4158. Sleep(1000)
  4159. EndIf
  4161. If $_FF_COM_TRACE Then ConsoleWrite('__FFStartProcess: "' & $sCommand & @CRLF)
  4163. SetExtended($PID)
  4164. Return 1
  4165. EndFunc ;==>__FFStartProcess
comments powered by Disqus