AutoIt Français

Code : Tout sélectionner

#include <StringConstants.au3>
#include <WinHttp.au3>

Local $aArray = 0, _
$iOffset = 1

$source = '<form name="turlututu" action="go_laba"><input name="tutu"><input name="toto"></form><form name="youyou" action="go_ici"><input name="titi"></form>'
;$source = HttpPost("http://www.enseignement.polytechnique.fr/informatique/profs/Olivier.Serre/Memos/Formulaires_CSS/index.html", "")

Func recup($choix)
   While 1
      $FORM = StringRegExp($source, '<form (.*?)>', $STR_REGEXPARRAYMATCH, $iOffset)
      If @error Then ExitLoop
      $iOffset = @extended
      For $a = 0 To UBound($FORM) - 1
         $FORM_NAME = StringRegExp($FORM[$a], 'name="(.*?)"', $STR_REGEXPARRAYGLOBALMATCH)
         If UBound($FORM_NAME) <> 0 Then
            $FORM_NAME = StringRegExp($FORM[$a], 'name="(.*?)"', $STR_REGEXPARRAYGLOBALMATCH)
         Else
            $FORM_NAME = StringRegExp($FORM[$a], 'action="(.*?)"', $STR_REGEXPARRAYGLOBALMATCH)
         EndIf
         For $b = 0 To UBound($FORM_NAME) - 1
            If $choix == "" Then
               ; NOM DU FORMULAIRE
               MsgBox(0, "", $FORM_NAME[$a])
            ElseIf $FORM_NAME[$b]==$choix Then
               $FORM_CONTENT = StringRegExp($source, '<form(.*?)</form>', $STR_REGEXPARRAYGLOBALMATCH)
               MsgBox(0, "", UBound($FORM_CONTENT))

               For $c = 0 To UBound($FORM_CONTENT) - 1
                  $INPUT_CONTENT = StringRegExp($FORM_CONTENT[$c], '<input(.*?)>', $STR_REGEXPARRAYGLOBALMATCH)
                  $tutu = StringInStr ( $FORM_CONTENT[$c], $choix)
                  If StringInStr ( $FORM_CONTENT[$c], $choix) then
                     For $d = 0 To UBound($INPUT_CONTENT) - 1
                        $INPUT_NAME = StringRegExp($INPUT_CONTENT[$d], 'name="(.*?)"', $STR_REGEXPARRAYGLOBALMATCH)
                        For $e = 0 To UBound($INPUT_NAME) - 1
                           ; NOM DES INPUTS
                           MsgBox(0, "", $INPUT_NAME[$e])
                        Next
                     Next
                  EndIf
               Next
            EndIf
         Next
      Next
   WEnd
EndFunc

recup('')
recup('turlututu')
 

Code : Tout sélectionner

#include-once

Global Const $HTTP_STATUS_OK = 200

Func HttpPost($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("POST", $sURL, False)
If (@error) Then Return SetError(1, 0, 0)

$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")

$oHTTP.Send($sData)
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc

Func HttpGet($sURL, $sData = "")
Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")

$oHTTP.Open("GET", $sURL & "?" & $sData, False)
If (@error) Then Return SetError(1, 0, 0)

$oHTTP.Send()
If (@error) Then Return SetError(2, 0, 0)

If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)

Return SetError(0, 0, $oHTTP.ResponseText)
EndFunc
 

Code : Tout sélectionner

$source = BinaryToString(InetRead("http://www.enseignement.polytechnique.fr/informatique/profs/Olivier.Serre/Memos/Formulaires_CSS/index.html", 1))

Local $content
$forms = StringRegExp($source, '(?s)<form(.*?)</form>', 3)
For $i = 0 To UBound($forms)-1
   $content &= _readform($forms[$i]) & @crlf
Next
Msgbox(0,"forms", $content)

Func _readform($form)
    Local $txt
    Local $action = StringRegExpReplace($form, '(?s).*action="([^"]+).*', "$1")
    $txt &= "action: " & $action & @crlf & @crlf
    Local $fieldsets = StringRegExp($form, '(?s)<fieldset>(.*?)</fieldset>', 3)
    For $k = 0 to UBound($fieldsets)-1
        $legend = StringRegExpReplace($fieldsets[$k], '(?s).*<legend>([^<]+).*', "$1")
        $txt &= $legend & @crlf
        $inputs = StringRegExp($fieldsets[$k], 'input id="([^"]+)', 3)
        For $n = 0 to UBound($inputs)-1
            $txt &= "input" & $n+1 & ": " & $inputs[$n] & @crlf
        Next
        $txt &= @crlf
    Next
    Return $txt
EndFunc