Question

按键精灵条件截图保存

Text = Plugin.File.ReadFileEx("E:\111.txt")
MyArray = Split(Text, "|")
Text1 = Plugin.File.ReadFileEx("E:\222.txt")
MyArray1 = Split(Text1, "|")
Text2 = Plugin.File.ReadFileEx("E:\333.txt")
MyArray2 = Split(Text2, "|")
Text3 = Plugin.File.ReadFileEx("E:\444.txt")
MyArray3 = Split(Text3, "|")
For i=0 to UBound(MyArray)-1
SayString MyArray(i)
Set WshShell=CreateObject("WScript.Shell")
Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFile=objFSO.OpenTextFile("E:\111.txt",1)
strLine=objFile.Readline
KeyPress "Tab", 1
SayString MyArray1(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray2(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray2(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray3(0)
Delay 500
KeyPress "Tab", 1
SayString MyArray3(0)
Delay 500
FindPic 0,0,1024,768,"E:\1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+10
Delay 500
LeftClick 1
Delay 500
如果找到图片4.bmp
在坐标50，50，100，100以刚才从E：\111.txt输入的文本为名截图，保存到E：\
如果找到图片3.bmp
KeyPress "Enter", 1
Delay 500
FindPic 0,0,1024,768,"E:\2.bmp",1,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX+20, intY+15
LeftClick 1
Delay 300
End If
End If
Next

感谢各位大神

Answer 1

Call Plugin.Pic.PrintScreen(50, 50, 100, 100, "E:\"&MyArray1(0)&".bmp")
你要的是不是这个？你的代码复制到我按键里没有分段的 乱七八糟看不清楚 郁闷