本帖最后由 我来了 于 2013-1-27 16:57 编辑
我用按键精灵结合TC, 编了一个
a=Plugin.File.ReadFileEx("C:\Documents and Settings\Administrator\桌面\批量改名.txt")
b = Split(a, "|")
For i = 0 To UBound(b) - 1
Delay 50
KeyDown "F2", 1
Call Plugin.Sys.SetCLB(b(i))
b(i)=Plugin.Sys.GetCLB()
Delay 50
KeyUp "F2", 1
Delay 50
KeyDown "Ctrl", 1
Delay 50
KeyDown "V", 1
Delay 79
KeyUp "V", 1
Delay 39
KeyUp "Ctrl", 1
Delay 50
KeyDown "Enter", 1
Delay 78
KeyUp "Enter", 1
Delay 50
KeyDown "Down", 1
Delay 74
KeyUp "Down", 1
next
效果尚可,但觉得不如 批处理的实在 |