AutoIt Français

Code : Tout sélectionner

#include <IE.au3>
#include <Array.au3>
#cs
$User = "***"
$Pass = "***"

$oIE = _IECreate("http://www.alldebrid.fr/register/", 0, 1)
$oFormco = _IEFormGetObjByName($oIE, "connectform")
$oUser = _IEFormElementGetObjByName($oFormco, "login_login")
_IEFormElementSetValue($oUser, $User)
$oPass = _IEFormElementGetObjByName($oFormco, "login_password")
_IEFormElementSetValue($oPass, $Pass)
_IEFormSubmit($oFormco)
;_IENavigate ($oIE, "http://www.alldebrid.fr/service/")
_IEQuit($oIE)
Sleep(1000)
#ce


$lien = "http://uptobox.com/hwkxx34nufyv"
$i = debrider($lien)
_ArrayDisplay($i)
Func debrider($links)
 $array = StringSplit($links, @CRLF)
$nb = $array[0] - 1
$oIE = _IECreate ("http://www.alldebrid.fr/service/", 0, 1)

$oForm = _IEFormGetObjByName ($oIE, "links")
$oElts = _IEFormElementGetCollection($oForm)
For $oElt In $oElts
   If $oElt.name == "links" Then _IEFormElementSetValue($oElt, $links)
   If $oElt.value == "fulllink" Then  _IEAction ($oElt, "click")
Next

$oSpans = _IETagNameGetCollection($oIE, "span")
For $oSpan In $oSpans
    If $oSpan.innerhtml = "Lancer le débridage !" Then
        _IEAction($oSpan, "focus")
        _IEAction($oSpan, "click")
        ExitLoop
    EndIf
Next

While 1
  $source = _IEDocReadHTML($oIE)

  If StringInStr($source, "displaylinksdiv validlink") and StringInStr($source, "link" &$nb) Then Exitloop
  If StringInStr($source, "displaylinksdiv unvalidlink") and StringInStr($source, "link" &$nb) Then Exitloop
 Sleep(200)
Wend

$deb = ""
For $i = 0 to 2
  $oDiv = _IEGetObjById($oIE, "link" & $i)
  Do
      $innertext = $oDiv.innertext
      Sleep(10)
  Until StringInStr($innertext, "http")

If StringInStr($innertext, "This link isn't available on the hoster website.")  Then
$deb &= "lien invalide|"
Else
$deb &= $innertext & "|"
EndIf
Next
$array = StringSplit($deb, "|")
$array[0]= $array [0]-1
_ArrayDelete($array,UBound($i)-1)
_IEQuit($oIE)
Return $array
EndFunc

Code : Tout sélectionner

#include <IE.au3>

#cs
$User = "***"
$Pass = "***"

$oIE = _IECreate("http://www.alldebrid.fr/register/", 0, 1)
$oFormco = _IEFormGetObjByName($oIE, "connectform")
$oUser = _IEFormElementGetObjByName($oFormco, "login_login")
_IEFormElementSetValue($oUser, $User)
$oPass = _IEFormElementGetObjByName($oFormco, "login_password")
_IEFormElementSetValue($oPass, $Pass)
_IEFormSubmit($oFormco, 0)
Sleep(2000)
;_IEQuit($oIE)
ProcessClose("iexplore.exe")
#ce

;===========================

$list = "http://uptobox.com/hwkxx34nufyv" &@crlf& _ 
    "http://uptobox.com/b9veukfwtl6n" &@crlf& _
    "http://uptobox.com/5k9zpaayg6b4"
$links = StringSplit($list, @crlf, 1)

$res = ""
For $i = 1 to $links[0]
   $deblink = _Debrid($links[$i])
   Msgbox(0, "lien " & $i, $deblink)
   $res &= $deblink & @crlf
Next
Msgbox(0,"résultats", $res)

;============================
Func _Debrid($link)
$oIE = _IECreate ("http://www.alldebrid.fr/service/", 0, 0)

$oForm = _IEFormGetObjByName ($oIE, "links")
$oElts = _IEFormElementGetCollection($oForm)
For $oElt In $oElts
   If $oElt.name == "links" Then _IEFormElementSetValue($oElt, $link)
   If $oElt.value == "fulllink" Then  _IEAction ($oElt, "click")
Next

$oSpans = _IETagNameGetCollection($oIE, "span")
For $oSpan In $oSpans
    If $oSpan.innerhtml = "Lancer le débridage !" Then
        _IEAction($oSpan, "focus")
        _IEAction($oSpan, "click")
        ExitLoop
    EndIf
Next

While 1
   $source = _IEDocReadHTML($oIE)
   If StringInStr($source, "displaylinksdiv") and StringInStr($source, "link0") Then Exitloop
   Sleep(200)
Wend

Do
   $oDiv = _IEGetObjById($oIE, "link0")
   $deb = $oDiv.innertext
Until not StringInStr($deb, "Wait")

ProcessClose("iexplore.exe")
Sleep(500)
Return $deb
EndFunc
 

Code : Tout sélectionner

Func _Debrid($link)

  $oIE = ObjCreate("InternetExplorer.Application")
  $oIE.visible = 0
  $oIE.navigate("http://www.alldebrid.fr/service/")
;;  $oIE.focus()
  Do
     $source = $oIE.document.body.innerhtml
  Until StringInStr($source, "displaylinks")

  $oForm = $oIE.document.forms.item("links")
  $oForm.elements.item("links").value = $link
  $oForm.elements("view").value("fulllink").checked = true
  $oIE.document.parentwindow.execScript("javascript[b]:[/b]giveMeMyLink();")
  Do
     $source = $oIE.document.body.innerhtml
  Until StringInStr($source, "displaylinksdiv")
  Do
     $deb = $oIE.document.getElementById("link0").innertext
  Until not StringInStr($deb, "Wait")

  ProcessClose("iexplore.exe")
  Return $deb
EndFunc