call 缓慢拖动(265,536, "右", 300)
Function 缓慢拖动(起点x, 起点y, 方向, 距离)
w=Plugin.GetSysInfo.GetScreenResolutionX()
h=Plugin.GetSysInfo.GetScreenResolutionY ()
MoveTo 起点x, 起点y
Delay 100
LeftDown 1
Delay 100
If 方向 = "上" Then
临时 = 起点y - 距离
If 临时 < 0 Then
临时=0
End If
For j = 起点y To 临时 Step - 1
MoveTo 起点x, j
Delay 5
Next
ElseIf 方向 = "下" Then
临时 = 起点y + 距离
If 临时 >h-1 Then
临时=h-1
End If
For j = 起点y To 临时 Step 1
MoveTo 起点x, j
Delay 5
Next
ElseIf 方向 = "左" Then
临时 = 起点x - 距离
If 临时 <0 Then
临时=0
End If
For j = 起点x To 临时 Step -1
MoveTo j, 起点y
Delay 5
Next
ElseIf 方向 = "右" Then
TracePrint "***"
临时 = 起点x + 距离
If 临时 >w-1 Then
临时=w-1
End If
TracePrint 起点x
TracePrint 临时
For j = 起点x To 临时 Step 1
MoveTo j, 起点y
Delay 5
Next
End If
Delay 50
LeftUp 1
Delay 150
End Function