按键精灵电脑版缓慢滑动

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