Page 1 sur 1
[..] Glisser / Déposer d'un fichier sur une page web
Posté : ven. 06 févr. 2015 11:22
par 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.
Re: [..] Glisser / Déposer d'un fichier sur une page web
Posté : ven. 06 févr. 2015 17:31
par 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.
Re: [..] Glisser / Déposer d'un fichier sur une page web
Posté : ven. 06 févr. 2015 19:49
par 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.
++
Re: [..] Glisser / Déposer d'un fichier sur une page web
Posté : ven. 06 févr. 2015 20:09
par 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