怎样制作一个复制，粘贴的，脚本

怎样制作一个复制，粘贴的，脚本

Dim i
i = 1
Do
Key = WaitKey
If Key = 65 Then
Text = Plugin.Office.ReadXls(1, i, 1)
Call Plugin.Sys.SetCLB(Text)
End If
If Key = 83 Then
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
i = i + 1
End If
Loop

把下面的代码复制到按键上，生成小精灵，双击，按启动键就可以了。x1,y1,x2,y2 是由你自己输入的，生成小精灵你就明白了。 uservar x1=0 复制内容的横轴坐标 uservar y1=0 复制内容的纵轴坐标 uservar x2=0 黏贴内容的横轴坐标 uservar y2=0 黏贴内容的纵轴坐标 //循环一千次 for 1000 //把鼠标移动到 要复制的内容地方 moveto x1 y1 leftclick 1 delay 1000 //全选 keydown 17,1 keypress 65,1 keyup 17,1 delay 1000 //复制 keydown 17,1 keypress 67,1 keyup 17,1 delay 1000 //把鼠标移动到要黏贴的地方 moveto x2 y2 leftclick 1 //黏贴 keydown 17,1 keypress 86,1 keyup 17,1 endfor