Question

按键精灵截图后怎么手动选择保存路径和保存文件名。

如下，我截图
Call Plugin.Pic.PrintScreen(0, 0, 1024, 768, "c:\1.bmp")
截图后自动保存在c盘了，我想截图后，弹出一个保存的对话框，然后自己选择保存的路径和文件名。可以做到吗？
谢谢

Answer 1

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

感谢各位大神
我刚接触按键精灵，需要保存大量网页，另存文件名那里不会弄了。

积分奉上，谢谢帮忙。

//1.点右键查看源文件弹出记事本另存
RightClick 1
Delay 50
KeyPress "V", 1
Delay 50
KeyDown 18, 1
KeyPress 70, 1
KeyUp 18, 1
Delay 50
KeyPress "A", 1
Delay 50
//2.输入文件名*.txt并且，每次循环一次*+1，*其实可定义。

//3.关闭记事本