用按键精灵做了个脚本。具体操作是,从大智慧股票软件里复制K线图数据到Excel文档里,再对相关数据进行处理。在Excel里的操做,可以通过懒人办公插件运行,速度非常快。但在大智慧软件里进行的操作没有插件可用。就这几步操作很简单。但需要加进大量的延迟。整个循环要运行3千多遍。总共要运行数个小时。实在是太漫长了。请问有没有高手,能把对大智慧软件进行操作的1到9句脚本。17到18句脚本,改成懒人办公那样的插件。使整个程序的运行,降到十几分钟就可以完成。不胜感激。
以下是脚本内容:
'脚本运行计时开始
begintime = Plugin.GetSysInfo.GetTime
Dim LazyExcel,path,Index,RCount,CCount,Range
path="C:\测试.xlsx"
Set LazyExcel= CreateObject("Lazy.LxjExcel")
Index = LazyExcel.ExcelOpen(path,1 )
RCount = LazyExcel.SheetRowsCount(1, Index)
CCount = LazyExcel.SheetColumnsCount(1, Index)
Range = LazyExcel.LocToAdd(RCount,CCount)
For 3600
①MoveTo 635,257
//移动到大智慧K线图中央
Delay 400
②RightClick 1
//右键单击调出菜单。
Delay 400
③MoveTo 701,174
//移动到复制数据选项
Delay 400
④LeftClick 1
//左键单击
Delay 400
⑤KeyPress "Esc", 1
//清除弹出的对话框
Delay 400
⑥KeyPress "PageDown", 1
//股票下翻一页
Delay 400
7:MoveTo 525,748
Delay 400
8:LeftClick 1
//移动到excel文档左键单击
Delay 400
⑨KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
//粘贴在大智慧里复制的数据
以下10到16句,是通过懒人办公插件,在Excel文档里进行操作。这几句运行速度很快不用管他。
17:MoveTo 353,750
//移动到大智慧 软件
Delay 400
18:LeftClick 1
//左键单击
Delay 400
Next
'脚本运行计时结束
MessageBox "执行完脚本,共耗时:" & (Plugin.GetSysInfo.GetTime - begintime) & "毫秒"