按键精灵：根据坐标复制内容，创建一个TXT文件来保存复制的“内容”。

Question

1.因为内容有2个，因此坐标也有2个，所以需要保存2个TXT。（注：因为粘贴的地方不在一起，所以需要做成两个按键精灵脚本，第一个是复制两处指定坐标的内容 并新建保存到1.txt 、2.txt里，第二个是提取1.txt、2.txt里的内容粘贴到指定坐标位置后然后删除txt文件）就具体代码...... 回答有用加分....

Answer 1

Dim a, b
Dim n, m
//定义两组变量复制两个坐标
path1 = "C:\Users\Administrator\Desktop\1.txt"
path2 = "C:\Users\Administrator\Desktop\2.txt"
fileHandle1 = Plugin.File.OpenFile(path)
Call Plugin.File.WriteFileEx(path1, "第一组坐标为" & a & "," & b)
Call Plugin.File.CloseFile(fileHandle1)
//第一组坐标
fileHandle2 = Plugin.File.OpenFile(path)
Call Plugin.File.WriteFileEx(path2, "第一组坐标为" & a & "," & b)
Call Plugin.File.CloseFile(fileHandle2)
//第二组坐标
//---------------------------------------------------------------

Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\1.txt")
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
i = i + 1
MoveTo a, b
Delay 50
LeftClick 1
Delay 50
SayString Cstr(MyArray(i))
Delay 50
Next
Call Plugin.File.DeleteFile("C:\Users\Administrator\Desktop\1.txt")
End If

Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\2.txt")
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
Msgbox "第 " & i+1 &" 行文本内容为："& Cstr(MyArray(i))
i = i + 1
MoveTo n,m
Delay 50
LeftClick 1
Delay 50
SayString Cstr(MyArray(i))
Delay 50
Next
Call Plugin.File.DeleteFile("C:\Users\Administrator\Desktop\2.txt")
End If
//------------------------------------------------------------------

看看是不是你要的