[已解决]VBS如何通过SendKeys的方式发送出剪切板的内容？

xgda

有一目标窗口，不能使用 ctrl+v 来粘贴剪切板的内容
也就是说不能使用  a.SendKeys "^v"
但能使用键盘敲出来

剪切板的内容为字母加数字，没有中文和符号
如剪切板的内容为 abcdefg
那就是 a.SendKeys "abcdefg"
但不能使用a.SendKeys "^v"

怎么才能用a.SendKeys的方式发送出剪切板的内容

xgda

已经好了，非常感谢   yu2n   坛友

1. ' 延时
   
2. WScript.Sleep 3000
   
3. 
   
4. Dim wso, objHTML, strClipboardText
   
5. Set wso = CreateObject("Wscript.Shell")
   
6. Set objHTML = CreateObject("htmlfile")
   
7. strClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
   
8. 
   
9. '测试
   
10. 'strClipboardText = "测试 A1 + C2 = 100% ? "
    
11. 
    
12. ' 方法一：直接 Ctrl + V
    
13. wso.SendKeys "^v"
    
14. wso.SendKeys "~"
    
15. 
    
16. ' 方法二：拆分成单个字符发送，只支持按键字符(A-z,0-9,英文标点)，会受输入法限制
    
17. Dim i, strKey
    
18. If Not strClipboardText = "" Then
    
19.   For i = 1 To Len(strClipboardText)
    
20.     ' 拆分成单个字符
    
21.     strKey = Mid(strClipboardText, i, 1)
    
22.     WScript.Sleep 300
    
23.     ' 判断字符是否支持
    
24.     If ASCW(strKey) > 0 And ASCW(strKey) < 127 Then
    
25.       '' 特殊符号 + ^ % ~ 的处理
    
26.       If InStr("+^%~", strKey) > 0 Then strKey = "{" + strKey + "}"
    
27.       '' 发送按键码
    
28.       wso.SendKeys strKey
    
29.     End If
    
30.   Next
    
31. End If
    
32. 
    
33. Set wso = Nothing
    
34. Set objHTML = Nothing

复制代码

yu2n

2015.01.03 更新：特殊字符“ +^%~(){} ”的处理 ..
http://bathome.net/redirect.php? ... 6&fromuid=53540