path = "c:/1.txt" //TXT文件路径
fileHandle=Plugin.File.OpenFile(path)
Rem 开始
xx=GetLastKey()
If xx=32 Then
//按空格键，读取下一行
fileline=Plugin.File.ReadLine(fileHandle)
MyArray = Split(fileline, ",")
//(fileline, ",")每一行 姓名与电话号码的分割符号“，”如: 张三，13333333333
//此处加你输入的姓名位置坐标，加鼠标点击
SayString MyArray(0)
//此处加你输入的电话位置坐标，加鼠标点击
SayString MyArray(1)
End If
Goto 开始
Call Plugin.File.CloseFile(fileHandle)
读取下一条
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024