home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 January / PCWorld_2007-01_cd.bin / v cisle / autoit / autoit-v3.2.0.1-setup.exe / Examples / Helpfile / _IEFormElementCheckboxSelect.au3 < prev    next >
Encoding:
Text File  |  2006-07-14  |  3.2 KB  |  77 lines
  1. ; *******************************************************
  2. ; Example 1 - Open a browser with the form example, get reference to form, select and
  3. ;                deselect the checkboxes byValue.  Since $s_Name is not specified, operate
  4. ;                on the collection of all <input type=checkbox> elements in the form
  5. ;                Note: You will likely need to scroll down on the page to see the changes
  6. ; *******************************************************
  7. ;
  8. #include <IE.au3>
  9. $oIE = _IE_Example ("form")
  10. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  11. For $i = 1 To 5
  12.     _IEFormElementCheckboxSelect ($oForm, "gameBasketball", "", 1, "byValue")
  13.     Sleep(1000)
  14.     _IEFormElementCheckboxSelect ($oForm, "gameFootball", "", 1, "byValue")
  15.     Sleep(1000)
  16.     _IEFormElementCheckboxSelect ($oForm, "gameTennis", "", 1, "byValue")
  17.     Sleep(1000)
  18.     _IEFormElementCheckboxSelect ($oForm, "gameBaseball", "", 1, "byValue")
  19.     Sleep(1000)
  20.     _IEFormElementCheckboxSelect ($oForm, "gameBasketball", "", 0, "byValue")
  21.     Sleep(1000)
  22.     _IEFormElementCheckboxSelect ($oForm, "gameFootball", "", 0, "byValue")
  23.     Sleep(1000)
  24.     _IEFormElementCheckboxSelect ($oForm, "gameTennis", "", 0, "byValue")
  25.     Sleep(1000)
  26.     _IEFormElementCheckboxSelect ($oForm, "gameBaseball", "", 0, "byValue")
  27.     Sleep(1000)
  28. Next
  29.  
  30. ; *******************************************************
  31. ; Example 2 - Open a browser with the form example, get reference to form, select and
  32. ;                deselect the checkboxes byIndex.  Since $s_Name is not specified, operate
  33. ;                on the collection of all <input type=checkbox> elements in the form
  34. ;                Note: You will likely need to scroll down on the page to see the changes
  35. ; *******************************************************
  36. ;
  37. #include <IE.au3>
  38. $oIE = _IE_Example ("form")
  39. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  40. For $i = 1 To 5
  41.     _IEFormElementCheckboxSelect ($oForm, 3, "", 1, "byIndex")
  42.     Sleep(1000)
  43.     _IEFormElementCheckboxSelect ($oForm, 2, "", 1, "byIndex")
  44.     Sleep(1000)
  45.     _IEFormElementCheckboxSelect ($oForm, 1, "", 1, "byIndex")
  46.     Sleep(1000)
  47.     _IEFormElementCheckboxSelect ($oForm, 0, "", 1, "byIndex")
  48.     Sleep(1000)
  49.     _IEFormElementCheckboxSelect ($oForm, 3, "", 0, "byIndex")
  50.     Sleep(1000)
  51.     _IEFormElementCheckboxSelect ($oForm, 2, "", 0, "byIndex")
  52.     Sleep(1000)
  53.     _IEFormElementCheckboxSelect ($oForm, 1, "", 0, "byIndex")
  54.     Sleep(1000)
  55.     _IEFormElementCheckboxSelect ($oForm, 0, "", 0, "byIndex")
  56.     Sleep(1000)
  57. Next
  58.  
  59. ; *******************************************************
  60. ; Example 3 - Open a browser with the form example, get reference to form, select and
  61. ;                deselect the checkboxes byIndex in the group that shares the name checkboxG2Example
  62. ;                Note: You will likely need to scroll down on the page to see the changes
  63. ; *******************************************************
  64. ;
  65. #include <IE.au3>
  66. $oIE = _IE_Example ("form")
  67. $oForm = _IEFormGetObjByName ($oIE, "ExampleForm")
  68. For $i = 1 To 5
  69.     _IEFormElementCheckboxSelect ($oForm, 0, "checkboxG2Example", 1, "byIndex")
  70.     Sleep(1000)
  71.     _IEFormElementCheckboxSelect ($oForm, 1, "checkboxG2Example", 1, "byIndex")
  72.     Sleep(1000)
  73.     _IEFormElementCheckboxSelect ($oForm, 0, "checkboxG2Example", 0, "byIndex")
  74.     Sleep(1000)
  75.     _IEFormElementCheckboxSelect ($oForm, 1, "checkboxG2Example", 0, "byIndex")
  76.     Sleep(1000)
  77. Next