发送特殊字符，如“é&引用；使用VBscript SendKey

我正在尝试使用

SendKeys

发送一些特殊字符，例如

é

如果我使用

set mySendKeys = CreateObject("WScript.shell")
mySendKeys.SendKeys "é"

当然它不会起作用

我想用

asc（“é”）

来解释这个字符，得到的结果是

chr（233）

，然后

mySendKeys.SendKeys chr（233）

听起来不错？。。。但它将生成一个错误

无效的过程调用或参数

我发现了一个类似的问题

---

或者有没有其他方法可以模拟键盘输入这样的特殊字符？

您应该这样尝试：

set ws = CreateObject("WScript.shell")
ws.SendKeys chr(233)

编辑：

Dim i,x,a,ws
i = InputBox("Entrer un caractère ou une phrase pour obtenir son Code Unicode Correspondant !","test","éè@!%")
If i <> "" Then
    For x = 1 To Len(i)
        If x <> Len(i) Then
            a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")" & "&"
        Else
            a = a & "ChrW(" & AscW(Mid(i,x,1)) & ")"
        End if
    Next
    Inputbox "Le Code Unicode Correspondant pour " & qq(i) & " est:",,a
End If

wscript.sleep 5000
set ws = CreateObject("WScript.shell")
ws.SendKeys qq(i)
'******************************************************************
Function qq(strIn)
    qq = Chr(34) & strIn & Chr(34)
End Function
'******************************************************************

尺寸i、x、a、ws
i=输入框（“输入一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或一个字母或多个字母或多个字母或多个字母或多个字母或多个字母或多个字母或多个字母或多个字母或多个字母或多个字母）
如果我“那么”
对于x=1到Len（i）
如果x Len（i）那么
a=a&“ChrW（&AscW（Mid（i，x，1））&”）&“&”
其他的
a=a&“ChrW（&AscW（Mid（i，x，1））&”）
如果结束
下一个
输入框“Le Code Unicode对应浇注”&qq（i）和“est:”，a
如果结束
wscript.sleep 5000
设置ws=CreateObject（“WScript.shell”）
ws.SendKeys qq（一）
'******************************************************************
功能qq（strIn）
qq=Chr（34）和strIn&Chr（34）
端函数
'******************************************************************

这不是键盘上的键，也没有虚拟键代码。SendKeys没有国际意识，对大多数问题来说都是一个糟糕的解决方案。任何测试自动化工具都应该有一个更强大的工具来实现这一点，就像微软自己的UI自动化一样。我注意到你把它标记为UFT问题。是否有特殊原因使用

SendKeys

而不是使用对象的

.Set

方法？正如@Cody所提到的，

SendKeys

是一个糟糕的解决方案，我会避免it@nwpulele我不明白你的目的，但无论如何，试试我的编辑！谢谢你的帮助！！我执行了你的代码，但它只输出了

“@！

似乎仍然无法发送

è

，而且

%

丢失了…我会继续尝试…@nwpullele你能编辑你的问题并粘贴你的洞代码吗，因为对我来说它有效，我得到了

è！%