|
发表于 2009-12-11 11:28:59
|
显示全部楼层
#include <ie.au3>
$oIE=_IECreate("www.google.cn")
myGetIeForms($oIE)
Func myGetIeForms($o_IE,$s_form_outFile="form.ini")
FileDelete($s_form_outFile)
If IsObj($o_IE) Then
Local $oForms = _IEFormGetCollection ($o_IE)
Local $oForm
;MsgBox(0, "Forms Info", "There are " & @extended & " forms on this page")
For $oForm In $oForms
Local $oQuerys = _IEFormGetObjByName ($o_IE, $oForm.name), $oQuery
IniWrite($s_form_outFile,$oForm.name, "@",$oForm.action & ","&$oForm.method )
For $oQuery In $oQuerys
;MsgBox(0, $oForm.name, $oQuery.name)
IniWrite($s_form_outFile,$oForm.name, $oQuery.name, $oQuery.value&","&$oQuery.type)
Next
Next
Return 1
Else
Return 0
EndIf
EndFunc |
|