Question

按键精灵5级考试问答 求两题答案

1.写一个脚本，要求启动时，记录（录制）当前鼠标的移动轨迹，记录结束时，执行反相操作，注意操作速度不可偏差过大。
2.写一个脚本，要求：在画图工具中画一个渐变放大的圆形漩涡效果图。
提示：cos函数与sin函数应用。

Answer 1

是这样吗？

追问

是的，思路有吗？

追答

GetCursorPos x0, y0
r=30:x=0:y=0:n=0
While n<3.1415926*10
x=x0+r*cos(n)
y=y0-r*sin(n)
MoveTo x,y
Delay 20
n = n + 0.03
r=r+0.3
Wend
这是第二题 第一题有点麻烦没时间帮你写

Answer 2

题一

Const 监视间隔 = 50'设置鼠标监视间隔. 单位毫秒.
Const 记录时间 = 10'录制多少时间,单位秒
Dim x, y, x1, y1, 分割, 数量, i, 时间与坐标, 用时
Dim 开始时间, sTime, sTime1, 记录
GetCursorPos x, y
开始时间 = time
sTime = Plugin.Sys.GetTime()
记录=""
Do
    GetCursorPos x1, y1
    If x1 <> x or y1 <> y Then 
        sTime1 = Plugin.Sys.GetTime()
        记录 = 记录 & sTime1 - sTime & "," & x1 & "," & y1 & "|"
        x = x1 : y = y1
        sTime = sTime1
    End If
    Delay 监视间隔
Loop Until DateDiff("s", 开始时间, time) >= 记录时间
MessageBox "鼠标录制结束" & vbcr & "确定后开始逆步骤执行鼠标移动"
LockMouse
分割 = split(记录, "|")
数量 = UBound(分割)
For i = 数量 - 1 To 0 Step - 1 
    时间与坐标 = split(分割(i), ",")
    用时 = 时间与坐标(0) : x = 时间与坐标(1) : y = 时间与坐标(2)
    MoveTo x, y
    Delay 用时
Next
Sub OnScriptExit()
    UnlockMouse
    MessageBox "脚本已经停止！"
End Sub

题二

Dim 圆心坐标X, 圆心坐标Y, 圈数, 角度, 圆半径, 弧度, FX, FY
圆心坐标X = 300 : 圆心坐标Y = 280
圈数 = 4
For 角度 = 0 To 360 * 圈数
    圆半径 = 10 + int(角度/15) '每次增加角度,半径也会增加
    Call 画圆(圆心坐标X, 圆心坐标Y, 圆半径, 角度)
Next
Sub 画圆(圆心坐标X, 圆心坐标Y, 圆半径, 角度)
    弧度 = 3.1416 / 180 * 角度
    FX = cint(圆心坐标X - 圆半径 * sin(弧度))
    FY = cint(圆心坐标Y + 圆半径 * cos(弧度))
    MoveTo FX, FY
    Delay 1
    LeftDown 1
End Sub
Sub OnScriptExit()
    LeftUp 1
    MessageBox "脚本已经停止！"
End Sub