107 lines
3.4 KiB
QBasic
107 lines
3.4 KiB
QBasic
Attribute VB_Name = "usage_dragdrop"
|
|
Private Assert As New Selenium.Assert
|
|
Private Keys As New Selenium.Keys
|
|
Private By As New Selenium.By
|
|
|
|
|
|
Private Sub Perform_DragAndDrop_HTML5()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "http://html5demos.com/drag"
|
|
|
|
Dim ele_source As WebElement, ele_target As WebElement
|
|
Set ele_source = driver.FindElementById("two")
|
|
Set ele_target = driver.FindElementById("bin")
|
|
|
|
driver.Actions.ClickAndHold(ele_source).MoveToElement(ele_target).Release.Perform
|
|
driver.Actions.DragAndDrop(ele_source, ele_target).Perform
|
|
|
|
Assert.True ele_source.IsPresent
|
|
DragAndDropHTML5 ele_source, ele_target
|
|
Assert.False ele_source.IsPresent
|
|
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Perform_DropText_HTML5()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "http://html5demos.com/drag-anything"
|
|
|
|
Const DROP_TYPE = "text/message"
|
|
Dim ele_drop As WebElement
|
|
Set ele_drop = driver.FindElementById("drop")
|
|
|
|
DropDataHTML5 ele_drop, DROP_TYPE, "my text"
|
|
|
|
Assert.Equals "my text", ele_drop.Text
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Perform_DropFile_HTML5()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "http://html5demos.com/file-api"
|
|
|
|
Dim ele_drop As WebElement
|
|
Set ele_drop = driver.FindElementById("holder")
|
|
|
|
DropFileHTML5 ele_drop, "file:///C:/Untitled.png"
|
|
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
|
|
' ### HELPERS FUNCTIONS ###
|
|
|
|
''
|
|
' Drop data on an element that implements HTML5 drop
|
|
' @target: web element that will receive the data
|
|
' @dataType: type of data
|
|
' @data: data to drop on the target
|
|
''
|
|
Private Sub DropDataHTML5(target As WebElement, dataType As String, data)
|
|
Const JS_DropText As String = _
|
|
"var t=this,m=arguments[0],v=arguments[1],d={dropEffect:'',types:[m],getData:funct" & _
|
|
"ion(k){return v;}},f=function(e,k){var u=document.createEvent('Event');u.initEven" & _
|
|
"t(k,1,1);u.dataTransfer=d;e.dispatchEvent(u);};f(t,'dragenter');f(t,'dragover');f" & _
|
|
"(t,'drop');"
|
|
|
|
target.ExecuteScript JS_DropText, Array(dataType, data)
|
|
End Sub
|
|
|
|
''
|
|
' Perform a drag and drop on elements that implement HTML5 drag an drop
|
|
' @source web element to drag
|
|
' @target: web element to drop on
|
|
''
|
|
Private Sub DragAndDropHTML5(source As WebElement, target As WebElement)
|
|
Const JS_DnD As String = _
|
|
"var s=this,t=arguments[0],d={dropEffect:'',types:[],setData:function(k,v){this[k]=" & _
|
|
"v;types.append(k);},getData:function(k){return this[k]}},f=function(e,k){var u=doc" & _
|
|
"ument.createEvent('Event');u.initEvent(k,1,1);u.dataTransfer=d;e.dispatchEvent(u);" & _
|
|
"};f(s,'dragstart');f(t,'dragenter');f(t,'dragover');f(t,'drop');f(s,'dragend');"
|
|
|
|
source.ExecuteScript JS_DnD, target
|
|
End Sub
|
|
|
|
''
|
|
' Perform a drag and drop on elements that implement HTML5 drag an drop
|
|
' @target: web element that will receive the file
|
|
' @filepath: file path
|
|
''
|
|
Private Sub DropFileHTML5(target As WebElement, filePath As String)
|
|
Const JS_NewInput = _
|
|
"var e=document.createElement('input');e.type='file';" & _
|
|
"document.body.appendChild(e);return e;"
|
|
Const JS_DropFile = _
|
|
"var s=this,t=arguments[0],d={dropEffect:'',files:s.files},f=function(e,k){u=docum" & _
|
|
"ent.createEvent('Event');u.initEvent(k,1,1);u.dataTransfer=d;e.dispatchEvent(u);}" & _
|
|
";f(t,'dragenter');f(t,'dragover');f(t,'drop');"
|
|
|
|
Dim source As WebElement
|
|
Set source = target.ExecuteScript(JS_NewInput)
|
|
source.SendKeys filePath
|
|
source.ExecuteScript JS_DropFile, target
|
|
End Sub
|