求一个按键精灵的脚本,后台复制TXT文本里的所有内容

Question

比如 用Ctrl+C复制 "c:\1.txt" 内的所有内容 可以用的还会加分
有朋友帮我写了代码不过只用了一次后,怎么按也不行了有能改的朋友吗
所有内容 = Plugin.File.ReadFileEx(Form1.BrowseBox1.Path)
所有内容 = Plugin.File.ReadFileEx("c:\1.txt")
For i = 0 To UBound(所有内容_arr)-1
a =a& 所有内容_arr(i) & vbcrlf
Next
Call Plugin.Sys.SetCLB(a)

Answer 1

text = Plugin.File.ReadFileEx("C:\1.txt")

 当然要是你的txt处于打开状态的话，还可以直接后台复制，不过必须先要获取句柄

mh = Plugin.Window.GetKeyFocusWnd()
//按下ctrl键
Call Plugin.Bkgnd.KeyDown(mh, 17)
Delay 500
//按a
Call Plugin.Bkgnd.KeyPress(mh, 65)
Delay 500
//按c，复制成功
Call Plugin.Bkgnd.KeyPress(mh,67)
Delay 500

追问

晕不会找句柄 你能帮我改一下我上面的代码吗

追答

获取句柄只要当前记事本被选中，

mh = Plugin.Window.GetKeyFocusWnd()

自动获取句柄，不需要你自己获取

Answer 2

所有内容 = Plugin.File.ReadFileEx("C:\1.txt")
行内容=split(所有内容,"|")

For i = 0 To UBound(行内容)-1
a =a& 行内容(i) & vbcrlf
Next
Call Plugin.Sys.SetCLB(a)