Implementing a ControlClickDrag in Autoit

ohhungry · 02/11/2017, 21:16

I need help implementing a ControlClickDrag in Autoit. Basically a MouseClickDrag but without moving the users mouse.

If anybody knows how I could implement this in Autoit or with Windows API calls please contact me and I will compensate you for your time.

Add me on skype is preferable for contact: ohhungry

xShizoidx · 02/15/2017, 17:33

Do you mean something like this ?

draggable.html

Code:

<!doctype html>
<html lang="en">

<head>
    <meta charset="utf-8">
    <meta name="viewport" content="width=device-width, initial-scale=1">
    <title>jQuery UI Draggable + Sortable</title>
    <link rel="stylesheet" href="https://code.jquery.com/ui/1.12.1/themes/base/jquery-ui.css">

    <style>
        ul {
            list-style-type: none;
            margin: 0;
            padding: 0;
            margin-bottom: 10px;
        }
        li {
            margin: 5px;
            padding: 5px;
            width: 150px;
            border: 2px solid black
        }
    </style>
    <script src="https://code.jquery.com/jquery-1.12.4.js"></script>
    <script src="https://code.jquery.com/ui/1.12.1/jquery-ui.js"></script>
    <script>
        $(function() {
            $("#sortable").sortable({
                revert: true
            });
            $("ul, li").disableSelection();
        });
    </script>
</head>

<body>



    <ul id="sortable">
        <li class="ui-state-default">Item 1</li>
        <li class="ui-state-default">Item 2</li>
        <li class="ui-state-default">Item 3</li>
        <li class="ui-state-default">Item 4</li>
        <li class="ui-state-default">Item 5</li>
    </ul>

</body>

</html>

main.au3

Code:

#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <Array.au3>

_IEErrorHandlerRegister()
$oIE = _IECreateEmbedded()
$width = 200
$height = 270
$GUI = GUICreate("Test Drag", $width, 350, -1, -1, $WS_POPUP)
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $width, $height)
$weiter = GUICtrlCreateButton("weiter", 60, 304, 75, 25)
$pfad = StringReplace("file:///"& @ScriptDir &"/draggable.html","\","/")
_IENavigate($oIE, $pfad)
$oIE.document.body.scroll = "no"
$oIE.document.body.style.border = "0px"

GUISetState()

  While 1
	  sleep(1)
        $Msg = GUIGetMsg()
        Select
			Case $Msg = $weiter
				Local $liElements = _IETagNameGetCollection($oIE, "li")
				$counter = 0
				For $liElement In $liElements

					$counter = $counter + 1
					MsgBox(64,"Reihenfolge",$counter&" Element : "&$liElement.innerText)
				Next
        EndSelect
  WEnd

I used the JQuery UI example and load the .html file as embedded Webcontrol.