pcl_test

窗口失焦，要先聚焦到所要复制的某个窗口，比如要复制test.txt文档的某些文字，那么先选中文字

set ws = CreateObject("Wscript.Shell")
do while ws.appactivate("test.txt - 记事本")=false '聚焦到当前记事本窗口
WScript.Sleep 200
loop
ws.SendKeys "^C"
复制代码

pcl_test

发个ahk，实现鼠标左键拖选复制

~LButton::
mousedrag := 1 ; pixels
MouseGetPos, mousedrag_x1, mousedrag_y1
win1 := WinActive("A")
KeyWait LButton
MouseGetPos, mousedrag_x2, mousedrag_y2
win2 := WinActive("A")
WinGetClass cos_class, A
if(((abs(mousedrag_x2 - mousedrag_x1) > mousedrag
  or abs(mousedrag_y2 - mousedrag_y1) > mousedrag)) and win1 = win2 
  and cos_class != "ConsoleWindowClass")
{
    SendInput ^c
}
return
复制代码

pcl_test

回复 4# ruoru376
嗯，说了vbs需要聚焦，一直是个不靠谱的方法，所以推荐用ahk

pcl_test

回复 6# ruoru376

百度是让人“上”的