xgda

1 要求选择后先ctrl + C复制2
czjt1234 发表于 2013-8-28 15:04

第一个说的意思不是先ctrl + C复制，是直接按（Num -）一个按键就能将所选取的内容复制下来
就是由（Num -）一个按键代替ctrl + C两个按键


第二个当我按下（Num +）时，貌似当前操作的对象就不是要输入的文本框了



按之前光标在闪
   
按之后光标不在了


用
Set a=Wscript.CreateObject("Wscript.Shell")
a.SendKeys "%{TAB}"
为什么也不能切换

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
复制代码

Batcher

我的签名里面有链接