czjt1234

1 要求选择后先ctrl + C复制

Dim objFSO, objTextStream, Form, TextBox
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("C:\log.txt", 2, True)
Set Form = CreateObject("Forms.Form.1")
Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object
TextBox.MultiLine = True
If TextBox.CanPaste Then
    TextBox.Paste
    objTextStream.Write TextBox.Text
    objTextStream.Close()
End If
复制代码

2

Dim objFSO, objTextStream, objWshShell, strS, i
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextStream = objFSO.OpenTextFile("C:\log.txt", 1, False)
strS = objTextStream.ReadLine()
Set objWshShell = CreateObject("Wscript.Shell")
For i = 1 To Len(strS)
    objWshShell.SendKeys Mid(strS, i, 1)
Next
复制代码

czjt1234

Set objWshShell = CreateObject("Wscript.Shell")
objWshShell.AppActivate "我的电脑"    '激活指定标题栏
Wscript.Sleep 500    '延时半秒，防止反应不过来
复制代码

第一个要求做不到，因为不能固定标题栏
否则倒可以激活标题栏，再发送Ctrl + C

czjt1234

学习一下~~~