[..] Glisser / Déposer d'un fichier sur une page web

[franco]

Bonjour à tous.

Je cherche à effectuer un glissé / déposé d'un fichier (et un seul) sur une page web, dont voici le lien :
https://up2sha.re/

Vous l'aurez compris : je cherche donc à héberger un fichier sur cet hébergeur, via un glissé / déposé.

J'avais trouvé cela sur le forum US : http://www.autoitscript.com/forum/topic ... drag-drop/

Donc j'ai pondu ce "script", qui n'est pas fonctionnel, en utilisant l'include proposée sur le lien.

► Afficher le texteScript non fonctionnel

Code : Tout sélectionner

#include "_FileDragDrop.au3"

ShellExecute("iexplore.exe", "https://up2sha.re/","","",@SW_MAXIMIZE)
Sleep(4000)

Local $aList = WinList()
For $i = 1 To $aList[0][0]
    If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
        If StringInStr($aList[$i][0], "up2sha") Then $title = $aList[$i][0]
    EndIf
Next
Sleep(1000)

;~ If WinExists($title) Then
;~  MsgBox(0, "", "yes")
;~ Else
;~  MsgBox(0, "", "no")
;~ EndIf


$hWebBrowser=WinGetHandle($Title)
 WinActivate($Title)
$b = @DesktopDir & "\manga.txt"

$iRet=_FileDragDrop($hWebBrowser,$b,600,350)
ConsoleWrite("Return: "&$iRet&" @error="&@error&", @extended="&@extended&@CRLF)

Du coup, j'ai cherché une autre méthode en utilisant MouseClick (pour cliquer sur la zone au lieu de glisser/déposer) et Send($monfichier & "{enter}") (pour indiquer & envoyer le fichier).

Là, ça fonctionne.

► Afficher le texteScript fonctionnel

Code : Tout sélectionner

$File = @DesktopDir & "\manga.txt"
ShellExecute("iexplore.exe", "https://up2sha.re/", "", "", @SW_MAXIMIZE)
Sleep(4000)

Local $aList = WinList()
For $i = 1 To $aList[0][0]
    If $aList[$i][0] <> "" And BitAND(WinGetState($aList[$i][1]), 2) Then
        If StringInStr($aList[$i][0], "up2sha") Then $title = $aList[$i][0]
    EndIf
Next

WinWaitActive($title, "", 1000)
MouseClick("left", 600, 300, 1)
WinWaitActive("[CLASS:#32770]","",1000)
Send($File & "{enter}")

Mais j'aimerais bien que le glissé déposé fonctionne : d'où la création de ce topic.



Je sais faire des glisser déposer au sein de l'interface du script (GUI).
Mais sur d'autres fenêtres (position x/y) : je n'y arrive pas.


Pouvez-vous m'aider à trouver des pistes ? ^^



@++ et bon Vendredi à tous.

[orax]

L'exemple avec Notepad++ qui est donné avec l'UDF est fonctionnel. Par contre je n'ai pas pu le faire fonctionner avec IE.

[franco]

Salut.

Exact Orax.
Par contre, si notepad++ est minimisé, ça ne fonctionne pas.

Je vais creuser pour voir si je peux pas le faire avec IE (ou palemoon).


Merci de ta réponse.

++

[franco]

Re

J'ai testé ceci :

► Afficher le textescript

Code : Tout sélectionner

#include "_FileDragDrop.au3"
ShellExecute("iexplore.exe", "https://up2sha.re/", "", "", @SW_MAXIMIZE)
Sleep(6000)
$up2s_h = ""
$ListWin = WinList()
For $i = 1 To $ListWin[0][0]
    If $ListWin[$i][0] <> "" And BitAND(WinGetState($ListWin[$i][1]), 2) Then
        If StringInStr($ListWin[$i][0], "up2sha") Then $up2s_t = $ListWin[$i][0]
    EndIf
Next

If $up2s_t <> "" Then
$up2s_h=WinGetHandle($up2s_t)
    $up2s_Pos = WinGetPos($up2s_h)
WinActivate($up2s_t)
    $iRet = _FileDragDrop($up2s_h, @DesktopDir & "\manga.txt", 600, 350)
    ConsoleWrite("Return: " & $iRet & " @error=" & @error & ", @extended=" & @extended & @CRLF)
EndIf

Le plus surprenant : cela fait scintiller (en une fraction de seconde) la fenêtre d'IE sans que cela ne fasse de glisser déposer ^^.

Je pense que ca glisse dépose sur le bord de la fenêtre (car c'est la bordure qui scintille) et non à l'endroit souhaité.


Etrange, non ?



@+ et bon app, j'ai faim moi xDDD