如何保存鼠标键盘回放信息到文件？

Question

在网上看到一则用VB录制鼠标键盘动作并且回放的教程，受益匪浅。教程中将记录下的鼠标键盘动作信息保存到了一个1000项的自定义类型数组EventArr(1000)。但是我想将记录下的信息保存到外部文件（例如a.txt），请问该怎么做？另外从a.txt读入动作信息再播放如何实现？原教程地址：
http://www.codesky.net/article/doc/200310/2003102015262628.htm
希望各位大虾指点。

Answer 1

自己定义个脚本
然后定义鼠标动作的脚本
比如
移动到300.100
你就记录到txt文件为
move 300.100
然后在运行脚本的 时候调用移动鼠标的函数来完成这个动作就可以了
主要是自定义脚本的问题

Answer 2

Public Type EVENTMSG 
        message As Long 
        paramL As Long 
        paramH As Long 
        time As Long 
        hwnd As Long 
End Type 
根据这个,可以使用文本文件实现
数组的5个属性按照格式写入
比如ID message paramL paramH time hwnd
1 0 0 0 0 0
.......
然后
OPEN app.path & "\a.txt" for input as #1
line input #1,s
do until eof(1)
line input #1,s
t=split(s,vbtab)
i=i+1
EventArr(i).message=s(1)
EventArr(i).paraml=s(2)
EventArr(i).paramH=s(3)
EventArr(i).time=s(4)
EventArr(i).hwnd=s(5)
loop
close #1

Answer 3

刚才打错了
应该是
OPEN app.path & "\a.txt" for input as #1
line input #1,s
do until eof(1)
line input #1,s
t=split(s,vbtab)
i=i+1
EventArr(i).message=t(1)
EventArr(i).paraml=t(2)
EventArr(i).paramH=t(3)
EventArr(i).time=t(4)
EventArr(i).hwnd=t(5)
loop
close #1